Simplify Worksheet_Change for C column
This commit is contained in:
@@ -20,21 +20,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
|
||||
|
||||
' === Fill D, E when C column changes ===
|
||||
If Target.Column = 3 And Target.Row >= 7 Then
|
||||
If Target.Count > 1 Then
|
||||
' Handle multiple cells
|
||||
Dim cell As Range
|
||||
For Each cell In Target
|
||||
If cell.Column = 3 And cell.Row >= 7 Then
|
||||
If Trim(cell.Value) = "" Then
|
||||
Call ClearRowData(Me, cell.Row)
|
||||
Else
|
||||
Call FillFromKukanMaster(Me, cell.Row)
|
||||
End If
|
||||
End If
|
||||
Next cell
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Trim(Target.Value) = "" Then
|
||||
Call ClearRowData(Me, Target.Row)
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user