Comboboxtaki secilen verileri textboxa aktarmak

[kskobi]

İyi aksamlar kolay gelsin arkadaslar bi sehit gezileri ile ilgili exelde program yapiyoruzda bi yerde takildik

Simdi checkboox d5 hucresinden d97 hucresine kadar listeliyor fakat diyelim biz buradan isim ADNAN SEZGİN ismine checkboxda tikladigimizda asagisinda bulunan 3 tane textboox ta diger iste memleketi rutbesi olay yeri yazicak exelde bunlar memleketi e5 ten e97 e kadar rutbe f5 ten f97 ye olay yeride g5 ten g97 e kadar olucak bunu nasil saglarim yardimlariniz icin tesekkurler

 

[kskobi]

Yokmu bi cozumu arkadaslar

 

[s.savas]

Örnek bir dosya ile ifade ederseniz bir çözüm bulunur.

 

[kskobi]

İphonedan yaziyorum ornegini gondereyim

 

[kskobi]

Askerim arkadaslar burada jnet disinda internete girmiyor o yuzden sitelere bilgisardan giremiyorum simdi diyelim visual basic modunda birtane combobox ve 3 tane textbox imiz var combobox tan d5 ile d97 ye kadar olan isimlari yani hucredekileri goruyorum bu hucrelerde isimler var.diyelim bu hucreden ahmet kilic bu ismin diger bilgilerinide o textboxlarda hazir olarak gozukmesi lazim bu nasil olucak

 

[Husgvarna]

Merhaba
Şöyle olabilir.

 Private Sub ComboBox1_Change()
TextBox1 = Cells(ComboBox1.ListIndex + 6, 5)
TextBox2 = Cells(ComboBox1.ListIndex + 6, 6)
TextBox3 = Cells(ComboBox1.ListIndex + 6, 7)
End Sub

 

[chngrcn]

sizin için listbox'lı bişey yaptım.. checkbox'lı değil ama, fikir vereceğine eminim.. saygılar.. eki inceleyiniz..

Sub liste()
ListBox1.ForeColor = RGB(0, 0, 0)
ListBox1.Clear
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "70;50;30"
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
           For i = 4 To s1.[B65536].End(3).Row
             
                    ListBox1.AddItem
                    ListBox1.List(s, 0) = s1.Cells(i, "B")
                    ListBox1.List(s, 1) = s1.Cells(i, "C")
                    ListBox1.List(s, 2) = s1.Cells(i, "D")
                        s = s + 1
                    
              Next
              
End Sub

Private Sub ListBox1_Click()
a = ListBox1.ListIndex

TextBox1.Value = ListBox1.List(a, 1)
TextBox2.Value = ListBox1.List(a, 2)
End Sub

Private Sub UserForm_Initialize()
Call liste
End Sub