döngü ile comboboxlara veri alma

[sirkülasyon]

userform üzerinde bulunan 7 tane comboboxa Veri sayfasında R2:R57 arasında yer alan bilgileri döngü ile nasıl liste halinde alabilirim?
Teşekkür ederim.

 

[Mdemir63]

Selamlar

Userform initialize olayına aşağıdaki kodları uygulayın

Private Sub UserForm_Initialize()

Dim sonsat, i As Integer
  sonsat = Worksheets("veri").Cells(Rows.Count, "R").End(xlUp).Row
  For i = 2 To sonsat
   UserForm1.ComboBox1.AddItem Worksheets("veri").Cells(i, "R")
  Next i

End Sub

 

[sirkülasyon]

Mdemir63
combobox 7 tane. Hepsi de aynı yerden bilgi alacak.

 

[Mdemir63]

Selamlar
İnceleyiniz

 

[sirkülasyon]

Ellerine sağlık. Teşekkür ederim

 

[Mdemir63]

Rica ederim.
İyi çalışmalar