Merhaba Arkadaşlar,
RENKEKRANI formunda KAYDET içerisinde mükerrer kayıtı engellemek için kendi çapımda yazdığım bir kod var,
A1048576 yerine son dolu satıra kadar baktırabilir miyiz bunu bi türlü yapamadım,
Bu mükerrer girişi birçok formda kullanıcam,
İleride veri girişi çok olacağından hızlı ve stabil çalışacak bir kod olmasını istiyorum,
RENKEKRANI formu için bir örnek verebilirseniz ben tüm formlara uygularım,
Sitede bi kaç örnek buldum ancak anlayamadım ben sadece TextBox16 boş ise işlem yapmayacak dolu ise ve aynı kayıt var ise kaydetmeyecek yeni kayıt ise kayıt yapacak,
Yardımlarınızı rica ediyorum.
Sheets("RENKLER").Select
[A1048576].End(xlUp).Offset(1, 0).Select
For Each BUL In Range("B2:B" & Range("A1048576").End(3).Row)
If BUL.Value = TextBox16.Text Then
MsgBox " AYNI STOK KODU VAR OLDUĞU İÇİN KAYIT YAPILAMAZ." _
Exit Sub
End If
Next BUL
RENKEKRANI formunda KAYDET içerisinde mükerrer kayıtı engellemek için kendi çapımda yazdığım bir kod var,
A1048576 yerine son dolu satıra kadar baktırabilir miyiz bunu bi türlü yapamadım,
Bu mükerrer girişi birçok formda kullanıcam,
İleride veri girişi çok olacağından hızlı ve stabil çalışacak bir kod olmasını istiyorum,
RENKEKRANI formu için bir örnek verebilirseniz ben tüm formlara uygularım,
Sitede bi kaç örnek buldum ancak anlayamadım ben sadece TextBox16 boş ise işlem yapmayacak dolu ise ve aynı kayıt var ise kaydetmeyecek yeni kayıt ise kayıt yapacak,
Yardımlarınızı rica ediyorum.
Sheets("RENKLER").Select
[A1048576].End(xlUp).Offset(1, 0).Select
For Each BUL In Range("B2:B" & Range("A1048576").End(3).Row)
If BUL.Value = TextBox16.Text Then
MsgBox " AYNI STOK KODU VAR OLDUĞU İÇİN KAYIT YAPILAMAZ." _
Exit Sub
End If
Next BUL
