ComboBox'a veri alırken 3 hücreyi birlerştirmek

[programer]

Arkadaşlar çalışmamda 2 adet combobox var. Birinci Combobox'a d sütünundaki veriler geliyor. Burdan seçtiğim veriye göre 2.ci combobox'a e sütunundaki veriler geliyor. Benim yapmak istediğim 2.ci combobox'a e, f, g sütünundaki hücleri birleştirerek getirmek. Ben aşağıdaki kodu kullanıyorum bunun üzerinde nasıl bir değişiklik yapmam gerekli yada bunu nasıl yapabilirim. Yardımlarınız için şimdiden teşekkür ederim. Saygılar

Private Sub ComboBox1_Change()
ComboBox2.Clear
With Sheets("Order").Range("D165000")
Set ara = .Find(ComboBox1)
If Not ara Is Nothing Then
ilk = ara.Address
Do
ComboBox2.AddItem ara.Offset(0, 1)
Set ara = .FindNext(ara)
Loop While Not ara Is Nothing And ara.Address <> ilk
End If
End With
End Sub



veri birle&#351;tirmekle ilgili forumda buldu&#287;um bir kod ama uyarl&#305;yamad&#305;m

Private Sub UserForm_Initialize()
For X = 2 To [A65536].End(3).Row
ComboBox2.AddItem Cells(X, 5) & " " & Cells(X, 6) & " " & Cells(X, 7)
Next
End Sub

 

[alpi]

aşağıdaki satırı
ComboBox2.AddItem ara.Offset(0, 1)

ComboBox2.AddItem ara.Offset(0, 1) & ara.Offset(0, 2) & ara.Offset(0, 3) ile değiştirin

 

[programer]

Say&#305;n alpi yard&#305;mlar&#305;n&#305;z i&#231;in &#231;ok te&#351;ekk&#252;r ederim. Bir sorum daha olucak bu 2 comboboxta se&#231;ti&#287;im verilere g&#246;re textbox1 e h s&#252;tunundaki bu verilere kar&#351;&#305;l&#305;k gelicek veriyi getirebilirmiyim. Bunun i&#231;inde forumda bi kod buldum ama 1 combobox i&#231;in ge&#231;erli

Private Sub ComboBox2_Change()
On Error Resume Next
Dim bul As Range
For Each bul In Range("E2:E" & WorksheetFunction.CountA(Range("E1:E65536")))
If StrConv(bul.Value, vbUpperCase) = StrConv(ComboBox2.Value, vbUpperCase) Then
bul.Select
TextBox4 = Range("F" & ActiveCell.Row).Value
End If
Next
End Sub

 

[programer]

Arkada&#351;lar d&#252;nden beri ara&#351;t&#305;r&#305;yorum forumda ama sa&#287;l&#305;kl&#305; bir bilgiye ula&#351;amad&#305;m denedi&#287;im &#246;rneklerde sonu&#231; vermedi. Yard&#305;mlar&#305;n&#305;z&#305; bekliyorum

 

[alpi]

dosyanızı eklerseniz yardımcı olmaya çalışırım. lütfen dosyanızı sıkıştırarak ekleyiniz.

 

[programer]

Sayın alpi dosyayı ekliyorum yardımlarınız için teşekkür ederim. Combobox1 ve Combobox 2 de seçtiğim veriye göre labele adet sayısının gelmesini istiyorum. Ufak bir açıklama yapmak istiyorum burada özellikle diğer alacağım raporlarda kolaylık olsun diye açıklama, renk ve boy kısımlarını ayrı tutmak zorundayım.

 

[Seyit Tiken]

ComBox'tan Label'e veri aktarmak için.

Private Sub ComboBox1_Click()
Label1 = ComboBox1
End Sub

 

[alpi]

Sayın programer dosyanız ektedir

 

[programer]

Say&#305;n alpi elinize sa&#287;l&#305;k tam istedi&#287;im gibi olmu&#351;. Ama Combobox2 de veriyi &#252;&#231; sat&#305;r&#305; birle&#351;tirebilirmiyiz se&#231;ti&#287;im zaman sadece E s&#252;tunundaki veri g&#246;r&#252;n&#252;yor

 

[Seyit Tiken]

Anladığım kadar söylüyorum. Birden fazla hücredeki veri ComboBox'ta görmek için, ComboBox'te listelenecek hücre(hücrelerde) birleştirme(&) işlemini yapabilirsin.

 

[programer]

Sayın Seyit Tiken hocam kullandığım kod aşağıda dediğiniz gibi yaptım ama bu seferde ComboBox2_Change olayında ha verdi

Private Sub ComboBox1_Change()
    ComboBox2.Clear
    With Sheets("Order").Range("D1:D65000")
        Set ara = .Find(ComboBox1)
        If Not ara Is Nothing Then
            ilk = ara.Address
            Dim say As Integer
            Do
                
                ComboBox2.AddItem ara.Offset(0, 1)
                ComboBox2.List(say, 1) = ara.Offset(0, 2)
                ComboBox2.List(say, 2) = ara.Offset(0, 3)
                say = say + 1
                Set ara = .FindNext(ara)
            Loop While Not ara Is Nothing And ara.Address <> ilk
        End If
    End With
End Sub

Private Sub ComboBox2_Change()
    Dim i As Integer
    If ComboBox1.Text = "" Or ComboBox2.Text = "" Then Exit Sub
    i = ComboBox2.ListIndex
    Bul ComboBox1.Text, ComboBox2.Text, ComboBox2.List(i, 1), ComboBox2.List(i, 2)
End Sub

 

[programer]

Arkadaşlar ben halen bir çözüm bulamadım. Biraz aceleci davranıyorum galiba kusura bakmayın

 

[alpi]

Ekteki dosya işinizi görür mü?