userformda kayıt

[emrebengul]

yaptığım userformda kayıtta telefon numarasını ilk yazdığımda (ad-soyad, adres) bilgileri kendim gireyim ama bir daha aynı numarayı girdiğimde(ad-soyad, adres) otomatik olarak çıksın istiyorum.
Ekli dosyayı görüntüle Kitap1.xlsm

 

[crpzz37]

Ekli dosyayı görüntüle Kitap1YARDIM.xlsm



tel noya göre yaptım tel no aynı ise istedikleriniz geliyor

 

[emrebengul]

teşekkürler saolun

 

[Ömer BARAN]

Merhaba.

Alternatif olsun.
.

 

[vardar07]

Buda başka bir alternatif. Sizdeki olmayan satırları ekleyerek yada komple değiştirerek deneyiniz.

[COLOR="Red"]Dim sh As Worksheet[/COLOR]
Private Sub CommandButton1_Click()
Sayfa1.Cells(1, 1) = "NUMARA"
Sayfa1.Cells(1, 2) = "TEL NO"
Sayfa1.Cells(1, 3) = "AD SOYAD"
Sayfa1.Cells(1, 4) = "ADRES"
Sayfa1.Cells(1, 5) = "SİPARİŞ"
Sayfa1.Cells(1, 6) = "FİYAT"
Range("A2").Select
'A2 HÜCRESİNİ SEÇ
Do While Not IsEmpty(ActiveCell)
'AKTİF HÜCRENİN BOŞ OLUP OLMADIĞINA BAKIYORUZ
ActiveCell.Offset(1, 0).Select
'HÜCREYİ KAYDIRMA (YANDAKİ BOŞ HÜCRE)
Loop
If Range("A2").Value = "" Then
'A2 HÜCRESİNDEKİ DEĞER BOŞSA
Range("A2").Value = 1
'A2 NİN DEĞERİNİ 1 OLARAK BAŞLAT
Range("A2").Select
'YAZDIKTAN SONRA A2 HÜCRESİNİ SEÇ
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
'A2 NİN DOLU OLMASI DURUMUNDA BİR SONRAKİ HÜCREYİ A3 SEÇ BİR ÖNCEKİNİN YANİ A2 NİN DEĞERİNİN 1 FAZLASINI SEÇ
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
'AKTİF HÜCREYİ BİR SAĞA KAYDI VE TEXBOX1 DEKİ DEĞERİ YAZ
ActiveCell.Offset(0, 2).Value = TextBox2.Text
'AKTİF HÜCREYİ 2 SAĞA KAYDI VE TEXBOX2 DEKİ DEĞERİ YAZ
ActiveCell.Offset(0, 3).Value = TextBox3.Text
'AKTİF HÜCREYİ 3 SAĞA KAYDI VE TEXBOX3 DEKİ DEĞERİ YAZ
ActiveCell.Offset(0, 4).Value = ComboBox1.Text
'AKTİF HÜCREYİ 4 SAĞA KAYDI VE TEXBOX4 DEKİ DEĞERİ YAZ
ActiveCell.Offset(0, 5).Value = TextBox5.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
End Sub

[COLOR="red"]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bul As Variant
son = sh.Range("B" & Rows.Count).End(3).Row
say = WorksheetFunction.CountIf(sh.Range("B2:B" & son), TextBox1.Value)
If say > 0 Then
Set bul = sh.Range("B2:B" & son).Find(TextBox1.Value, LookIn:=xlValues)
If Not bul Is Nothing Then
satir = bul.Row
TextBox2.Text = sh.Cells(satir, "C")
TextBox3.Text = sh.Cells(satir, "D")
End If
Else
TextBox2.SetFocus
End If
End Sub

Private Sub UserForm_Initialize()
Set sh = Sheets("Sayfa1")
TextBox1.SetFocus
End Sub[/COLOR]

 

[emrebengul]

çok teşekkür ederim saolun