Cecilio Pérez Maqueda

prueba con esto antes de fila=2 Application.ScreenUpdating = False y antes de end sub Application.ScreenUpdating = True

Te paso un ejemplo muy sencillo, puedes adaptarlo fácilmente a tus necesidades Sub quieres() 'by Cecilio Perez maqueda Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho = wb.Sheets("contabilidad") Dim Hd As Worksheet: Set Hd =...

Desarrollé esta macro y te copia los formatos, puedes Sub quiebres() Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho = wb.Sheets("Hoja1") Dim Hd As Worksheet: Set Hd = wb.Sheets("Hoja2") Dim ucel 'ucel = Hd.Range("A" &...

Te paso un ejemplo, lo que está entre paréntesis son las variables que tienes que adaptar, si te das cuenta lleva comillas, por que en tu planteamiento que haces en "hoja1, te falta cerrar comillas, checa que primero va el nombre del libro y luego el...

De haberte entendido Sub traslado_y_elimino() Range("a65000").End(xlUp).Offset(1, 0).Value = "end" Range("A1").Select Do While ActiveCell.Value <> "end" If ActiveCell.Value = "valor" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,...

Sin filtro seria Sub OCULTAR() Range("A2").Activate While ActiveCell.Value <> "" If ActiveCell.Value Like "*TRANSPORTE*" Then ActiveCell.EntireRow.Hidden = True End If ActiveCell.Offset(1, 0).Activate Wend End Sub Para volver a mostrar Sub mostrar()...

A ver intenta en la parte del paste y me comentas Range("B2").Select ActiveSheet.PasteSpecial Paste:=xlPasteValues

Esta podría ser una de las tantas formas que puedes usar con while activecell.value<> " " Wend O Do while activecell.value<>" " if activecell.offset.value <> " " then Range(activecell.offset(0,-3), activecell.offset(0,54)).copy...

Para la columna "A" Range("A4).select Do While Activecell.value<>"" Aquí iría las instrucciones que desea que se ejecute mientras sea diferente a nada/espacios

Supongamos que en la columna B tienes los ceros Sub ocultarfilas() Range("B11").Activate While ActiveCell.Row <> "" If ActiveCell.Value = 0 Then ActiveCell.EntireRow.Hidden = True End If ActiveCell. Offset(1, 0). Activate Wend