Veri alma hakkında yardım

[fatih34]

Benim sorum iki adet useform var 1.useformda girdipğim bilgiler sayfa2 ye kayıt yapılıyor.
2.useformda ise combobox ile sayfa deki adı seçtiğim zaman ,soyadı,doğum yeri,doğum tarihi,adresi bilgilerinin otomatik olarak gelmesini istiyorum formda vardır ama öğrenmekde istediğimden kendi örnek dosyamı gönderdim

USEFORM2 DEKİ COMBOBOKSA NASIL VERİYİ ALABİLİRİM VE SEÇTİĞİM İSİMDEKİ ORTAK VERİLERİN TETXTBOXDAKİ YERLERİNE OTOMATİK OLARAK GELMESİNMİ İSTİYORUM

 

[halit3]

bu kodları denermisiniz.

Private Sub ComboBox1_Change()
sat = ComboBox1.ListIndex + 2
TextBox1.Text = Worksheets("Sayfa3").Cells(sat, 3).Value
TextBox2.Text = Worksheets("Sayfa3").Cells(sat, 4).Value
TextBox3.Text = Worksheets("Sayfa3").Cells(sat, 5).Value
TextBox4.Text = Worksheets("Sayfa3").Cells(sat, 6).Value
TextBox5.Text = Worksheets("Sayfa3").Cells(sat, 7).Value
TextBox6.Text = Worksheets("Sayfa3").Cells(sat, 8).Value
TextBox7.Text = Worksheets("Sayfa3").Cells(sat, 9).Value
TextBox8.Text = Worksheets("Sayfa3").Cells(sat, 10).Value
End Sub
Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Clear
For i = 2 To WorksheetFunction.CountA(Worksheets("Sayfa3").Range("B2:B65000")) + 1
ComboBox1.AddItem Worksheets("Sayfa3").Cells(i, 3).Value
Next i
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Lütfen Kapat Butonundan Kapatınız.", vbCritical, "UYARI"
Cancel = True
End If
End Sub

 

[fatih34]

veri aktarma

hocam ilginize teşekkür ederim ancak useform2 ye uyguladım formülünüzü ancak
For i = 2 To WorksheetFunction.CountA(Worksheets("Sayfa3").Rang e("B2:B65000")) + 1
hata veriyor acaba nerede hata yaptım çözemedim yeni olduğumdan dolayı bu konularada tekrardan gönderiyorum verdiğiniz kodlarla beraber örneğimi inceleyip nerede hata yaptığımı söylerseniz sevinirim

 

[halit3]

Rang e yazan yeri Range olarak yazınız yanı arasındaki boşluğu alınız

 

[fatih34]

comboboxsa veri alma

hocam ilginize teşekkür ederim o hatayı düzelttim
ancak comboboxsa sayfa2de bulunan isimler gözükmüyor sıralanması sonucu seçmek istiyorum
verileri girip seçtiğim zaman sizin formüle göre istediğim yerlere şahsa ait veriler gelmeyip başlıklar geliyor
ekteki dosyamı tekrardan inceleme imkanın olursa sevinirim
emeğinize ve elenize sağlık

 

[fatih34]

combobaksa veri alma

hocam ilginize teşekkür ederim o hatayı düzelttim
ancak comboboxsa sayfa2de bulunan isimler gözükmüyor sıralanması sonucu seçmek istiyorum
verileri girip seçtiğim zaman sizin formüle göre istediğim yerlere şahsa ait veriler gelmeyip başlıklar geliyor
ekteki dosyamı tekrardan inceleme imkanın olursa sevinirim
emeğinize ve elenize sağlık

 

[halit3]

yukarıda göndermiş olduğum kodlar Sayfa3 te userform2 de işlemleri görüyor genel olarak tekrardan düzenledim kodları

Private Sub ComboBox1_Change()
sat = ComboBox1.ListIndex + 2
TextBox1.Text = Worksheets(ActiveSheet.Name).Cells(sat, 3).Value
TextBox2.Text = Worksheets(ActiveSheet.Name).Cells(sat, 4).Value
TextBox3.Text = Worksheets(ActiveSheet.Name).Cells(sat, 5).Value
TextBox4.Text = Worksheets(ActiveSheet.Name).Cells(sat, 6).Value
TextBox5.Text = Worksheets(ActiveSheet.Name).Cells(sat, 7).Value
TextBox6.Text = Worksheets(ActiveSheet.Name).Cells(sat, 8).Value
TextBox7.Text = Worksheets(ActiveSheet.Name).Cells(sat, 9).Value
TextBox8.Text = Worksheets(ActiveSheet.Name).Cells(sat, 10).Value
End Sub
Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Clear
For i = 2 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("B2:B65000")) + 1
ComboBox1.AddItem Worksheets(ActiveSheet.Name).Cells(i, 3).Value
Next i
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Lütfen Kapat Butonundan Kapatınız.", vbCritical, "UYARI"
Cancel = True
End If
End Sub