مساعدة في تحديد مدى معين من خلال inputbox

[waheidi]

اخواني الافاضل ارجو مساعدتي في تحديد مدى معين من خلال hnputbox بحيث اقوم انا بادخال المدى المطلوب 

مثال

ActiveSheet.Range("BD12:BD111").Select 
    Selection.Copy
كيف يمكنني ان اجعل الرقم 111 متغير بحيث في كل مرة اقوم بتغييره من خلال inputbox يتم تغييره في جميع المدى في البرنامج بحيث يصبح كل رقم 111 هو الرقم الذي ادخلته من خلال inputbox 

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

[حسين مامون]

جرب هذا الماكرو

Option Explicit

Sub test()
Dim x
x = InputBox("حدد المدى  كالنمودج  هنا b1:b10")
If x = "" Then Exit Sub
ActiveSheet.Range(x).Select
End Sub

الملف

 

t.xlsm

او هذا الماكرو حيث تدخل المدى الى فقط 

مثلا نكتب BD120 T فقط 

سيحدد من BD12:DB120

Sub test()
Dim x, y
y = "bd12:"
x = y & InputBox("ادخل المدى الى  مثلا bd111")
If x = "" Then Exit Sub
ActiveSheet.Range(x).Select
End Sub

الملف

 

t.xlsm

[waheidi]

اشكرك اخي جدا وبارك الله فيك