MObius12
02-20-2022, 05:56 AM
Hello!
my task:
If the value of A6 has changed since the last change, then we display the "name" in cell B6 . If not, leave the cell empty.
Now the VBA works only A6:B6 line.
How to make this formula work for the rest of the rows below (a7:b9999)?
There are many such lines (more than 600)
I have the code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A6")) Is Nothing Then
If Range("A6").Value = Dynamic_data Then
Range("B6").Value = ""
Else
Dynamic_data = Range("A6").Value
Range("B6").Value = "Delta"
End If
End If
End Sub
my task:
If the value of A6 has changed since the last change, then we display the "name" in cell B6 . If not, leave the cell empty.
Now the VBA works only A6:B6 line.
How to make this formula work for the rest of the rows below (a7:b9999)?
There are many such lines (more than 600)
I have the code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A6")) Is Nothing Then
If Range("A6").Value = Dynamic_data Then
Range("B6").Value = ""
Else
Dynamic_data = Range("A6").Value
Range("B6").Value = "Delta"
End If
End If
End Sub