تعديل كود

[الشيباني1]

اخواني الاعزاء  تحية طيبه  ارجو المساعده في :

   1- تعديل الكود لالغاء الخليه الفارغه التي تظهر عند التفعيل 

   2- امكانية الترحيل لهذه الخلايا ( ارقام القوائم ) بالمعادلات

         مع الشكر الجزيل

كود لترحيل ارقام غير مكرره.rar

[سليم حاصبيا]

استبدل الكود عندك بها الكود  وسوف ترى النتيجة

Sub زر_1()
lh = Cells(Rows.Count, "H").End(3).Row
lc = Cells(Rows.Count, "c").End(3).Row

Range("H5:H" & lh).Clear
Range("c5:c" & lc).SpecialCells(xlCellTypeConstants, 1).Copy Range("H5")

End Sub

 

[الشيباني1]

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

[سليم حاصبيا]

تفضل يا صديقي بالمغادلات

انظر الى العامود G

كود لترحيل ارقام غير مكرره salim.zip

[الشيباني1]

حل رائع من استاذ اروع طلب اخير لو سمحت  حيث ظهرت الحاجة لتغيير الاعمده مما استوجب تعديل الكود ارجو المساعده  مع تقديري واحترامي

كود لترحيل ارقام غير مكرره 2.rar

[الشيباني1]

اخواني الاعزاء لا زلت منتظرا لأني      لن يخيب بأذن الله ظني 

[سليم حاصبيا]

تم معالجة الامر

 

كود لترحيل ارقام غير مكرره 2 salim.zip

[الشيباني1]

استاذنا القدير مع تقديري وامتناني لردكم ما وددت الحصول عليه في ورقة ( التصفيه 2 ) هو نفس الكود الرائع في ورقة ( التصفيه بزر ) لكن بتغيير في الاعمده فقط  مع اعتذاري

[الشيباني1]

للرفع ادام الرحمن علمكم

[سليم حاصبيا]

تم العمل كما تريد

انظر بنفسك الى الصفحة المذكورة في المشاركة الاخيرة

 

 

[الشيباني1]

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

كود لترحيل ارقام غير مكرره3 salim.rar

[سليم حاصبيا]

فمت بهذ العمل بناءً لطلبك في أول مشاركة

    2- امكانية الترحيل لهذه الخلايا ( ارقام القوائم ) بالمعادلات

[الشيباني1]

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