cari listesinin bulunduğu sayfanın adaı Sayfa1,Sayfa2.. v.s. her neyse Carilistesi olarak değiştirin. Yada yazdığım kod satırlarındaki "Carilistesi" yazısını cari listenizin bulunduğu sayfa adıyla değiştirin(Sayfa2 gibi)
Yenicari sayfanızdaki alanlarıyla aynı olan Carilistenizdeki alanlarda alan isimleri aynı olsun.
Cari Listesindeki alanbaşlığı CARI_ISIM ise Yeni cari sayfasındaki alanbaşlığıda aynı olsun(CARI_ISIM). Çünkü aramayı alanbaşığına göre yaptım.
Geliştirici sekmesinden Commanbuton ekleyin ve içine aşağıdaki döngüyü yapıştırın.
Yenicari listesine 1 den fazla kayıt alınacaksa sorgulamaya eklenme yapılması gerekiyor. Bu sadece 1 kayıt için geçerli.
For a = 2 To 50
If Cells(2, a) <> "" Then
For b = 2 To 50
If Cells(1, a) = Carilistesi.Cells(1, b) Then
say = 0
For c = 2 To 100000
If Carilistesi.Cells(c, b) <> "" Then
If Cells(2, a) = Carilistesi.Cells(c, b) Then
say = say + 1
End If
End If
Next c
If say = 0 Then
MsgBox "Müşteri Daha Önceden Kayıtlı Değil"
c = 100000
b = 50
a = 50
End If
If say <> 0 Then
MsgBox "Müşteri Daha Önceden Kayıtlı"
c = 100000
b = 50
a = 50
End If
End If
Next b
End If
Next a