Dante Amor

Prueba la siguiente: Sub test() Dim lr As Long lr = Range("A" & Rows.Count).End(3).Row If lr < 2 Then lr = 2 Range("C2:C" & lr & ",P2:P" & lr & ",AC2:AC" & lr & ",AP2:AP" & lr & ",BC2:BC" & lr).Select End Sub

Si en la columna K quieres los resultados en la misma fila donde tienes los datos de la tabla "Cartilla", tal y como se aprecia en tu imagen. Entonces en la celda K5 pon la siguiente fórmula y la copias hacia abajo....

Prueba lo siguiente: Sub test() Sheets("hoja2").Cells(10, "G") = Round(Sheets("hoja1").Cells(10, "C"), 0) End Sub

Prueba esto: Sub GuardarPdf() ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\trabajo\" & Range("D5"), 0, True, False, , , False End Sub

Si quieres saber cuáles nombres están repetidos, entonces: Sub Mostrar_Repetidos() Dim c As Range, dic As Object Set dic = CreateObject("Scripting.Dictionary") dic.comparemode = vbTextCompare For Each c In Range("A2", Range("A" & Rows.Count).End(3))...

Observa como puse los rangos empezando en la fila 2, terminan en la última fila con datos de la hoja1. Por supuesto, puedes ejecutar la macro en cualquier otra hoja. Sub Extraer_No_Repetidos() Dim sh As Worksheet Dim dic As Object, ky As Variant,...

Quiero que me borre de la hoja1 todos los registros que en mi columna 1 coincidan con los datos de la columna 1 de hoja2. La siguiente macro supone que, en ambas hojas, los registros empiezan en A2 y tienes los encabezados en la fila 1. Realiza una...

Aquí otra opción a considerar: Sub pegar2() Range("A" & ActiveCell.Row & ":K" & ActiveCell.Row).SpecialCells(2).Copy Sheets("Hoja2").Range("M" & ActiveCell.Row) End Sub

Prueba esto: Range("AA3:AA" & uf).Value = Range("AA2").Value

Prueba lo siguiente: Sub Macro2() With ActiveSheet .Range("A1", .Range("D" & Rows.Count).End(3)).AutoFilter 3, "<>*caobos*" .AutoFilter.Range.Offset(1).EntireRow.Delete .ShowAllData End With End Sub