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

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


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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information