eğer fonksiyonunu vba 'de yazmak

[deryabas80]

merhabalar,

Sizden bir ricam olacaktı excel'de eğer fonkdiyonu ile yazdığım komutu vba da nası yapabilirim. Kişi ilgili hücrelere değer girdiğinde; "değer yanlışsa hata vermesini " ayrıca combobox eklemeden nasıl yapabiriz?

Teşekkür eder, İyi çalışmalar dilerim.

 

[Zeki Gürsoy]

Sorunuzda biraz daha detay vermeniz gerekiyor.
Hangi hücrede değer girildiğinde hangi değere bakıp "doğru" veya "yanlış" olduğuna karar verilecek?

Combobox ne amaçla kullanılmıştı, anlayamadım.

 

[deryabas80]

örneğin;

=eğer(ve(cı26/cı7<800;cı19/cı7>25);"kontrol ediniz";"") komutu ile anlatmak istediğim;

ekim ayında soru4/soru1 ile cı26/c17(1 kişiye düşen ortalama maas kastedilmektedir)

ekim ayında cı19/c17>25 (ekim ayında çalışılan gün sayısı 25'den büyükse)

özetle; ekim ayında ekim ayında işyerinin ortlama maaşı 800 tl den küçük ve çalışılan günsayısı 25 günden büyükse formu kontrol ediniz şeklinde uyarı yazmasını istiyorum.

Hücrelere veri girdikten sonra uyarıyı cı26'nın üzerinde
göstermesini istiyorum.

Umarım açıklayıcı olmuştur.

 

[numan şamil]

Merhaba

= EĞER(VE(CI26/CI7<800,CI19/CI7>25),"KONTROL EDİNİZ","")
= EĞER(VE(DN26/DN7<800,DN19/DN7<25),"KONTROL EDNİZ","")
= EĞER(VE(ES26/ES7<800,ES19/ES7>25),"KONTROL EDİNİZ","")
Formüllerini :
kod olarak
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ([CI26] / [CI7]) < 800 And [CI19] / [CI7] > 25 Then
[FX26] = "KONTROLEDİNİZ"
Else
[FX26] = ""
End If
If ([DN26] / [DN7]) < 800 And [DN19] / [DN7] > 25 Then
[FY26] = "KONTROLEDİNİZ"
Else
[FY26] = ""
End If
If ([ES26] / [ES7]) < 800 And [ES19] / [ES7] > 25 Then
[FZ26] = "KONTROLEDİNİZ"
Else
[FZ26] = ""
End If
End Sub