اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Mr Zizo

الردود الموصى بها

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

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

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

تم تعديل بواسطه بليش روغ
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

أيسم إبراهيم

test.rar

تم تعديل بواسطه أيسم إبراهيم
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information