طلب كود لتحديد صف موازى لنطاق محدد

[طارق_طلعت]

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,السادة الزملاء ..ارجو المساعدة بعمل كود بسيط يقوم بالأتى

عندما اقوم بتحديد نطاق معين بورقة العمل مثل (A12:B20) مثلا ثم تشغيل الكود فيقوم بتحديد الصف الموازى لهذا النطاق (C12:C20)

و شكرا جزيلا لمساعدتكم

مرفق ملف يوضح المطلوب فى الشيت الاول النطاق الذى تم تحديدة و فى الشيت الثانى الصف المطلوب تحديدة بمعرفة الكود

طبعا تم عمل اثنين شيت لتوضيح المطلوب لكن المطلوب تحديد الصف فى نفس الشيت..اسف المطلوب تحديد عمود موازى و ليس صف

تـــــم إعادة رفع الملف بإمتداد يقبل إضافة الأكواد XLSM

تحديد صف موازى لنطاق.xlsm

[محمد هشام.]

Sub change_selection()
  Dim MH_Range, New_Range As Range
  Set MH_Range = Selection
  Set New_Range = MH_Range.Resize(, 1).Offset(0, MH_Range.Columns.Count)
  New_Range.Select
End Sub

 

تحديد صف موازى لنطاق.xlsm

[طارق_طلعت]

شكرا جزيلا استاذ محمد هو دة بالضبط اللى انا محتاجة ..تحياتى

 

[محمد هشام.]

العفو أخي الكريم