تديل علي كود

[وليد زقزوق]

Sub FindFirstCellNextRow()
    Dim x As Integer
    x = ActiveSheet.UsedRange.Rows.Count
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveCell.EntireRow.Cells(1, 1).Offset(1, 0).Activate
End Sub

هذا كود للذهاب الي اخر خلية بها بيانات مباشرةولكنة يعمل علي نفس الشيت

ما اريده هو تعديل علية حيث عندما اضعة في الشيت رقم 1 مثلا وبالضغط علية ينقلني الي اخر خلية بها بيانات في الشيت رقم 2 مثلا وسوف احدد هذة الخطوة انا الي اي شيت تذهب

ارجو ان تكون مفهومة وسهلة

[حمادة عمر]

السلام عليكم

الاخ الكريم / وليد زقزوق

 

من الافضل دائما في كل مشاركة ارسال ملف لتوضيح الطلب اكثر

وعلي حسب فهمي للطلب قم بوضع الشيت الذي تريد الانتقال اليه مكانsheet2 في الكود لتحديد الشيت الذي تريده انت

فهو هنا في هذا الكود شيت 2

ارجو ان يفي بطلبك ..... او مزيد من التوضيح

جزاك الله خيرا

Sub FindFirstCellNextRow()
    Dim x As Integer
'==============================
   Sheet2.Select
'==============================
    x = ActiveSheet.UsedRange.Rows.Count
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveCell.EntireRow.Cells(1, 1).Offset(1, 0).Activate
End Sub

[وليد زقزوق]

هل تؤثر الاسم سواء عربي او انجليزي

[وليد زقزوق]

Sub FindFirstCellNextRow1()
    Dim x As Integer
'==============================
   Daily.Select
'==============================
    x = ActiveSheet.UsedRange.Rows.Count
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveCell.EntireRow.Cells(1, 1).Offset(1, 0).Activate
End Sub
يظهر لي رسالة خطا

ويكون الكود هذة الجملة باللون الاصفر هكذا فما الحل

[الخالدي]

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

لإثراء الموضوع

وبعد اذن اخي الاستاذ حمادة عمر

جرب الكود التالي للذهاب الي اخر خلية في الورقة المسمى Daily

Sub FindFirstCellNextRow()
Application.Goto Sheets("" & "Daily").Cells(Sheets("" & "Daily").Cells.SpecialCells(11).Row, 1)
End Sub

 

او الكود التالي لاختيار ورقة  ثم الذهاب الي اخر خلية فيها

Sub FindFirstCellNextRow()
Application.CommandBars("Workbook Tabs").ShowPopup
Cells(Cells.SpecialCells(11).Row, 1).Activate
End Sub

في أمان الله

[أبو حنــــين]

رائع جدا اخي الخالدي

[الخالدي]

رائع جدا اخي الخالدي

شكرا اخي أبو حنين لمرورك الكريم

في حفظ الله

[وليد زقزوق]

كودين ممتازين ولكن لا يذهبوا الي اخر خلية نشطة بها كلام او نص