Lİstboxda Verİ Lİsteleme

[belinay42]

İyi çalışmalar arkadaşlar

Yapmaya çalıştığım bir tablom var ve listbox kısmında takıldım kaldım

Bir sürü kod denedim fakat bir türlü sayfadaki verileri listbox'a aldıramadım

Sorunum şu:DEVİR İÇİN adlı sayfamdaki verieri userform üzerinde bulunan listboxa aldırmak ve HESAP ÖZETİ sayfasına form üzerinden butonla aktarmak , CARİLER ve STOK KARTLARI içinse sadece listelemek

Yardımlarınız için şimdiden teşekkürler

Saygılar

 

[Orion1]

Listbox'ta listeleme işi benden.
Ekli dosyayı inceleyiniz.

 

[belinay42]

Sn Evren Gizlen

Çok teşekkürler

Birde Ricam Var bu listeleme kodlarını verebilirimisiniz

Saygılar

 

[Orion1]

Sn Evren Gizlen

Çok teşekkürler

Birde Ricam Var bu listeleme kodlarını verebilirimisiniz

Saygılar

Private Sub UserForm_Initialize()
Sheets("AKTARMA").Select
ComboBox1.RowSource = "AA1:AA" & Cells(65536, "AA").End(xlUp).Row
ComboBox1.ListIndex = 0
[B][COLOR="Red"]ListBox1.ColumnCount = 5[/COLOR][/B]
End Sub

Private Sub MultiPage1_Click(ByVal Index As Long)
On Error Resume Next
For S = 1 To Me.MultiPage1.Value + 1
Sheets(S).Select
Next
[B][COLOR="red"]If MultiPage1.Value = 3 Then
    ListBox1.RowSource = "A1:E" & Cells(65536, "A").End(xlUp).Row
End If[/COLOR][/B]
End Sub