مساعدة لترحيل معلومات بناء على شرط

[j.k]

السلام عليكم

الاخوة الاعزاء

طلبي موضح في المرفق

نقل راسبين.rar

[Ahmed Elbhiry]

تفضل اخى هل هذا ماتريد

نقل راسبين 1.rar

[j.k]

الاخ الكريم احمد البحيري

جزاك الله خيرا

لكن اريد التخلص من الفراغات بين الاسماء لوجود عددطلاب كبير ولاغراض الطباعة للجدول

[فضل حسين]

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

تفضل اخى العزيز الحل بالكود

وهذا الحل هو ماتعلمته من خبراء وعظماء واعضاء هذا المنتدى العظيم الذين اكن لهم كل الاحترام والتقدير والعرفان بالجميل .فلولاهم ماكنت تعلمت شئ وهذة هى الحقيقة .

نقل راسبين.rar

[j.k]

السلام عليكم

الاخ العزيز فضل1

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

[j.k]

السلام عليكم

الاخ الفاضل فضل 1

هنالك مشكلة في الكود لايطبق بصورة مضبوطة وكما مبين في المرفق

نقل راسبين 2.rar

تم تعديل أبريل 11, 2012 بواسطه j.k

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

السلام عليكم

جرب هذا التعديل

Sub fatl()

Range("a239:g300").ClearContents

x = 8: xx = 239

Do Until Cells(x, 1) = ""

If Cells(x, 7) <> 0 And Cells(x, 7) < 50 Then

Range(Cells(x, 1), Cells(x, 7)).Copy

Range("A" & xx).PasteSpecial Paste:=xlPasteValues

xx = xx + 1

End If

x = x + 1

Loop

Application.CutCopyMode = False

End Sub

[فضل حسين]

الاستاذ الفاضل / j.k

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

مرفق الملف وبه زرين للكود

الزر الاول لاستاذى الكبير المايسترو ( عبدالله المجرب )

والزر الثانى لتلميذه فضل

واى استفسار اسأل انت معاك فى المشاركة المايسترو

سلام

نقل راسبين 2.rar

[j.k]

السلام عليكم

الاخ الفاضل فضل1

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

الاخ الكريم عبدالله المجرب

زادك الله علما وفضلا

راسبين.rar

[فضل حسين]

الاستاذ الفاضل / jk

ارجو ان تسامحنى فلم افهم المطلوب . فمثلا اين الشيت درس كمثال . فأرجو مزيد من التوضيح حتى يتسنى لخبراء وعظماء المنتدى المساعدة .

اما بخصوص الكود هو يعمل تماما مثل كود المايسترو . وقد يكون التعديل البسيط عليه اجعل فى الكود اصغر من 50 اجعلها اصغر من 49.5 مثل كود المايسترو

وان شاء الله لو اتيحت لى الفرصة او استطعت ان اقدم اى مساعدة لن أتأخر ولو للحظة . تمنياتى لسيادتك بالتوفيق . وان شاء الله سوف تجد طلبك ان شاء الله .

تم تعديل أبريل 20, 2012 بواسطه فضل 1

[RabieSoft]

بارك الله فيك يا أخي....

وجعلها في ميزان حسناتك...

[RabieSoft]

بارك الله فيك يا أخي....

وجعلها في ميزان حسناتك...

[RabieSoft]

بارك الله فيك يا أخي....

وجعلها في ميزان حسناتك...

[j.k]

السلام عليكم

الاخ الفاضل فضل1

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

راسبين.rar