boş satır ve sütun geçmeme

[masuk500]

merhaba arkadaşlar
aşağıdaki kod ile bir önceki satır veya sütun boş ise veri girişi yapılamıyor.diyelimki siz en son hücreyi seçtiniz bu defada dolu hücreyi bulana kadar önce yukarıya sonrada sola doğru hareket ediyor.bunu yukarı doğru ilk boş hücre ve sola doğru ilk boş hücreye göre nasaıl ayarlarız.




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A3:Q1502]) Is Nothing Then Exit Sub
If ActiveCell.Offset(-1, 0).Value = "" Then
MsgBox " ÜSTTEKİ BİLGİ EKSİK, LÜTFEN EKSİK BİLGİYİ GİRİN"
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(0, 0).Select
If ActiveCell.Offset(0, -1).Value = "" Then
MsgBox " ÖNCEKİ BİLGİ EKSİK, LÜTFEN EKSİK BİLGİYİ GİRİN "
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 0).Select
End If
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Doğru anladığımdan emin değilim ama aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A3:Q1502]) Is Nothing Then Exit Sub
    If ActiveCell.Offset(-1, 0).Value = "" Then
    MsgBox "ÜSTTEKİ BİLGİ EKSİK, LÜTFEN EKSİK BİLGİYİ GİRİN."
    ActiveCell.End(3).Offset(1).Select
    End If
    If ActiveCell.Offset(0, -1).Value = "" Then
    MsgBox "ÖNCEKİ BİLGİ EKSİK, LÜTFEN EKSİK BİLGİYİ GİRİN."
    ActiveCell.End(1).Select
    If ActiveCell <> "" Then ActiveCell.Next.Select
    End If
Son:
End Sub

 

[masuk500]

sayın korhan ayhan evet böyle ama küçük bi sorun var
sola doğru giderken satırdaki ilk dolu hücreye gidiyor.satırdaki ilk boş hücreye gitmesi lazım .

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[masuk500]

aynı sonucu verdi.yani hala dolu hücreye sıçrıyor.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu tekrar güncelledim. İncelermisiniz.

 

[masuk500]

tamam teşekkür ederim sayın korhan ayhan