snaki Fco

En el evento click del botón has lo siguiente Valor = Range("A1").Value Numero = 0 Total = 0 Numero = InputBox("Ingrese Numero de Suma", "Suma") If IsNumeric(Numero) Then Total = CLng(Valor) + CLng(Numero) Range("A2").Value = Total Else MsgBox "Valor...

Aquí esta la solución: ActiveSheet.PageSetup.PrintArea = "$A$5:$G$150" Espero que te ayude y no olvides finalizar y puntear

Aquí le mando la solución a su problema Sub pegar_Dato() On Error GoTo problema If Not IsEmpty(Range("D14").Value) Then ActiveCell.End(xlDown).Offset(1, 0).Select ActiveSheet.Paste Application.CutCopyMode = False Else ActiveSheet.Paste...

Prueba con activecell = DTPicker1.value

Intentalo así Sub Enero() On Error GoTo Problema Application.ScreenUpdating = False Workbooks.Open Filename:="C:\COSTOS\ENERO2010.xls" Range("A2:J30001").Select Selection.Copy Windows("BALANCE.xls").Activate Selection.PasteSpecial...

Eso lo debes en el objeto de Hoja (Microsoft Excel Objetos> Hoja1 (Hoja1) Ahí inserta esto Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$2" Then ... ... . End If End Sub En los .. pon las...

Sheets("Hoja1").select range("A1").end(xldow).select activecell.offset(-20,0).select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Hoja1").select...

Lomas factible es que agregues una tabla dinámica al filtro Y cuando apliques el filtro, actualices la tabla dinámica.

¿De qué forma estas realizando la búsqueda de los datos?

Bueno espero que te sirva esto Sub nombre_hoja() ActiveCell = Windows("Nombre_Libro").ActiveSheet.Name End Sub