Simplify C column handling - separate single and multiple cells
This commit is contained in:
@@ -20,12 +20,23 @@ 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
|
||||
Dim cell As Range
|
||||
For Each cell In Target
|
||||
If Trim(cell.Value) = "" Then
|
||||
Call ClearRowData(Me, cell.Row)
|
||||
Else
|
||||
Call FillFromKukanMaster(Me, cell.Row)
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
If Trim(Target.Value) = "" Then
|
||||
Call ClearRowData(Me, Target.Row)
|
||||
Else
|
||||
Call FillFromKukanMaster(Me, Target.Row)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user