Satır ve Kolon Kontrolü

[Tarikkk_]

Merhabalar. örnekteki makroda N ve O sütunları boş değil ise Q sütunundaki boş sütuna veri girmemiz için bizi Q sütunundaki boş satıra yönlendiriyor.
yani İŞLEM VE AÇIKLAMA dolu ise TAPU DURUMU girmemizi zorunlu hale getiriyor.
fakat benim istediğim bunu o satırdaki İŞLEM ve AÇIKLAMA dışında bir yere tıkladığımda uyarı versin.
örnekte TAPU DURUMU boş olan yeşil renk işaretlediğim YAP SAT ve MAHMUT AŞAR yazan hücreler hariç sayfada herhangi bir yere tıkladığımızda uyarı mesajı çıkmasını istiyorum. bunun için aşağıdaki kodu kullandığımda hata alıyorum. 2 gündür uğraşıyorum yapamadım. yardımlarınızı bekliyorum. şimdiden teşekkür ederim.

If ActiveCell.Row <> Satır And ActiveCell.Column <> 14 Then

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
son = WorksheetFunction.Max(6, Cells(Rows.Count, "N").End(3).Row, Cells(Rows.Count, "O").End(3).Row)
For i = 6 To son
    If Cells(i, "Q") = "" And Cells(i, "N") <> "" And Cells(i, "O") <> "" Then
        Application.EnableEvents = False
            Cells(i, "Q").Select
        Application.EnableEvents = True
        MsgBox "Tapu durumunu giriniz!", vbExclamation
        Exit Sub
    End If
Next
End Sub

 

[Tarikkk_]

hocam bu kodlar benim işimi görmüyor tam olarak anlatamadım sanırım.
alttaki kodlara göre yapmaya çalıştığım şey
N ve O sütunları dolu Q sütunu boş ise N Sütununda sadece o satırda değişiklik yapmama izin versin diğer tüm sayfada her hangi bir yere tıkladığımda uyarı versin

If ActiveCell.Row <> Satır And ActiveCell.Column <> 14 Then
bu kodu koyduğumda 14. sütunun tamamında uyarı vermiyor.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    
    SonSatır = ActiveSheet.Cells(Rows.Count, "D").End(3).Row
    
      
    For Satır = 6 To SonSatır
    
    
    If ActiveCell.Row <> Satır And ActiveCell.Column <> 14 Then
        If Cells(Satır, "N") <> "" And Cells(Satır, "O") <> "" Then
            If Cells(Satır, "Q") = "" Then
                Application.EnableEvents = True
                
                MsgBox (ActiveSheet.Name & " SAYFASI " & Satır & ". SATIRDA İŞLEM MEVCUT  TAPU SÜTUNU " & " BOŞ KALMAMALIDIR..!!")
                Cells(Satır, "Q").Select
                
                Exit Sub
            End If
        End If
        End If
    Next Satır
    

End Sub