[Cần giúp đỡ]. Chuyển Bảng cân đối phát sinh dạng bàn cờ sang Nợ - Có (1 người xem)

[tuanzoi]

Mình có một bảng cân đối phát sinh dạng bàn cờ (Sheet! CDPS T1-2014). Bây giờ mình muốn chuyển sang dạng Nợ - Có như trong sheet No-Co. Nhưng sheet No-Co nằm trên một workbook khác.
Bạn nào giúp mình với

 

[phucbugis]

Mình có một bảng cân đối phát sinh dạng bàn cờ (Sheet! CDPS T1-2014). Bây giờ mình muốn chuyển sang dạng Nợ - Có như trong sheet No-Co. Nhưng sheet No-Co nằm trên một workbook khác.
Bạn nào giúp mình với

bạn tải file đính kèm, cho chạy Macro.
vào sheet No_Co, click nút GPE_transpose --> xem kết quả.

Sub GPE_transpose()
Dim LC As Long, LR As Long, n As Long
Application.ScreenUpdating = False 'giup' code chay. nhanh ho*n

    Sheets("No_Co").Range("E3:G1048576").ClearContents 'xoa' so' lieu.
    
    With Sheet2 'Sheet2 la` SheetCodeName <=> CDPS T1-2013
        'xac dinh. vi tri cot cuoi' cung` cua Row 3
        LC = .Cells(3, .Columns.Count).End(xlToLeft).Column 'No <=>A3:BO3
        'xac dinh hang` cuoi' cung` cua? cot A
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row         'Co'<=>A1:A70
    End With
    '2 vong` lap.
    For iCol = 3 To LC      'vong` lap. duyet. tu` cot C -> BO
        For iRow = 5 To LR  'vong` lap. duyet. tu` row 5 -> row 69
            If Sheet2.Cells(iRow, iCol) > 0 Then
            'ket qua
                Range("E" & n + 3) = Sheet2.Cells(3, iCol)      'No
                Range("F" & n + 3) = Sheet2.Cells(iRow, 1)      'Co'
                Range("G" & n + 3) = Sheet2.Cells(iRow, iCol)   'So tien
                
                n = n + 1
            End If
        Next iRow
    Next iCol


Application.ScreenUpdating = True
 
'MsgBox ("xong Sub GPE_transpose")
End Sub

Link: https://www.mediafire.com/?rb770ub3bzjqv57

 

[tuanzoi]

bạn tải file đính kèm, cho chạy Macro.
vào sheet No_Co, click nút GPE_transpose --> xem kết quả.

Sub GPE_transpose()
Dim LC As Long, LR As Long, n As Long
Application.ScreenUpdating = False 'giup' code chay. nhanh ho*n

    Sheets("No_Co").Range("E3:G1048576").ClearContents 'xoa' so' lieu.
    
    With Sheet2 'Sheet2 la` SheetCodeName <=> CDPS T1-2013
        'xac dinh. vi tri cot cuoi' cung` cua Row 3
        LC = .Cells(3, .Columns.Count).End(xlToLeft).Column 'No <=>A3:BO3
        'xac dinh hang` cuoi' cung` cua? cot A
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row         'Co'<=>A1:A70
    End With
    '2 vong` lap.
    For iCol = 3 To LC      'vong` lap. duyet. tu` cot C -> BO
        For iRow = 5 To LR  'vong` lap. duyet. tu` row 5 -> row 69
            If Sheet2.Cells(iRow, iCol) > 0 Then
            'ket qua
                Range("E" & n + 3) = Sheet2.Cells(3, iCol)      'No
                Range("F" & n + 3) = Sheet2.Cells(iRow, 1)      'Co'
                Range("G" & n + 3) = Sheet2.Cells(iRow, iCol)   'So tien
                
                n = n + 1
            End If
        Next iRow
    Next iCol


Application.ScreenUpdating = True
 
'MsgBox ("xong Sub GPE_transpose")
End Sub

Cảm ơn bạn đã quan tâm giúp đỡ. Nhưng ý của mình là Có 2 file exel:
- CDPS chứa sheet CDPS T1-2013 (D:\Bao cao\CDPS.xlsx)
- Ketchuyen chứa sheet No-Co (D:\Bao cao\Ketchuyen.xlsx)
Bạn giúp mình nhé