كود لترحيل ونقل البيانات

[شمس الثورة]

السلام عليكم ورحمة الله وبركاته ارجو منك مساعدتى ابحث عن كود لنقل البيانات الموجودة فى العمود a والعمود b,c,f ,e الى شيت 2 بمعنى اريد نقل البيانات من شيت 1 الى شيت 2 دون حذف البيانات من شيت 1

كود لترحيل البيانات.rar

[هشام شلبى]

السلام عليكم

=====

الاخ شمس الثورة

شاهد المرفق

كود لترحيل البيانات.rar

[MAHMOUD ALI YOUSSEF]

السلام عليكم

استاذنا هشام جزاك الله كل خير

:clapping:

:fff: :fff: :fff:

[ياسر الحافظ]

الاستاذ المشرف - هشـــــــــــــــــــــــــــام :

شكرا

وفقك الله

ياسر الحافظ " ابو الحارث "

[شمس الثورة]

السلام عليكم

استاذنا هشام جزاك الله كل خير

[عبدالله المجرب]

الاستاذ الفاضل هشام

كود رائع تسلم يمينك

ولكن عند تجربتي للمرفق لاحظت انه اذا كان الخلية النشطة في Sheet2 فانه يتم اللصق ابتداً منها

لذا بعد اذن استاذ هشام

اضفت سطر الى الكود ليتم اللصق ابتداً من الخليةA6

ليصبح الكود

Sub HH()

    Application.ScreenUpdating = False

    Range("A5:C81,E5:F81").Select

    Range("E5").Activate

    Selection.Copy


    Sheets("Sheet2").Select

    Range("A6").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets("Sheet1").Select

    Application.CutCopyMode = False

    Range("A1").Select

End Sub