Jhaider Perez

Adriel Ortiz Mangia respondió: H o l a Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Row > 1 Then Select Case UCase(Target.Value) Case Is > 1 Range(Cells(Target.Row,...

Adriel Ortiz Mangia respondió: H o l a: Te paso la macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then Range("C10:C1002").ClearContents End If End Sub