Excel VBA更改另一列中的值和范围中的行

Question

I have problem in my code, i need to change in another column - row

I tried to built macro but it's dosn't work with that.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Target, Range("A6:U1000"))

If xRg Is "YES" Then Exit Sub
Range("G" & Target.Row).Value = "CHECK"
End Sub

When in column N6:N1000 is "YES" in Column G change value to "Check" and all row A6 for example to U1000 is in color red

Answer 1

I can't quite understand what you're trying to achieve here, but hopefully the below will be doing roughly what you need. Try it and let me know if it doesn't behave the way you hope.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim xRg As Range, cl as Range
    Set xRg = Intersect(Target, Range("A6:U1000"))
    If Not xRg Is Nothing Then
        For Each cl In xRg.Cells
            If cl.Value = "YES" Then Range("G" & cl.Row).Value = "CHECK"
        Next
    End If
    Application.EnableEvents = True
End Sub