ListBoxta Butonla listeleme

[teksen]

Arkadaşlar merhaba,

Aşağıdaki kodla Sayfa1 deki bilgileri bir butonla ListBox1 e getiriyorum.


Private Sub CommandButton1_Click()

son = [a65536].End(3).Row
ListBox1.ColumnCount = 12
ListBox1.RowSource = "Sayfa1!A2:L" & son '"a2:" & "L" & son

End Sub



Aynı şekilde Sayfa3 teki bilgileri ListBox2 getirmek için aşağıdaki kodu kullanıyorum fakat hata veriyor.

Private Sub CommandButton2_Click()

son1 = [a65536].End(3).Row
ListBox2.ColumnCount = 11
ListBox2.RowSource = "Sayfa3!A2:k" & son '"a2:" & "k" & son

End Sub

 

[Levent Menteşoğlu]

Koda aşağıdaki kırmızı renkli yeri yani sayfa adını ilave edin.

Private Sub CommandButton2_Click()
 
son1 = [[B][COLOR=red]sayfa3![/COLOR][/B]a65536].End(3).Row
ListBox2.ColumnCount = 11
ListBox2.RowSource = "Sayfa3!A2:k" & son1
End Sub

 

[teksen]

Teşekkür ederim Sn.leventm fakat hata verdi.

 

[Levent Menteşoğlu]

Kodun en son satırındaki "son" değişkenini "son1" yapın.