مطلوب كود ترحيل بيانات مالية

[عبدالله العراقي91]

الى الاخوة الاعزاء

مطلوب كود لترحيل البيانات الموجودة في الملف المرفق من صفحة صرف الاجور الى صفحة الاجمالي وبحيث تكون العملية قابلة للتكرار ..

وجزاكم الله خيرا

اخوكم عبدالله العراقي

________1.rar

________1.rar

[ابو اسامة العينبوسي]

السلام عليكم

تم تعديل أبريل 19, 2009 بواسطه ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

السلام عليكم

تم تعديل أبريل 19, 2009 بواسطه ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

السلام عليكم

Sub test()
Sheets("ÇáÇÌãÇáí").Select
TR = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(TR, 1) = Sheets(1).Cells(5, 7)
Cells(TR, 2) = Sheets(1).Cells(5, 3)
Cells(TR, 3) = Sheets(1).Cells(5, 5)
Cells(TR, 4) = Sheets(1).Cells(12, 5)
Sheets(1).Select
Sheets(1).Cells(5, 7) = ""
Sheets(1).Cells(5, 3) = ""
Sheets(1).Cells(5, 5) = ""
Sheets(1).Cells(12, 5) = ""
End Sub

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

الأستاذ و الأخ القدير الفاضل ابو اسامة

حل سريع ورائع

تسلم ايدك

[عبدالله العراقي91]

السلام عليكم ورحمة الله وبركاته

جزاك الله كل خير اخي العزيز بس ولو راح اثقل عليك ..

ممكن تعليمات اكثر عن ادخال وتكوين الكود وياريت يكون مطبق على الملف المرفق لان معلوماتي بالاكسيل متواضعة

وجزاك الله خيرا اخي ابو اسامة

اخوك عبدالله

[ابو اسامة العينبوسي]

السلام عليكم

________2.rar

[عبدالله العراقي91]

السلام عليكم اخي العزيز ابو اسامة

جزاك الله خيرا وبارك لك في علمك . وارجو ان تقبلني اخا لك

اخوك عبد الله