I have this VBA, which is great, but in order to optimize it, I was wondering if there was a way to skip cells if two cells equal one another?
here is the code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Row = 248 And .Column > 7 And .Column < 556 Then
.Offset(-4).GoalSeek Goal:=.Value, ChangingCell:=.Offset(-5)
End If
End With
End Sub
here is the code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Row = 248 And .Column > 7 And .Column < 556 Then
.Offset(-4).GoalSeek Goal:=.Value, ChangingCell:=.Offset(-5)
End If
End With
End Sub