السطر الاخير

**الشيباني1** · مايو 25, 2012

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

**عبدالله المجرب** · مايو 25, 2012

جرب هذا الكود


Sub Abu_Ahmed_select()

Range("B" & [B10000].End(xlUp).Row).Select

End Sub

**أبو حنــــين** · مايو 25, 2012

بعد إذن اخي عبد الله وإثراءا للموضوع

جرب المرفق

**الشيباني1** · مايو 26, 2012

حلان رائعان من استاذين جليلين ادامكما الرحمن لنا منقذا

**دغيدى** · مايو 26, 2012


Private Sub Workbook_Open()

Sheets("ورقة1").Select

  Range("B" & [B10000].End(xlUp).Row).Select

End Sub

بهذا التعديل البسيط عند فتح الملف يذهب مباشرة لآخر خلية

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