miguelmaik

ubecleb respondió: Lo siento, no soy especialista en Macros, consulta a otro Experto. Buena suerte.

calvuch respondió: Prueba esto en el evento change de la hoja en donde deseas que se aplique Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Dim c As String c = Target.Address c = Mid(c, 2, 1) If Target.Address = "$A:$A" Then Exit Sub If c = "A" Then...