Aktif Hücre 4.satırdan aşağıda ise "GH" yazılamasın

[baydeniro]

Merhaba Arkadaşlar
İşlem yapılacak hücre 9. satırdan aşağıda ise "GH" yazılamasın istiyorum. Aşağıdaki kodlar denedim ama çalışmadı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then
ActiveCell <> "GH"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then
Target.Offset(0, 0) <> "GH"
End If
End Sub

 

[EmrExcel16]

" <> " yerine " = " yaparak denemelerinizi yapin.

 

[baydeniro]

" <> " yerine " = " yaparak denemelerinizi yapin.

EmreExcel üstad teşekkür ediyorum ilgine. Ama "GH" yazılmak istenirse, buna izin vermemesini istiyorum.

 

[EmrExcel16]

If Target.Offset(0, 0) = "GH" Then
    Msgbox "GH yazilamaz"
End If

 

[baydeniro]

If Target.Offset(0, 0) = "GH" Then
    Msgbox "GH yazilamaz"
End If

Üstad çok teşekkürler. Peki 3 koşul olması durumunda kod nasıl olmalı acaba
Örneğin,GH veya YT veya PL yazılması dururmunda kod çalışsın istenirse
Target.Offset(0, 0) = "GH"
Target.Offset(0, 0) = "YT"
Target.Offset(0, 0) = "PL"

 

[Haluk]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 4 Then
        If Target = "GH" Or Target = "YT" Or Target = "PL" Then
            MsgBox "yasak..."
            Target = ""
        End If
    End If
End Sub

.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 4 Then
        Select Case UCase(Target)
            Case "GH", "YT", "PL"
            MsgBox "Lütfen kriterlere uygun veri girişi yapınız!", vbCritical
            Target = ""
            Target.Select
        End Select
    End If
End Sub

 

[baydeniro]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 4 Then
        If Target = "GH" Or Target = "YT" Or Target = "PL" Then
            MsgBox "yasak..."
            Target = ""
        End If
    End If
End Sub

.

Haluk üstadım çok teşekkürler. Sağlıcakla kalın

 

[baydeniro]

Alternatif;

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 4 Then
        Select Case UCase(Target)
            Case "GH", "YT", "PL"
            MsgBox "Lütfen kriterlere uygun veri girişi yapınız!", vbCritical
            Target = ""
            Target.Select
        End Select
    End If
End Sub

Üstad çok teşekkür ederim. Sağlıcakla kalın