kontrol

[Barons]

merhaba
Aşağıdaki kod ile userform ile veri girişi sırasında Sat! sayfasındaki L kolonunu kontrol ediyorum ve ona göre mesaj alıyorum.
Bu koda ilave olarak P ve Q kolonlarınıda kontrol etmek istiyorum?Nasıl yapabilirim?

Not: "ComboBox3 & TextBox8 & TextBox9 & TextBox10 & ComboBox2 " şartı aynen geçerlidir.

Teşekkürler


Dim KRT As String, SY As Integer, sat As Long
If ComboBox3 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" And ComboBox2 <> "" Then
KRT = ComboBox3 & TextBox8 & TextBox9 & TextBox10 & ComboBox2
SY = WorksheetFunction.CountIf([sat!L:L], KRT)
If SY > 0 Then
TextBox14.Value = "D e v a m"
Else
MsgBox "uyumsuzluk tespit edildi.!" & Chr(10) & "Lütfen kontrol ediniz !", vbCritical, "Dikkat !"
Exit Sub
End If
End If

 

[Korhan Ayhan]

Selamlar,

İlgili sütunları neye göre kontrol edeceksiniz? Bu sütunlar ne ile kıyaslanacak?

 

[Barons]

merhaba
hocam ilgili sütunlar yukarıda kodda verdiğim ;
KRT= ComboBox3 & TextBox8 & TextBox9 & TextBox10 & ComboBox2
kritere göre kontrol edeceğim ve aynı kriteri P ve Q kolonlarındada kullanmak istiyorum.Yani P ve Q kolonlarındada userform üzerinde bu değerlerin birleşimi varmı yokmu kontrol etmek istiyorum.aynen L kolonunda olduğu gibi.

 

[Barons]

tam anlatamadım sanırım

 

[Korhan Ayhan]

Selamlar,

Kıyaslama önceliğini belirtmediğiniz için aşağıdaki şekilde sorguyu oluşturdum.

Option Explicit
 
Sub TEST()
    Dim KRT As String, SY1 As Integer, SY2 As Integer, SY3 As Integer, sat As Long
 
    If ComboBox3 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" And ComboBox2 <> "" Then
    KRT = ComboBox3 & TextBox8 & TextBox9 & TextBox10 & ComboBox2
[COLOR=blue]    SY1 = WorksheetFunction.CountIf([sat!L:L], KRT)[/COLOR]
[COLOR=blue]    SY2 = WorksheetFunction.CountIf([sat!P:P], KRT)[/COLOR]
[COLOR=blue]    SY3 = WorksheetFunction.CountIf([sat!Q:Q], KRT)[/COLOR]
[COLOR=blue]    If SY1 > 0 And SY2 > 0 And SY3 > 0 Then[/COLOR]
    TextBox14.Value = "D e v a m"
    Else
    MsgBox "uyumsuzluk tespit edildi.!" & Chr(10) & "Lütfen kontrol ediniz !", vbCritical, "Dikkat !"
    Exit Sub
    End If
    End If
End Sub

 

[Barons]

hocam çok teşekkürler,
henüz test etmedim ama kodu incelediğimde konunun anlaşıldığını gördüm.
çok teşekkürler