Aynı hücrede 1 den fazla doğrulama olabilirmi?

[akman37]

Arkadaşlar merhaba;

Doğrulama fonksiyonu nu ''Liste'' olarak kullandığım bir hücrede,
''Özel '' olarakta kullanmam gerekiyor. Bu mümkünmü?

Yani bir hücrede zaten ''Doğrulama'' var bunun üzerine ''doğrulama'' fonksiyonunu ikinci kere kullanmam gerekiyor. Yardımlarınız için çok teşekkür ederim.
Dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

İkinci istediğinizi makro ile çözebilirsiniz. Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp N sütunundan hücre seçmeyi deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [N4:N65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Cells(Target.Row, "M") = "" Then
    MsgBox "LÜTFEN  M" & Target.Row & "  HÜCRESİNE VERİ GİRİNİZ !", vbExclamation, "DİKKAT !"
    Cells(Target.Row, "M").Select
    End If
End Sub

 

[akman37]

Çok teşekkürler

Çok teşekkür ederim.Makroyu kopyaladım. Ve işimi gördü. Bu makronun diğer sutunlarada uygulanabilmesi için nasıl olması gerekir konusunda da yardımcı olabilirseniz çok sevirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [D4:BD65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Offset(0, -1) = "" Then
    MsgBox "Lütfen  " & Cells(3, Target.Column - 1) & "  bölümüne veri giriniz !", vbExclamation, "DİKKAT !"
    Target.Offset(0, -1).Select
    End If
End Sub