tablo çoğaltma

[köse]

merhaba arkadaşlar bir excel sayfasına textbox aracılığı ile veri aktarıyorum sayfa2 de ise sonuç belgesine combobox aracılığı ile verileri aldırıyorum sorum şu sayfa2 de 8 adet boş sonuç belgesi var ben combobox tan ali yi seçersem boş sonuç belgesine getiriyor bir başka boş sonuç belgesine sayfa1 deki isimlerden birini seçtiğimde nasıl aldırabilirim kısacası 8 kişiye ait verileri combobox ile veri çağırarak alacağım birini alabiliyorum

 

[Levent Menteşoğlu]

Merhaba

Bir örnek dosya eklerseniz onun üzerinden gidelim.

 

[köse]

merhaba arkadaşlar ekte dosyayı gönderiyorum yardımlarınız için şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Kesin cevap için kullandığınız kodlarıda vermeniz gerekir.

 

[köse]

Merhaba Levent bey kodları gönderiyorum Private Sub ComboBox1_Click()
On Error Resume Next
sat = Sheets("sayfa1").Columns("A").Find(ComboBox1.Value).Row
Sheets("sayfa2").Range("b6") = Sheets("sayfa1").Cells(sat, 4).Value
Sheets("sayfa2").Range("c6") = Sheets("sayfa1").Cells(sat, 1).Value
Sheets("sayfa2").Range("d6") = Sheets("sayfa1").Cells(sat, 2).Value
Sheets("sayfa2").Range("b1") = Sheets("sayfa1").Cells(sat, 3).Value
mesaj = ComboBox1.Value & " isimli kişiye ait bilgiler çağırıldı"
MsgBox (mesaj)
End Sub