الذهاب لأول خلية بالعمود أو خلية محددة معلومة

[أبو يوسف النجار]

هذا الكود للذهاب لآخر خلية بالعمود

المطلوب العكس كيف أذهب لأول خلية بالعمود أو خلية محددة معلومة

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

'           Final   معرفة آخر خلية بها بيانات بالعمود

Sub First()

    Dim FirstBlankCell As Long, rngFound As Range
    
    With Sheets("All")
        Set rngFound = .Columns("H:H").Find("*", After:=.Range("H1"), _
            SearchDirection:=xlPrevious, LookIn:=xlValues)
        If Not rngFound Is Nothing Then FirstBlankCell = rngFound.Row + 1
        'If we omit the value 1 we will get the last cell that contains data.
        rngFound.Offset(1, 0).Select
    End With
End Sub

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

أخي الكريم أبو يوسف النجار

يرجى وضع الأكواد بين أقواس الأكواد لتظهر بشكل مناسب

جرب الكود التالي للذهاب إلى أول خلية في العمود بها بيانات

Sub NavigateToFirstNonBlankCell()
    With Columns("A")
        .Find(what:="*", After:=.Cells(1, 1), LookIn:=xlValues).Activate
    End With
End Sub

تقبل تحياتي

[أبو يوسف النجار]

تمام أستاذ ياسر تم التنفيذ والتجربة

وأيضا الحمد لله  تم الذهاب بتسجيل ماكروو جديد

تم تعديل يونيو 8, 2015 بواسطه أبو يوسف النجار

[أبو يوسف النجار]

شكرا جزيلا أستاذ ياسر دائما سباق للخير

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

الأخ الحبيب أبو يوسف

الحمد لله أن تم المطلوب على خير وجزيت خيراً على تحديد أفضل إجابة وعلى الإعجاب

 

عايز أقولك :

ليس التسجيل كالفيديو وليس الفيديو كاالانترنت وليس الأيفون كموبايل نوكيا العادي ..

أعتقد فهمتني ..

صحيح تسجيل الماكرو مفيد في بعض الأحيان ، لكن مش بيحل كتير من المشكلات ..فقط للتوضيح

تقبل تحياتي