تعديل لطريقة بحث وانتقال

[samycalls2020]

السلام عليكم

ما أطلبه من حضراتكم هو تبديل كلمة "طب" في الماكرو واستبدالها بخلية H2 التي تحتوى 

على قائمة منسدلة بحيث يمكن تغير ما نبحث عنه , وطبعاً ما يترتب على ذلك من تعديل في الكود .

وشكراً على تفضلكم بالمساعدة

Sub بحث_وانتقال()
    If Intersect(ActiveCell, Range("C6:C45")) Is Nothing Then Range("C6").Select
    Range("C6:C45").Find("طب", ActiveCell, xlValues).Select
End Sub

 

الكليات 2022.xlsm

تم تعديل يوليو 20, 2023 بواسطه samycalls2020

[أبوأحـمـد]

وعليكم السلام

إن كنت فهمت المطلوب فهذا التعديل

Sub بحث_وانتقال()
    If Intersect(ActiveCell, Range("C6:C45")) Is Nothing Then Range("C6").Select
    Range("C6:C45").Find(Range("H2"), ActiveCell, xlValues).Select
End Sub

 

[samycalls2020]

نعم هو المطلوب .. كل الشكر والتقدير