programer
Altın Üye
- Katılım
- 26 Mayıs 2005
- Mesajlar
- 604
- Excel Vers. ve Dili
- Office 2022 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-03-2025
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ştirmekle ilgili forumda bulduğum bir kod ama uyarlıyamadı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
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ştirmekle ilgili forumda bulduğum bir kod ama uyarlıyamadı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