Üzerinde çalıştığım ekteki programımda. Visual Basic'ten Userformlara gelirseniz orada chkaydi isimli userform mevcut bu chkaydi userformunu çalıştırırsanız. Bu userform ile fatura kaydı yaptıran komutları kullandım. Fakat aynı fatura numarası tekrar girilmeye çalışırsa izin verdirmiyorum ve msgbox ile hata iletisi verdiyorum. Fakat benim istediğim sadece fatura numarası kontrol ettirmek değil, örneğin Daha önce ALİ şirketine ait 1234 numaralı fatura girilmişse daha sonra yine ALİ şirketine ait aynı fatura numarası girilmesin ama firma değişirse mesela MEHMET şirketine 1234 nolu fatura girilebilirsin. Bunun için uğraştım ama çözemedim. Benim kullandığım kod;
If WorksheetFunction.CountIf(Sheets("Data").Range("e6:e65536"), cno) > 0 Then
MsgBox "" & cno.Value & " Nolu fatura daha önce girilmiştir.", vbCritical, "Dikkat !"
Exit Sub
End If
If WorksheetFunction.CountIf(Sheets("Data").Range("e6:e65536"), cno) > 0 Then
MsgBox "" & cno.Value & " Nolu fatura daha önce girilmiştir.", vbCritical, "Dikkat !"
Exit Sub
End If