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)