From f17e2284128c3b43035cd5eec999d48935f60d20 Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 12:06:08 +0900
Subject: [PATCH] Simplify C column handling - separate single and multiple
 cells

---
 vba_code_kukan_detail_master.txt | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

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