Koşula Bağlı Zorunlu Veri Girişi

[efendiaz]

Merhaba.

Sizleri Azerbaycandan rahatsiz ediyorum.

E2 hücresinde Data validation drop down listesi yaptim.

Eger E2 hücresindeki listeden "Satış","Alış","Usta","malzemeci" kelimelerinden birisi seçilirse seçilirse, C2 hücresine verinin girilmesi zorunlu olsun ve "lütfen C2 hücresine proje numarasini giriniz" mesaji çıksın. ve C2 hücresine veri girilmeden hiç bir işleme izin verilmesin. ve bunu tüm sütün için uygulamak istiyorum.

Yardımcı olursaniz sevinirim.

Saygılar.

 

[Ömer]

Merhaba,

Çalıştığınız sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim j As Byte, deg

    deg = Array("Satış", "Alış", "Usta", "Malzemeci")
    
    ActiveSheet.Unprotect

    If Range("C2") = "" Then
        For j = 0 To UBound(deg)
            If Range("E2") = deg(j) Then
                MsgBox "Lütfen C2 Hücresine Proje Numarasını Giriniz"
                Cells.Locked = True
                Cells.FormulaHidden = False
                Range("E2").Locked = False
                Range("C2").Locked = False
                ActiveSheet.Protect DrawingObjects:=True, _
                    Contents:=True, Scenarios:=True, AllowFiltering:=True
                Exit Sub
            End If
        Next j
    End If
 
End Sub

.

 

[efendiaz]

Ömer bey teşekkür ederim.

Çalıştı fakat bir sorun var. Bunu tüm sütun için uygulamak istiyorum.

Merhaba,

Çalıştığınız sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim j As Byte, deg

    deg = Array("Satış", "Alış", "Usta", "Malzemeci")
    
    ActiveSheet.Unprotect

    If Range("C2") = "" Then
        For j = 0 To UBound(deg)
            If Range("E2") = deg(j) Then
                MsgBox "Lütfen C2 Hücresine Proje Numarasını Giriniz"
                Cells.Locked = True
                Cells.FormulaHidden = False
                Range("E2").Locked = False
                Range("C2").Locked = False
                ActiveSheet.Protect DrawingObjects:=True, _
                    Contents:=True, Scenarios:=True, AllowFiltering:=True
                Exit Sub
            End If
        Next j
    End If
 
End Sub

.