Koşullu Hücre Kilitleme

[serukanu]

Merhaba
Bir konu hakkında yardımlarınızı rica edeceğim
A Sütununda evet yazınca B sütununda ilk gönderim değil yazıp hücreyi kitlesin
Hayır yazınca veri girilmesine izin versin
çok denedim ama başarılı olamadım,

şimdiden teşekkürler

Dış Hizmet Takip Dosyası 100.xltm

1 file sent via WeTransfer, the simplest way to send your files around the world

wetransfer.com

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(ActiveCell.Row, "A") = "Hayır" And ActiveCell.Column = 2 Then
        MsgBox "Bu hücreye veri girişi kısıtlanmıştır!", vbCritical
        ActiveCell.Next.Select
    End If
End Sub