Mükerrer Kayıt

[yavuz829]

Merhaba arkadaşlar ekli dosyamda form sayfasından bul sayfasına aktarma yaptığım zaman A sütünündaki Dosya Nosunda ayi numara varsa uyarı versin yani mükerrer kayıt yapmasın. Bu konuda yardımlarınızı bekliyorum.

 

[zafer]

Merhaba

Kaydet makrosuna aşağıdaki kodlar ilave edilmiştir

Dim aranan As Integer
aranan = Sheets("Form").Range("c23")
c = Application.Match(aranan, Sheets("BUL").Range("a2:a" & sonsat), 0)
If Not IsError(c) Then GoTo 10:

ekli dosyayı inceleyiniz.

 

[yavuz829]

Çok teşekürler hocam ellerinize sağlık. Mükerer kayıt yapmiyor. Bu kişi kayıtlı olduğundan yeni kayıt yapılmamıştır. Uyarısını verse çok iyi olur.

 

[zafer]

Merhaba

alt+f11 tuşları ile VBA kod penceresine girin
Aktar makrosundaki altaki satırı kendinize göre değiştiriniz.

Bende değiştiririm fakat ileride size yardımcı olur

10:
MsgBox ("[COLOR=red]aynı kayıt vardır[/COLOR]")

 

[yavuz829]

Çok teşekürler hocam ellerinize sağlık.