Combobox a veri alma

[bugüven]

userform üzerinde 4 adet combobox ile veri seçmek istiyorum fakat kodu yapamadım. lütfen yardım.

 

[asi_kral]

Merhaba
Userform4'ün kod bölümüne kopyalayın ve deneyin.

Private Sub UserForm_Initialize()
Dim S1 As Worksheet
Set S1 = Sheets("Data")
ComboBox1.RowSource = "Data!N2:N" & S1.Range("N" & Rows.Count).End(xlUp).Row
ComboBox2.RowSource = "Data!O2:O" & S1.Range("O" & Rows.Count).End(xlUp).Row
ComboBox3.RowSource = "Data!P2:P" & S1.Range("P" & Rows.Count).End(xlUp).Row
ComboBox4.RowSource = "Data!Q2:Q" & S1.Range("Q" & Rows.Count).End(xlUp).Row
End Sub

 

[bugüven]

Teşekkür ederim asi_kral süper oldu. ben bu verileri Data sayfasındaki "M" sütununa aktarmak istiyorum.diğer userformlarda yapmıştım ama burada yapamadım bunada yardımcı olursanız sevinirim