Cecilio Pérez Maqueda

Ya probaste algo así, adáptalo a tus necesidades Range("b6").Select fin = Range("b" & Rows.Count).End(xlUp).Row Set ran = Range("b6:b" & fin).SpecialCells(xlCellTypeBlanks) ran.EntireRow.Delete

A ver prueba esto si te sirve, adapta lo que necesites, o dime datos concretos para ayudarte, saludos Sub uniendohojas() For Sig = 2 To Worksheets.Count Worksheets(Sig).UsedRange.Copy _ Worksheets(1).Range("a1048576").End(xlUp).Offset(1) Next...

Prueba algo así Sub guardando() Nombre = "C:\Users\I5\Desktop\" & Range("c20").Value & ".xls" ActiveWorkbook.SaveAs Nombre End Sub

Por el momento puedes Poner lo siguiente Application.screenUpdating= False antes de j=2 y justo antes de end Sub escribe Application.screenUpdating= True En cuanto tenga un tiempo libre o un espacio, le acomodamos el With para aligerar otro poco O si...

¿Y en qué columna se encuentran los datos a comparar?

A ver si te entendí mientras tengas datos en la columna A quieres insertar determinada palabra en la columna "B" me imagino que varia los datos de la columna A Prueba y comentas En este ejemplo supuse que tus datos inician en la celda A1 puedes...

Quieres qué al realizar cualquier cambio en el rango ("A2:¿A300") automáticamente se limpie tu celda B2? Ya intentaste algo así como Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2:$A$300 Then Range("B2").ClearContents...

Supongamos que la celda donde se encuentra la fórmula sea iv3, entonces Range("iv3"). Copy Range("iv4:iv" & Range("A" & Rows. Count).End(xlUp). Row). PasteSpecial xlPasteAll

Puedes enviarme tu archivo con los resultados esperados a [email protected]

Esto te recorre hacia arriba pero también puedes cambiar esta linea ActiveSheet.Rows(X).Delete Shift:=xlShiftUp por ActiveSheet.Rows(X).EntireRow.Delete Sub BORRADOCELDASBLANCAS() Dim X As Long With ActiveSheet For X =...