víctor ibarz respondió:
Lo puedes hacer así: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then ThisRow = Target.Row vvalor = Target.Value vcomp = Cells(1, 2).Value vresp = InStr(1, vvalor, vcomp, 1) If vresp > 0 Then Range("D" &...