ماكرو للإنتقال الى أخر خلية

[samycalls]

السلام عليكم ..

هل من الممكن عمل ماكرو للإنتقال الى أخر خلية بها قيمة أو تعبير فى عمود ما وليكن E .. مع العلم أن الملف يتم التسجيل فيه باستمرار مما يجعل أخر خليه بها قيمة أو تعبير كما ذكرنا تتغير بزيادة طول العمود ..

تحياتى ...

انتقال الى أخر خلية.rar

[ابو تراب]

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

 

جرب المرفق

انتقال الى أخر خلية.zip

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، يمكنك استعمال الكود التالي مع ربطه بزر "انتقال"...

 

الكود :

Sub LastCelInColE()
    [E11012].End(xlUp).Select
End Sub

أخوك بن علية

[samycalls]

كل تقديرى وامتنانى لأخوانى الكرام على هذه الردود التى وفت بالمطلوب ..

[samycalls]

كما أرجو سعة الصدر .. وأطلب عمل ماكرو انتقال الى كلمة أو علامة أو رقم فى العمود C

انتقال الى رفم او تعبير أو علامة.rar

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

جرب الملف التالي

انتقال الى رفم او تعبير أو علامة.rar

[samycalls]

السلام عليكم أ / ياسر ..

فى حالة وضع رمز مثل * لاينتقل اليها ..

أيضاً .. لو أن هناك أكثر من كلمة مثل محمد أو أكثر من رقم مثل 1000 لايتنقل بينهم .. كل الشكر ..

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

ماذا تتوقع عندما يكون هناك أكثر من (محمد) أو أكثر من (1000) ...ماذا تريد أن يفعل الإكسيل؟

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

أخي بالنسبة لسؤالك عن علامة الـ * ..قم باتسخدام الكود بالشكل التالي :

ActiveWorkbook.Worksheets("الخزينة").Columns(3).Find("~*").Select

[samycalls]

ماذا تتوقع عندما يكون هناك أكثر من (محمد) أو أكثر من (1000) ...ماذا تريد أن يفعل الإكسيل؟

... بكل ضغطه على زر المكرو  يتنقل بين تكرارات الاسم أو الرقم أو ...

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

أخي الفاضل سامي

جرب الكود التالي :

    If Intersect(ActiveCell, Range("C1:C1000")) Is Nothing Then Range("C1").Select
    Range("C1:C1000").Find("~*", ActiveCell, xlValues).Select

[samycalls]

أخى الكريم ياسر ..

أشكرك على ماقدمته من حلول .. فهى اصابت ما أريده ..

كل الشكر ..

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

الحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي أخ سامي اتصالات (وخليك على اتصال keep in touch)

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

ما رأيك في ان تختار اي عامود تريد

select_aux_choix.rar

[samycalls]

كود جميل .. أخى سليم ..

جزاك الله خيراً ..

[samycalls]

كل تحياتى وتقديرى الى كل من شارك من الأخوة الكرام ..