diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index b8752dd..46ed2c6 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -20,22 +20,14 @@ 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) + Dim cell As Range + For Each cell In Target + If Trim(cell.Value) = "" Then + Call ClearRowData(Me, cell.Row) Else - Call FillFromKukanMaster(Me, Target.Row) + Call FillFromKukanMaster(Me, cell.Row) End If - End If + Next End If End Sub