ابحث عن ماكرو لعمل زر انتقال الى خلية محددة داخل جدول يتكون من عدد كبير من الاعمدة

[Salah1989]

ب ابحث عن ماكرو لعمل زر انتقال الى خلية محددة داخل جدول يتكون من عدد كبير من الاعمدة بحيث عند الضغط على زر الانتقال يتم تحريك الشاشة على اعمدة معينة وكذلك يتم وضع المؤشر داخل اول خلية فى العمود المطلوب بناءا على الصف الذى فيه المؤشر.نجحت فى عمل ماكرو لتحريك الشاشة ولكن اريد الماوس يتجه تلقائى الى خليه معينة بناءا على الصف الذى اقف فيه ...للتوضيح برجاء مراجعة الملف المرفق  

21(2) register Salah Empty 8.rar

تم تعديل أغسطس 4, 2015 بواسطه Salah1989

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub ActivateCell()
'يمكن استخدام خاصية البحث عن كلمة محددة بهذا الشكل
'في الصف الثالث [Loading Dates] لنفترض أن لديك النص
'يمكن استخدام خاصية البحث لتحديد الخلية التي تحتوي على النص
'-----------------------------------------------------------
    Dim Rng As Range
    On Error Resume Next
    Set Rng = Rows(3).Find("Loading Dates")
    Rng.Activate
    On Error GoTo 0
End Sub

 

تم تعديل أغسطس 4, 2015 بواسطه ياسر خليل أبو البراء

[Salah1989]

شكرا استاذ ياسر على الاهتمام والرد...ولو تكرمت مش عارف انفذ الكود ...بمعنى انى كتبت الكود كدا

Sub Button7_Click()
Dim Rng As Range
    On Error Resume Next
    Set Rng = Rows(3).Find("Loading Dates")
    Rng.Activate
    On Error GoTo 0
End Sub

بيوصلنى الى اول الصفحة عند "أيام التحميل" ولكن اريد انه يوصلنى الى نفس المكان ولكن فى خلية محددة طبقاا لنفس الصف اللى انا واقف فيه مش بداية الصفحة

تم تعديل أغسطس 8, 2015 بواسطه Salah1989

[ياسر خليل أبو البراء]

إذاً جرب التعديل بهذا الشكل

    Dim Rng As Range
    On Error Resume Next
    Set Rng = Rows(3).Find("Loading Dates")
    Rng.Offset(ActiveCell.Row - 3, 0).Activate
    On Error GoTo 0

 

تم تعديل أغسطس 8, 2015 بواسطه ياسر خليل أبو البراء

[محب لله ورسوله]

هل بالامكان كود مشابه

مع مراعاة ان الاعمده المراد البحث فيها بها دمج

وتحديد خليه معينه يتم كتابه الكلمه المراد البحث عنها

بمعنى ان الكلمه المراد البحث عنها متغيره

تم تعديل مايو 1, 2017 بواسطه محب لله ورسوله