diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index ecc2e83..b8752dd 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -20,10 +20,21 @@ 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 Trim(Target.Value) = "" Then - Call ClearRowData(Me, Target.Row) + 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 - Call FillFromKukanMaster(Me, Target.Row) + If Trim(Target.Value) = "" Then + Call ClearRowData(Me, Target.Row) + Else + Call FillFromKukanMaster(Me, Target.Row) + End If End If End If End Sub