From 7debd7bbc5eefefba1311424b1b7194f87eb3f71 Mon Sep 17 00:00:00 2001 From: updsv7 Date: Mon, 13 Apr 2026 15:13:42 +0900 Subject: [PATCH] Add debug log for each row --- vba_code_kukan_detail_master.txt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 587c73f..b73c99b 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -399,6 +399,13 @@ Sub ExportMasterDetailData() For r = 7 To lastDataRow If Len(Trim(ws.Cells(r, 3).Value & "")) > 0 Then rowCount = rowCount + 1 + ' Debug: show row content + Dim rowData As String + rowData = "Row " & r & ": " & CleanCSVField(ws.Cells(r, 3).Value) + For j = 7 To 16 + rowData = rowData & ", " & CleanCSVField(ws.Cells(r, j).Value) + Next j + Debug.Print rowData ' CSV col1 -> C column csvContent = csvContent & CleanCSVField(ws.Cells(r, 3).Value) ' CSV col2-11 -> G-P column