comboboxa veri alma

[khanruler]

sayfa1 de "A" sütununda veri bulunmakta "C" sütununda da adedi yazmakta benim istediğim toplam kaç satır varsa "userform1" de bulunan combobox1 e bunları aktarmak. combobox1 seçeneklerinde "A" sütununda bulunan veri, adedi yanında parantez içinde gözükecek şekilde aktarılcak yardım ederseniz sevinirim

Örnek: A3=kalem C3=3 , comboboxta seçenek şu şekilde gözükecek "kalem (3)"

Not:Veriler A3 ten itibaren başlayıp alta doğru devam ediyor

 

[leumruk]

Selamlar,
Dosyanız ekte.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub UserForm_Initialize()
    Dim VERİ() As String, X As Long, Satır As Long
    ComboBox1.Clear
    Satır = [A65536].End(3).Row - 2
    ReDim VERİ(1 To Satır, 1 To 1)
    For X = 3 To [A65536].End(3).Row
    ReDim Preserve VERİ(1 To Satır, 1 To 1)
    VERİ(X - 2, 1) = Cells(X, 1) & "   (" & Cells(X, 3) & ")"
    Next
    ComboBox1.List = VERİ
End Sub

 

[metinozlu]

dosyanız ekte

 

[Korhan Ayhan]

Selamlar,

Eğer veri sayınız çoksa önermiş olduğum kod ile daha hızlı listeleme yapabilirsiniz.

 

[khanruler]

istediğime ulaştım ilginize teşekkür ederim

 

[khanruler]

bir sorum daha olacak combobox a attığım bu verileri commandbutton ile seçim yaparak listboxa aktarıyorum fakat listbox a ne attıysam parantez içindeki rakamların toplanmasını istiyorum bunu nasıl yaparım acaba

yani comboboxtan seçim yapacağım commanbuttona bastığımda rakamı toplama ekleyecek