根据另一个单元格值更改单元格范围

Question

I want to write a VBA code that applies to 1000 rows in excel. And in each row, once I change the cell value in column G to No , the respective row (ie column HZ ) will fill in with X automatically.

I tried to write the code below, but it doesn't work all the time, only appear occasionally, can someone help me with this, please?

Private Sub Worksheet_Change(ByVal Target As Range)
    'MsgBox Target.Address
    If Not Application.Intersect(Range("B1:B100"), Range(Target.Address)) Is Nothing Then
        Call Change_value
    End If
End Sub

Sub Change_value()
    If ActiveCell.Value = "No" Then
        Cells(ActiveCell.Row, 4).Value = "Ok"
    End If
End Sub

Answer 1

@Aiden – here's what's wrong with your question:

It's contradictory.

You say you want the code to apply to “1000 rows in excel” but your code refers to 100 rows only (“B1:B100”)

You say you want it to trigger the sub when a cell in “column G” changes – but your code refers to column B

As such, it's difficult for people to understand what your intention really is

Your code should be formatted as code – by which I mean that when you enter your question, you highlight all your code and select {} to mark it as such

Having said that, I'll give you a solution on the assumption that you did take @horst advice and read https://stackoverflow.com/help/how-to-ask .

You don't need to call a sub from within a Private Sub when the task is as simple as this one. Assuming you meant Column G, and 1000 rows, this should work for you:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G1:G1000"), Target) Is Nothing Then

If Target.Rows.Count > 1 Then Exit Sub

If Target.Value = "No" Then
    Range(Target.Offset(0, 1), Target.Offset(0, 19)).Value = "X"
End If

End If
End Sub