diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index c780076..ecc2e83 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -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