Comboxta listeyi textbox1. textbox2, textbox3 aktarma

[moresby]

Ben ComboBox ta ki verieleden birini seçtiğim zaman Txboxa tüm verileri nasıl aktarabilirim Yani örneğin ComboBox dan aliyi seçtiğim zaman Texbox1 e alinin soyadı, Tekbox2 ye doğum tarihi, texbox3 baba adı, texbox4, doğum yeri gibi. Bana yardımcı olan olursa çok memmun olurum. Þimdiden teşekkürler[/vb][/url]

 

[metinozlu]

textbox1.value=combobox1.value

 

[cako]

Sorunuz eksik.
Sanırım sayfalarınızdan birinde bu veriler var.
Bu durumda comboboxdan seçtiğiniz veriyi sayfada aratacak ve satır numarasını baz alarak,
textboxlara veri almanız gerekiyor.

Tabi bu ortamda ve sizin dosyanızı görmeyen hiç kimse örnek çalışma yollamaktan ya da benim yukarıda yazdıklarımdan başka bir cevap veremez.

 

[moresby]

Combobox

Combobox taki verileri tektboxlara tam aktaramıyorum mesele bu

 

[danersin]

textbox1 ve textbox2 yi aktarmışsınız zaten, 3 ve 4'ü aynı şekilde aktaracaksınız. :?
bu aktarmayı yapmak için H sütununa verileri kopyalamanız şart değil ama belki size lazımdır diye doukunmadım.


Private Sub ComboBox1_Click()
On Error Resume Next
sat = Sheets("sayfa1").Range("A:A").Find(ComboBox1.Value).Row
Range("B" & sat, "F" & sat).Copy
Range("H1").PasteSpecial , , , True
[j1].Select
Application.CutCopyMode = False
TextBox1.Value = [H1]
TextBox2.Value = [H2]
TextBox3.Value = [H3]
TextBox4.Value = [H4]
End Sub

 

[moresby]

teşkkür ederim
birde şunu sormak isterim H1, H2 ye kaydetmeden başka bir şekilde tektbox lara çağırmamız mümkünmü ?

 

[Levent Menteşoğlu]

Elbette mümkün aşağıdaki kodu deneyin.

[vb:1:8c86f7575a]Private Sub ComboBox1_Click()
On Error Resume Next
sat = Sheets("sayfa1").Range("A:A").Find(ComboBox1.Value).Row
For a = 2 To 5
Controls("textbox" & a - 1) = Sheets("sayfa1").Cells(sat, a)
Next
End Sub[/vb:1:8c86f7575a]

 

[moresby]

teşekkür ederim

teşekkür ederim