From f29ea2874b18d194a911a0652398b63e37bbc8fb Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 12:06:36 +0900
Subject: [PATCH] Merge single/multiple cell handling

---
 vba_code_kukan_detail_master.txt | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)

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