العوده الى صفحة القائمة والى اخر خليه فارغه في العمود B

[ابو مارفن]

السلام عليكم 

محتاج تعديل على كود العوده لكي يتم تحديد صفحة القائمة واختيار اخر خليه لاتحتوي على بيانات في العمود B

مع جزيل الشكر والامتنان لجهود الجميع 

Private Sub CommandButton5_Click()
Dim lr As Long:         lr = Sheets("قائمة").Cells(Rows.Count, 2).End(xlUp).Row
 Range("lr + 1").Select
End Sub

العوده الى القائمة.xlsm

[هانى محمد]

وعليكم السلام ... انتبه من فضلك فقد تمت الإجابة من قبل استاذنا الكبير ابراهيم الحداد على منتدى اكاديمية الصقر

وذلك بجعل السطر الأخير هكذا

Sheets("قائمة").Range("B" & lr + 1).Select

 

[ابو مارفن]

قمت باجراء بعض التعديل على الكود لكي يتم تنفيذه من صفحة اخرى غير صفحة القائمة كما هو موضح ادناه فيتم التنفيذ المطلوب هل هو صحيح برمجيآ

تحياتي لكم 

Private Sub CommandButton5_Click()
Dim lr As Long
Sheets("قائمة").Select
lr = Cells(Rows.Count, 2).End(xlUp).Row
Range("B" & lr + 1).Select
End Sub

 

 

[عبدالله صباح]

السلام عليكم

اشتغل عندي الكود وتمام

فقط غيرت في هذا السطر

lr = Cells(Rows.Count, 2).End(xlUp).Row 

واصبح الآتي

lr = Cells(Rows.Count, 1).End(xlUp).Row