Limpiar selección de lista dependiente en toda la columna

La macro que detallo más abajo esta relacionada a las listas dependientes. Lo que realiza es borrar la celda B2 al haber un cambio en A2. Lo que me gustaría es que si hay algún cambio en la cualquier cambio en la celda de columna A, sea A4 se borre el contenido en B4.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("A2") Then

    Range("B2").Value = ""

End If

End Sub

1 Respuesta

Respuesta
1

Va la macro

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Cells(Target.Row, "B") = ""
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas