Buscar una palabra y seleccionar 15 celdas debajo
Hola, espero que me puedan ayudar. Necesito en una hoja de Excel encontrar una palabra específica y una vez identificada seleccionar las 15 celdas siguientes (inferiores a esta) para eliminarlas. El código que he trabajado es este. Los comentarios son las sentencias que he intentado. Gracias por la colaboración.
Sub Arregla_Platino_Pack()
'Arregla_Platino_Pack Macro
Dim CeldaPDF As Range
Range("A1").Select
On Error Resume Next
Set CeldaPDF = Cells.Find("PDF", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False).Activate '
CeldaPDF.Select
'Cells.Item(15, 0).Select
'Range(Selection, CeldaPDF.Offset(15)).Select
'CeldaPDF.Offset(1).Resize(15).Select
End Sub
Sub Arregla_Platino_Pack()
'Arregla_Platino_Pack Macro
Dim CeldaPDF As Range
Range("A1").Select
On Error Resume Next
Set CeldaPDF = Cells.Find("PDF", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False).Activate '
CeldaPDF.Select
'Cells.Item(15, 0).Select
'Range(Selection, CeldaPDF.Offset(15)).Select
'CeldaPDF.Offset(1).Resize(15).Select
End Sub
1 Respuesta
Respuesta de caranbis
1
Después de tener seleccionada la celda donde encontraste lo que buscabas, deberás colocar esta línea de código:
ActiveCell.Offset(1, 0).Range("A1:A15").Select
'seleccionará las 15 celdas inmediatamente inferiores a la celda actualmente seleccionada
ActiveCell.Offset(1, 0).Range("A1:A15").Select
'seleccionará las 15 celdas inmediatamente inferiores a la celda actualmente seleccionada
