اريد المساعدة في طلب يرحيل البيانات ؟

[Mr Zizo]

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

ولكم جزيل الشكر

test.rar

[علي سالم 75]

استخدم الكود التالي:

من احد اعمال الاستاذ خبور

Sub Copy_Past()

Dim Sh_Copy As Worksheet, Sh_Past As Worksheet

Dim LastRow As Long

Set Sh_Copy = Sheets("test")

Set Sh_Past = Sheets("جميع الفواتير")


Sh_Copy.Range("B1:B9").Copy

With Sh_Past

    LastRow = .Range("A65536").End(xlUp).Row + 1

    .Range("A" & LastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=True

End With

Application.CutCopyMode = False

End Sub

تم تعديل فبراير 13, 2010 بواسطه بليش روغ

[أيسم إبراهيم]

السلام عليكم

بعد إذن الأستاذ : بليش روغ

طبعا بعد أكواد الأستاذ الكبير : خبور لا يقارن عمل آخر

وإنما هي محاولة مما تعلمناه أيضا من الأستاذ خبور و أساتذة هذا المنتدى الأفاضل

تفضل أخي الكريم ما طلبت و زيادة داخل الملف المرفق

لا تنسانا و من علمنا من صالح الدعاء

أيسم إبراهيم

test.rar

تم تعديل فبراير 14, 2010 بواسطه أيسم إبراهيم

[ابو القبطان]

سلمت يداك استاذ ايسم ، وبارك الله فيك وجزاك كل الخير على عطائك وعرفانك بالجميل

[Mr Zizo]

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

احب اشكركم جدا جدا على حسن تعاونكم وربنا يجعله في ميزان حسناتكم انشاء الله

وتسلم ايدكم على المجهود الرائع

شكرا