Koşullu Mesaj Makrosu

[baydeniro]

Aşağıdaki makroyu çift koşula bağlamak mümkün mü ?

B sütununda "Personel" ve F sütununda "Sicil" yazıyorsa; "Lütfen Sicil yazmayın" mesajının belirmesi nasıl elde edilebilir ?


Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] < 2 Then MsgBox "Makbuz Tarihi Giriniz"
End Sub

 

[ozgretmen]

Aşağıdaki makroyu çift koşula bağlamak mümkün mü ?
B sütununda "Personel" ve F sütununda "Sicil" yazıyorsa; "Lütfen Sicil yazmayın" mesajının belirmesi nasıl elde edilebilir ?
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] < 2 Then MsgBox "Makbuz Tarihi Giriniz"
End Sub

Sorunuzu örneklendirir misiniz ?

If [B1] = "Personel" And [F1] = "Sicil" Then
MsgBox " Lütfen Sicil yazmayın."
End If

 

[uzmanamele]

merhaba
bu işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If [b1] = "personel" And [f1] = "sicil" Then MsgBox "sicil yazmayınız"
End Sub

"and" "or" gibi (ve, veya) kıyaslaması yapabilirsiniz

 

[baydeniro]

Merhaba ilginize çok teşekkür ederim.

 

[baydeniro]

Merhaba ilginize çok teşekkür ederim. Acaba bu kodu tüm B ve tüm F sütununa etki edecek şekilde revize edebilir miyiz !!

 

[uzmanamele]

merhaba
dosyanızı eklerseniz çözüm daha net olur.
b1 ve f1 de ilgili bilgiler varken b5 ile çalışırken makro çalışsın istemezsiniz herhalde.

 

[baydeniro]

Sayın uzmanamele ilginiz için çok teşekkür ederim. Kusura bakmayın hemen cevapş veremedim. Örnek dosya ekte :

 

[uzmanamele]

merhaba
bu kod çalışır ama sizi hataya sürükler.
C ve E kolonları için yazım kontrolü yaptırmalısınız.
büyük-küçük harf kontrolü ve yazım düzünü olmadan işe yaramaz. "E" yerine "e" yazmak gibi.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c:c")) Is Nothing Then Exit Sub
If Target.Text = "Erkek" And Cells(Target.Row, 5) = "Yaptı" Then
MsgBox "sicil yazmayiniz"
End If
End Sub

 

[baydeniro]

Uzmanamele ilginiz için çok teşekkür ederim. Aşağıda bir kod var bu kod sadece Harf ibaresi el ile yazılırsa çalışıyor, listeden seçilirse çalışmıyor. "Harf" ibaresi listeden seçilmesi durumunda da bu kodun çalışması mümkün mü ?