snaki Fco

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

Bueno te explico, lo que solicitas aparentemente es muy simple, lo que te aconsejo es que en vez de for.. utilices un Do while (hacer mientras que)... quedando de la siguiente forma: Private Sub cmdcambiar_Click() Dim subir As String Dim bajar As...