الرجاء نسخ نطاق عمود لعمود اخر متباعد بالكود VBA

[mrahmedyoussef1]

فضلاً وليس امراً

المطلوب زر ماكرو بمجرد الضغط عليه يحذف قيم س والابقاء على قيم ك كما هي ويقوم بنسخ نطاق ال ص فى العمود m المظلل

مرفق1.xlsm

تم تعديل أكتوبر 30, 2020 بواسطه mrahmedyoussef1

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

الماكرو المطلوب (عملية انشاء الزر اتركها لك)

Option Explicit
Sub Replace_S_by_Nothing()
 Range("A9").CurrentRegion.Replace "س", ""
 Range("J9:j26").Copy
 Range("M9").PasteSpecial (12)
Application.CutCopyMode = False
Range("D9").Select
End Sub

 

[mrahmedyoussef1]

سليم حاصبيا

شكراً جزيلاً هذا هو المطلوب بارك الله فيك وزاد علمك ونفع بك (أحسنت)