ترحيل بيانات حسابات بنكية

[aladdine]

السادة عباقرة المنتدى الكرام

مرفق ملف ترحيل حسابات بنكية 

برجاء المساعدة

يتم استلام البيانات كما فى شيت DataBank Cr-Dr.xlsx

المطلوب كود أو معادلات او استعلام لترحيل البيانات من شيت Data  إلى شيت journal entry ledger  كما هو مبين.

[Saleh Ahmed Rabie]

كود VBA  لترحيل البيانات من شيت Data  إلى شيت journal entry ledger  

Sub TransferData()

    Dim wsData As Worksheet
    Dim wsJournalEntryLedger As Worksheet
    Dim lastRowData As Long
    Dim lastRowJournalEntryLedger As Long

    'حدد ورقة البيانات وورقة دفتر الأستاذ للإدخالات اليومية
    Set wsData = Worksheets("Data")
    Set wsJournalEntryLedger = Worksheets("Journal Entry Ledger")

    'احصل على آخر صف في ورقة البيانات
    lastRowData = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row

    'احصل على آخر صف في ورقة دفتر الأستاذ للإدخالات اليومية
    lastRowJournalEntryLedger = wsJournalEntryLedger.Cells(wsJournalEntryLedger.Rows.Count, "A").End(xlUp).Row

    'انقل البيانات من ورقة البيانات إلى ورقة دفتر الأستاذ للإدخالات اليومية
    For i = 2 To lastRowData
        wsJournalEntryLedger.Cells(lastRowJournalEntryLedger + 1, "A").Value = wsData.Cells(i, "A").Value
        wsJournalEntryLedger.Cells(lastRowJournalEntryLedger + 1, "B").Value = wsData.Cells(i, "B").Value
        wsJournalEntryLedger.Cells(lastRowJournalEntryLedger + 1, "C").Value = wsData.Cells(i, "C").Value
        wsJournalEntryLedger.Cells(lastRowJournalEntryLedger + 1, "D").Value = wsData.Cells(i, "D").Value
        wsJournalEntryLedger.Cells(lastRowJournalEntryLedger + 1, "E").Value = wsData.Cells(i, "E").Value
        wsJournalEntryLedger.Cells(lastRowJournalEntryLedger + 1, "F").Value = wsData.Cells(i, "F").Value

        lastRowJournalEntryLedger = lastRowJournalEntryLedger + 1
    Next i

End Sub

 

Bank2 Cr-Dr.xlsb Bank2 Cr-Dr.xlsm Bank2 Cr-Dr.xls