UserForm'daki ComboBox'a Komut

[1Al2Ver]

Merhaba,

Bir UserForm'da bulunan ComboBox'a,

Private Sub UserForm_Initialize()
Dim i%
Dim TMP$
ComboBox1.Clear
For i = 1 To 12
TMP = Format(DateSerial(2004, i, 1), "mmmm")
ComboBox1.AddItem TMP
Next i
ComboBox1.ListIndex = 0
End Sub

ile aylar getiriliyor,

Aylar yerine "Sayfa1'de D2: D aralığındaki bilgileri getir" demek için
kodda nasıl bir değişiklik gerekmektedir ?

Yada farklı bir kod mu gerekiyor ?

Teşekkür ederim.

 

[hamitcan]

combobox1.rowsource = "Sayfa1'de D2: D"&[d65536].end(3).row şelinde deneyin.

 

[1Al2Ver]

combobox1.rowsource = "Sayfa1'de D2: D"&[d65536].end(3).row şelinde deneyin.

Sayın hamitcan merhaba,

İlginiz için teşekkür ederim, ne yaptımsa beceremedim,

Zamanınız varsa olması gereken kodun bütününü rica edebilirmiyim ?