From 94df0987d550e91762cc130162d6b097166413a2 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 16:58:03 +0900 Subject: [PATCH] Fix column mapping in FillFromKukanMaster --- vba_code_kukan_detail_master.txt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 4c529f4..aa92541 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -53,8 +53,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By ws.Cells(rowNum, 4).Value = Trim(wsKukan.Cells(i, 4).Value) & ": " & Trim(wsKukan.Cells(i, 5).Value) ws.Cells(rowNum, 5).Value = Trim(wsKukan.Cells(i, 6).Value) ws.Cells(rowNum, 6).Value = Trim(wsKukan.Cells(i, 7).Value) - ws.Cells(rowNum, 9).Value = Trim(wsKukan.Cells(i, 8).Value) - ws.Cells(rowNum, 14).Value = Trim(wsKukan.Cells(i, 9).Value) + ws.Cells(rowNum, 7).Value = Trim(wsKukan.Cells(i, 9).Value) + ws.Cells(rowNum, 8).Value = Trim(wsKukan.Cells(i, 14).Value) If setG Then ws.Cells(rowNum, 7).Value = "1" Call MakeFDropdownByG(ws, rowNum)