Çözüldü Listbox Veri Girişinde Aynı Bilgilerde Uyarı Alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

benmert

Normal Üye
Excel Versiyonu
Excel 2013
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba 8 textbox 'a isim soyisim, tckn, telefon numarası, adres vb. müşteri bilgileri giriyorum. Tüm müşteri bilgileri listboxta sıralanıyor. Fakat aynı müşteri bilgilerini girdiğimde tekrar eklemesi yerine beni uyarmasını istiyorum. Yardımcı olabilir misiniz? Desteğinizi rica ederim.
 
Listboxtaki verileri değil de kayıt yaptığınız verileri kontrol etmesi gerekir. Bunun içinde kayıt yapma şeklinizi içeren örnek bir dosya eklerseniz sorununuz daha kısa sürece çözüme kavuşur
 
Listboxtaki verileri değil de kayıt yaptığınız verileri kontrol etmesi gerekir. Bunun içinde kayıt yapma şeklinizi içeren örnek bir dosya eklerseniz sorununuz daha kısa sürece çözüme kavuşur
Merhabalar,

Textbox içerisine yazdığım bilgilerin sayfaya kaydedilmesi için ''müşteri bilgilerini kaydet'' isimli buton kullanıyorum. Kodlar aşağıdadır. Teşekkürler.

Sheets("musteriBilgileri").Select
Range("A2:H2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


Sheets("musteriBilgileri").Range("A2").Value = TextBox2.Text
Sheets("musteriBilgileri").Range("B2").Value = TextBox3.Text
Sheets("musteriBilgileri").Range("C2").Value = TextBox4.Text
Sheets("musteriBilgileri").Range("D2").Value = TextBox5.Text
Sheets("musteriBilgileri").Range("E2").Value = TextBox6.Text
Sheets("musteriBilgileri").Range("F2").Value = TextBox7.Text
Sheets("musteriBilgileri").Range("G2").Value = TextBox8.Text
Sheets("musteriBilgileri").Range("H2").Value = TextBox10.Text
Sheets("anaSayfa").Select
MsgBox "Müşteri Bilgileri Kaydedildi"
 
Merhabalar,

Textbox içerisine yazdığım bilgilerin sayfaya kaydedilmesi için ''müşteri bilgilerini kaydet'' isimli buton kullanıyorum. Kodlar aşağıdadır. Teşekkürler.

Sheets("musteriBilgileri").Select
Range("A2:H2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


Sheets("musteriBilgileri").Range("A2").Value = TextBox2.Text
Sheets("musteriBilgileri").Range("B2").Value = TextBox3.Text
Sheets("musteriBilgileri").Range("C2").Value = TextBox4.Text
Sheets("musteriBilgileri").Range("D2").Value = TextBox5.Text
Sheets("musteriBilgileri").Range("E2").Value = TextBox6.Text
Sheets("musteriBilgileri").Range("F2").Value = TextBox7.Text
Sheets("musteriBilgileri").Range("G2").Value = TextBox8.Text
Sheets("musteriBilgileri").Range("H2").Value = TextBox10.Text
Sheets("anaSayfa").Select
MsgBox "Müşteri Bilgileri Kaydedildi"
Dosya ektedir.dosya linki
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Konuyu başlatan
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
5
Üst