Kod değişikliği

[Barons]

Merhaba

Aşağıdaki kod AZ kolonunu kontrol ederek mükerrer girişi engelliyor ancak verilerin aynı sayfada olması gerekiyor.Başka bir sayfada veri olduğunda kodda ne gibi değişiklik olması gerekiyor.Örnek olarak AZ kolonu siparis sayfasında olsa idi koddaki satır ne olmalıydı?

Çok Teşekkürler

Değişiklik yapılacak satır:

say = WorksheetFunction.CountIf([AZ:AZ], KRİTER)


Ana kod:

Dim KRİTER As String, say As Integer, SATIR As Long
If TextBox1 <> "" And TextBox12 <> "" And TextBox4 <> "" And TextBox6 <> "" And TextBox11 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" Then
KRİTER = TextBox1 & TextBox12 & TextBox4 & TextBox6 & TextBox11 & TextBox8 & TextBox9 & TextBox10
say = WorksheetFunction.CountIf([AZ:AZ], KRİTER)
If say > 0 Then
MsgBox "Mükerrer kayıt !" & Chr(10) & "Lütfen kontrol ediniz !", vbCritical, "Dikkat !"
Exit Sub
End If

 

[Korhan Ayhan]

Selamlar,

Kodun içinde geçen hücre adresinin önüne sayfa adını eklemeniz yeterli olacaktır.

say = WorksheetFunction.CountIf([[COLOR=red]sipariş![/COLOR]AZ:AZ], KRİTER)

 

[Barons]

Hocam çok teşekkürler