From 1f94a53a585bb91ccc038ebaa7355c4a02d79d45 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 12:04:57 +0900 Subject: [PATCH] Simplify Worksheet_Change for C column --- vba_code_kukan_detail_master.txt | 15 --------------- 1 file changed, 15 deletions(-) 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