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 مثلا وسوف احدد هذة الخطوة انا الي اي شيت تذهب
ارجو ان تكون مفهومة وسهلة