Actividad pública reciente
Ha valorado "Excelente" la respuesta
Eliminar celdas que sólo contengan dos caracteres
Ahi te envio el codigo el cual debera estar en un modulo. UN codigo mejorado desde luego: Sub eliminar() Range("A1").Select Do While ActiveCell <> Empty If Len(ActiveCell) = 2 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End...
Ha valorado "Buena" la respuesta
Buscar una palabra y seleccionar 15 celdas debajo
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