listbox güncellemek

[ahmet79]

:kafa: arkadaşlar cevap veren olursa sevinirim userformda bulunan command button1 vasıtası ile combobox1deki verileri excel sayfa1 a1 hücresine giriyorum aynı user form üzerindeki listbox1 de de bu verileri aşağıdaki kodla listeliyorum fakat command button1'e bastığım zaman listbox1 güncellenmiyor dosyayı tekrar kapatıp açtığımda güncellenmiş oluyor

With ListBox1
.RowSource = "[Kitap1.xls]SAYFA1!A1:A65500"
.Font.Name = "Verdana"
.Font.Size = 10
End With

yardımcı olurmusunuz

 

[ahmet79]

yardımcı olabilecek arkadaş yokmu? :kafa:

 

[Levent Menteşoğlu]

Bir dosya eklermisiniz.

 

[ahmet79]

ekteki dosyayı incelerseniz iyi olur

 

[danersin]

Yukarıda verdiğiniz Aynı kodu command button1 click'in end sub dan önceki son kısmına yazarsanız listbox güncellenmiş olur.

With ListBox1
.RowSource = "[Kitap1.xls]SAYFA1!A1:A65500"
.Font.Name = "Verdana"
.Font.Size = 10
End With

 

[ahmet79]

Çok teşekkür ederim sağolasın danersin :hey:

 

[xxrt]

Command2'nin içine şu kodu ilave edin.
Call UserForm_Initialize

 

[ahmet79]

Yardımcı olan arkadaşlara çok teşekkürler aradığım tam olarak buydu :icelim: