Mükerrer Kayıdı Engelleme Hakkında

[drummers]

Ekli dosyamda "makbuz" sekmemde makbuzu yazdır dediğimde "AC5" hücresini 1 arttırıyor ve ilgili alanları "veri" sekmesine aktarıyor.

İsteğim Şudur: "veri" sekmesine verilerim aktarılırken makbuz no sunu mükerrer yazmasını engellemek. Yani 1 nolu makbuz 2 sefer kesilemesin.


Teşekkürler.

 

[Ömer]

Merhaba,

sat = sh.Cells(65536, "A").End(xlUp).Row + 1

bu satırdan sonra aşağıdaki satırı ekleyiniz..

If Application.CountIf(sh.[A:A], Range("AC5")) > 0 Then
    MsgBox "Mükerrer Kayıt"
    Exit Sub
End If

.

 

[drummers]

teşekkür ederim