هذا الكود للذهاب لآخر خلية بالعمود
المطلوب العكس كيف أذهب لأول خلية بالعمود أو خلية محددة معلومة
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
' Final معرفة آخر خلية بها بيانات بالعمود
Sub First()
Dim FirstBlankCell As Long, rngFound As Range
With Sheets("All")
Set rngFound = .Columns("H:H").Find("*", After:=.Range("H1"), _
SearchDirection:=xlPrevious, LookIn:=xlValues)
If Not rngFound Is Nothing Then FirstBlankCell = rngFound.Row + 1
'If we omit the value 1 we will get the last cell that contains data.
rngFound.Offset(1, 0).Select
End With
End Sub