الشيت لا يسمح بتحديد اي صف او عمود

[فارس حسن]

لماذا الشيت لا تسمح بتحديد اي صف او عمود .. مع العلم لا توجد حماية على الشيت او الخلايا ..

 

حدثت المشكلة بعد استخدام الكود التالي الذي وضع بحدث الشيت عند

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim LastColumn As Integer
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Cells.Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If LastRow <> 65536 Then LastRow = LastRow + 1
LastColumn = Cells.Find(What:="*", After:=[a1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If LastColumn <> 256 Then LastColumn = LastColumn + 1
Me.ScrollArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)).Address
ScrollArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)).Address

Else
Me.ScrollArea = ""
ScrollArea = ""

End If
END SUB

ولم تحل المشكلة رغم ايقاف الكود ..

كذلك  لا ينتقل المؤشر الى اخر صف عند الضغط  CTRL+سهم اسفل

كذلك  لا ينتقل المؤشر الى اخر عمود عند الضغط  CTRL+سهم يمين

 

 

 

 

 

 

[حسونة حسين]

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

يرجي رفع ملفك الذي به المشكله