اذهب الي المحتوي
أوفيسنا

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


j.k

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

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

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

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

نقل راسبين.rar

رابط هذا التعليق
شارك

السلام عليكم

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


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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

راسبين.rar

رابط هذا التعليق
شارك

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information