Cecilio Pérez Maqueda

Pues intenta así Sub macro () Dim wb as Workbook:Set wb = Thisworkbook Dim Ho as Worksheet: set Ho=wb.Sheets ("RE-DE-02 POA") Dim Hd as worksheet:set Hd=wb.Sheets ("PRESUPUESTO") For i = 15 To Ho.range ("F" & Rows.count).End(xlUp).Row...

Sub uniendohojas() For Sig = 2 To Worksheets.Count Worksheets(Sig).UsedRange.Copy _ Worksheets(1).Range("a1048576").End(xlUp).Offset(0, 0) Next Application.DisplayAlerts = False End Sub prueba y comentas

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

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

Creo que debes probar esto =SI(CONTARA(A1:C1)=0,"OPCION X",A1&B1&C1)