comboboxa 2 sütünu birleştirip veri alma

[muratozmenler]

selamlar...
comboboxa b sütunundan verileri aldırıyorum ve comboboxtaki veriyi seçtiğimizde seçilen verinin yanındaki verileride textboxlara aldırabiliyoruz.
fakat ben comboboxa alınan verinin önüne a sütunununda gözükmesini istiyordum yani a sütununda örneğin 1 var b sütununda ahmet var comboboxta 1 - ahmet şeklinde gözükmesini sağlayamadım....

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "20;150"
ComboBox1.RowSource = "A1:B" & Cells(65536, "B").End(xlUp).Row

End Sub
Private Sub ComboBox1_Click()
satir = ComboBox1.ListIndex + 1
TextBox1.Value = Cells(satir, 3)
TextBox2.Value = Cells(satir, 4)
ComboBox1.Value = ComboBox1.Column(0) & "-" & ComboBox1.Column(1)
End Sub

 

[muratozmenler]

teşekkür ederim evren bey listbox gibi aklıma gelmedi teşekkür ederim

 

[Orion1]

teşekkür ederim evren bey listbox gibi aklıma gelmedi teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[muratozmenler]

evren bey bir başka işlem için e sütununda dolu olan satırların şartı olarak comboboxa a ve b sütunundaki verileri nasıl aldırabiliriz

 

[Orion1]

evren bey bir başka işlem için e sütununda dolu olan satırların şartı olarak comboboxa a ve b sütunundaki verileri nasıl aldırabiliriz

Dosyanız ektedir.:cool:
Private Sub UserForm_Initialize()
Dim i As Long, sat As Long, x As Long
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "20;150"
sat = Cells(65536, "E").End(xlUp).Row
For i = 1 To sat
    If Cells(i, "E").Value <> "" Then
        ComboBox1.AddItem
        ComboBox1.List(x, 0) = Cells(i, "A").Value
        ComboBox1.List(x, 1) = Cells(i, "B").Value
        x = x + 1
    End If
Next i
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[muratozmenler]

Private Sub ComboBox1_Change()
satir = ComboBox1.ListIndex + 1
TextBox1.Value = Cells(satir, 3)
TextBox2.Value = Cells(satir, 4)

End Sub

evren bey istediğim gibi oldu fakat bu seferde textboxlara comboboxtan veri gönderirken yanlış veri gönderiyor bunuda düzeltebilirmiyiz.tekrardan teşekkür ederim evren bey

 

[Orion1]

Private Sub ComboBox1_Change()
satir = ComboBox1.ListIndex + 1
TextBox1.Value = Cells(satir, 3)
TextBox2.Value = Cells(satir, 4)

End Sub

evren bey istediğim gibi oldu fakat bu seferde textboxlara comboboxtan veri gönderirken yanlış veri gönderiyor bunuda düzeltebilirmiyiz.tekrardan teşekkür ederim evren bey

Dosyanız ektedir.

 

[muratozmenler]

evren bey bunuda şimdi farkettim kusura bakmayın
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "20;150"
ComboBox1.RowSource = "A1:B" & Cells(65536, "B").End(xlUp).Row

comboboxa veri almada sorun yok verdiğiniz kod güzel çalışıyor fakat herhangi bir veriyi seçtiğimizde comboboxta ikisi (yani a ve b sütunundan alınan veri) gözükmüyor sadece a dan gelen veri gözüküyor

 

[Orion1]

evren bey bunuda şimdi farkettim kusura bakmayın
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "20;150"
ComboBox1.RowSource = "A1:B" & Cells(65536, "B").End(xlUp).Row

comboboxa veri almada sorun yok verdiğiniz kod güzel çalışıyor fakat herhangi bir veriyi seçtiğimizde comboboxta ikisi (yani a ve b sütunundan alınan veri) gözükmüyor sadece a dan gelen veri gözüküyor

8 numaralı mesajdaki dosyadanmı bahsediyorsunuz?

 

[muratozmenler]

2 numaradaki

 

[Orion1]

evren bey bunuda şimdi farkettim kusura bakmayın
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "20;150"
ComboBox1.RowSource = "A1:B" & Cells(65536, "B").End(xlUp).Row

comboboxa veri almada sorun yok verdiğiniz kod güzel çalışıyor fakat herhangi bir veriyi seçtiğimizde comboboxta ikisi (yani a ve b sütunundan alınan veri) gözükmüyor sadece a dan gelen veri gözüküyor

İlgili dosyayı düzenledim.2 numaralı mesajdan dosyayı indirebilirsiniz.

 

[muratozmenler]

teşekkür ederim evren bey