Birden Fazla Eğer Kullanımı

[sukruyilmaz1]

Merhabalar Sayın Uzmanlarım,

Ekli Müşteri kayıt formunda, Eğer "Proje Adı, Blok Adı, Blok No, Kat No ve Daire No" daha önce girildiyse uyarı verip işlem yapmamasını nasıl sağlarız? Yani aynı daireyi tekrardan satış yapılmasını nasıl engelleriz?

şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Zaten kayıt işleminde bir sorgu eklemişsiniz. Fakat yazım hataları var. Sanırım bir yerlerden kopyala-yapıştır yapıyorsunuz. Bunun için aşağıdaki linkleri incelemenizi öneririm.

https://www.excel.web.tr/threads/kod-yazmayi-oegreniyorum.4228/

Uygulamalı Excel Eğitimi

Bu başlıkta uygulamalı excel eğitimi verebilir yada verilen eğitimlere katılabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)

www.excel.web.tr

Veri Yönetimi Uygulamaları

Bu başlıkta, Veri kaydetme, değiştirme, silme gibi özellikleri içeren veri yönetimi uygulamalarını bulabilirsiniz.

www.excel.web.tr

Userform ve Nesnelere Yönelik uygulamalar

Bu başlıkta, userform ve nesnelerinin özelliklerini değiştirme, yeni özellikler ilave etme gibi nesneye yönelik uygulamaları bulabilirsiniz.

www.excel.web.tr

Kendi kullandığınız sorguyu aşağıdaki gibi değiştirip deneyiniz. Bütün koşullar aynı anda sağlandığında uyarı verecektir.

If WorksheetFunction.CountIf(Sheets("Data").Range("L:L"), ComboBox4.Value) > 0 And _
    WorksheetFunction.CountIf(Sheets("Data").Range("M:M"), ComboBox7.Value) > 0 And _
    WorksheetFunction.CountIf(Sheets("Data").Range("N:N"), ComboBox8.Value) > 0 And _
    WorksheetFunction.CountIf(Sheets("Data").Range("O:O"), ComboBox9.Value) > 0 And _
    WorksheetFunction.CountIf(Sheets("Data").Range("P:P"), ComboBox10.Value) > 0 Then
    MsgBox "Bu daire daha önce satılmış!", vbCritical
    Exit Sub
End If

 

[sukruyilmaz1]

@Korhan Ayhan Çok teşekkür ederim. Doğrudur sizlerin vasıtasıyla öğrenmeye çalışıyorum. kodları yapılmış örneklerden bakarak öğrenmeye çalışıyorum. verdiğiniz linklerden çalışmaya devam edeceğim teşekkür ederim @Korhan Ayhan