Selección de un rango desde celda activa hasta última celda con datos, aunque haya celdas vacías entre medias y borrar la selección
publicado
Buenos días! A ver si alguien puede ayudarme... ?
Dada la celda activa, quiero seleccionar todas las celdas hacia abajo y hacia la derecha, hasta las últimas celdas con datos, aunque haya celdas vacías entre medias, y borrar su contenido.
He probado de mil maneras y no doy con la buena..... Creo que lo que más se acerca a lo que quiero es esto, aunque no lo estoy aplicando correctamente porque me da error en 'Range' de '_Objeto' global:
busca.Offset(filatm + 1, -13).Select
Dim abajo As Range, derecha As Range
abajo = Range(ActiveCell, Range(ActiveCell).End(xlDown).SpecialCells(xlCellTypeLastCell)).Select
derecha = Range(ActiveCell, Range(ActiveCell).End(xlToRight).SpecialCells(xlCellTypeLastCell)).Select
Range(abajo, derecha).Clear
No sé qué estoy poniendo mal...
Gracias de antemano! ?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días! A ver si alguien puede ayudarme... ?
Dada la celda activa, quiero seleccionar todas las celdas hacia abajo y hacia la derecha, hasta las últimas celdas con datos, aunque haya celdas vacías entre medias, y borrar su contenido.
He probado de mil maneras y no doy con la buena..... Creo que lo que más se acerca a lo que quiero es esto, aunque no lo estoy aplicando correctamente porque me da error en 'Range' de '_Objeto' global:
busca.Offset(filatm + 1, -13).Select
Dim abajo As Range, derecha As Range
abajo = Range(ActiveCell, Range(ActiveCell).End(xlDown).SpecialCells(xlCellTypeLastCell)).Select
derecha = Range(ActiveCell, Range(ActiveCell).End(xlToRight).SpecialCells(xlCellTypeLastCell)).Select
Range(abajo, derecha).Clear
No sé qué estoy poniendo mal...
Gracias de antemano! ?