نسخ وترحيل الى صفحة آخرى بشرط

[خالد_محمد]

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

1- اريد كود ترحيل البيانات مثلاً من صفحة رقم1 الى صفحة رقم 2

2- ترحيل البيانات التي ينطبق عليها الشرط فقط

3- الصفحة رقم 1 مربوطه بصفحة آخرى ولا اريد ترحيل الارتباط الى صفحة رقم 2 اريد فقط نسخ وترحيل القيمة فقط

4- المعلومات في صفحة رقم 1 من A6 الى G200

5- شرط الترحيل : أي خلية تساوي او اكبر من 8 وتقع في العامود F6 الى F200 يتم ترحيل الصف بأكمله من A الى G

مثال1 الخلية F14 =33 يتم ترحيل الصف كاملاً من A14 الى G14

مثال 2 الخلية F52 =6 لايتم ترحيل لانه اصغر من رقم 8

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

[علي السحيب]

الكود التالي ينفذ لك ما تريد:

Sub Tarheel()

Sheet2.[A6:G65536].ClearContents
For R = 6 To [A65536].End(xlUp).Row

If Cells(R, 6) = 8 Then
With Sheet2.[A65536].End(xlUp)
.Offset(1, 0) = Sheet1.Cells(R, 1)
.Offset(1, 1) = Sheet1.Cells(R, 2)
.Offset(1, 2) = Sheet1.Cells(R, 3)
.Offset(1, 3) = Sheet1.Cells(R, 4)
.Offset(1, 4) = Sheet1.Cells(R, 5)
.Offset(1, 5) = Sheet1.Cells(R, 6)
.Offset(1, 6) = Sheet1.Cells(R, 7)
End With
End If
Next
MsgBox "!تم ترحيل الصفوف المطلوبة بنجاح", vbInformation, "تم الترحيل"
End Sub

شاهد المرفق،

__________________________________________8.rar

[خالد_محمد]

آلف الف شكر يامشرفنا الكريم هذا هو المطلوب

[خالد_محمد]

اكرر شكري وتقديري لك يا استاذي الفاضل

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

لكن لدي طلب آخر وهو نفس الكود السابق اريد التعديل عليه

والمطلوب كل ترحيل يلي ما رحل من قبل مع وضع صف فارغ بين كل ترحيل وترحيل وبلون محدد ان امكن

[علي السحيب]

شاهد المرفق،

__________________________________________8.rar

[خالد_محمد]

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

يوجد مشكله يااستاذ علي بعد مانقلت الكود الى البرنامج الذي اعمل عليه انه لايرحل المعلومات بينما لونقلت الورقتين الى

مصنف اخر يعمل الكود لا اعلم ماهو السبب

شاهد المرفق

_______________.rar