مساعده فى هذا الكود

[محمد عبد الناصر]

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

ده كود بنقل بيه بيانات من "Sheet1" الى "تقرير" المشكله فى الكود ده ان لو دوست على امر الماكرو والبيانات دى موجوده فى "تقرير" بينقلها تانى انا عايز لو البيانات دى موجوده مينقلهاش بس

Sub TARHEEELL()

Dim FS As Worksheet, TS As Worksheet
Dim R, ER1, ER2
Set FS = Sheets("Sheet2")
Set TS = Sheets("تقرير")
FS.Select
FS.Range("bf2:bz2").Copy
For ER2 = 6 To TS.UsedRange.Rows.Count + 15
If TS.Cells(ER2, 2) = "" Then
TS.Range("B" & ER2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
GoTo 15

 

تم تعديل سبتمبر 13, 2015 بواسطه جيل التابعين

[الصـقر]

الاخ الكريم يفضل ارفاق الملف حتى يتثنى للاساتذه مساعدتك

تقبل تحياتى

[محمد عبد الناصر]

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

mmmm.rar

[الصـقر]

حضرتك لازم تقول ما هى نقطه الاختبار بمعنى عايز الماكرو يبحث عن الاسم مثلا لو موجود لا يقوم بعمليه الترحيل ؟

برجاء مزيد من التوضيح

تم تعديل سبتمبر 13, 2015 بواسطه الصـقـر

[محمد عبد الناصر]

عن الخليه E1 الى هيه عندى رقم إقامة العمال

[الصـقر]

اخى الكريم جرب المرفق ان شاء الله به طلبك

تقبل تحياتى

mmmm.zip

[محمد عبد الناصر]

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