Borrado de celdas alternas

Desearía saber la secuencia para borrar varias celdas alternas, cumpliendo una condición. Ejemplo: si B1=4 entonces borrar los rangos:(B2:B6) y (B9:B15).

Muchas gracias

1 Respuesta

Respuesta
1

Te dejo el código que puede ayudarte, debes copiarlo en el código de la hoja actual, y solo se ejecutara cuando ingreses 4 en la celda B1. Quedo pendiente de tu éxito. Saludos

Private Sub[color=#666666] [/color]Worksheet_Change(ByVal Target As Range)
If[color=#666666] [/color]Target.Address(False, False) = "B1" And Range("b1").Value = 4 Then
    Range("B2:B6,B9:B15").ClearContents
End If
End Sub

NO OLVIDES FINALIZAR Y PUNTUAR LA PREGUNTA

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas