aladdine قام بنشر مايو 28 مشاركة قام بنشر مايو 28 السادة عباقرة المنتدى الكرام مرفق ملف ترحيل حسابات بنكية برجاء المساعدة يتم استلام البيانات كما فى شيت DataBank Cr-Dr.xlsx المطلوب كود أو معادلات او استعلام لترحيل البيانات من شيت Data إلى شيت journal entry ledger كما هو مبين. رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر مايو 30 مشاركة قام بنشر مايو 30 كود 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان