اذهب الي المحتوي
أوفيسنا

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


samycalls

الردود الموصى بها

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

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

تحياتى ...

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

رابط هذا التعليق
شارك

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

 

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

 

الكود :

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

أخوك بن علية

  • Like 2
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

ActiveWorkbook.Worksheets("الخزينة").Columns(3).Find("~*").Select
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information