calvuch respondió:
Prueba este script Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Mid(Selection.Address, 2, 1) <> "A" Then Exit Sub On Error Resume Next If Trim(Range("A" & Selection.Row - 1).Value) <> 1 Then Range("B" & Selection.Row - 1, "D" &...