Listbox ta aktif olan sayfanın dökümleri hakkında

[dogan_yigit]

ARKADAŞLAR SELAM;
listbox için aşağıdaki kodları kullanıyorum
ama bu sadece tek bir sayfa için
benim isteğim aktif olan sayfanın bilgilerini alsın
yani ben comboboxtzn sayfayı değiştirdiğimde listboxta
seçilen sayfanın dökümü çıksın



Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 13
ListBox1.ColumnWidths = "40;150;150;250;250;60;80;80;80;80;80;80;80"
If Sheets("MÜŞVİRBİL").Range("A8") = Empty Then
ListBox1.RowSource = "MÜŞVİRBİL!A8:M8"
ListBox1.ColumnHeads = True
Else
ListBox1.RowSource = "MÜŞVİRBİL!A8:M" & Sheets("MÜŞVİRBİL").Range("A65536").End(xlUp).Row
ListBox1.ColumnHeads = True
ListBox1.ListIndex = -1
End If
CommandButton1.Enabled = False
TextBox1.SetFocus
End Sub


saygılar.. :hey: :hey:

 

[Levent Menteşoğlu]

[vb:1:dc545f9480]ListBox1.RowSource = "MÜŞVİRBİL!A8:M" & Sheets("MÜŞVİRBİL").Range("A65536").End(xlUp).Row[/vb:1:dc545f9480]
Yukarıdaki satırı aşağıdaki ile değiştirerek deneyin.
[vb:1:dc545f9480]ListBox1.RowSource = "A8:M" & range("A65536").End(xlUp).Row[/vb:1:dc545f9480]

 

[dogan_yigit]

If Sheets("MÜŞVİRBİL").Range("A8") = Empty Then
ListBox1.RowSource = "MÜŞVİRBİL!A8:M8"
ListBox1.ColumnHeads = True

BU KIMI NASIL AYARLAMAM LAZIM

 

[Levent Menteşoğlu]

Eğer kod içinde sayfa adını belirtmezseniz, aktif olan sayfadaki veriler dikkate alınır.

 

[Korhan Ayhan]

Selamlar,

Küçük bir eklemede ben yapmak isterim. Sayfayı değiştirmek için kullandığınız comboboxın change olayının altındaki kodların en alt satırınada UserForm_Initialize yazısını eklerseniz listboxınız aktif sayfanıza göre yeniden güncellenmiş olacaktır. :hey:

 

[dogan_yigit]

ARKADAŞLAR AÇIKLAMALARINIZ İÇİN SAĞOLUN

AMA BENİM İSTEĞİMDE AKTİF OLAN SAYFANIN VERİLERİNİN ALINMASI

SAYGILAR
KOLAY GELSİN

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklemeniz mümkünmü?

 

[dogan_yigit]

ÖRNEKTE DOSYADA ŞİMDİLİK 2 TANE MÜŞTERİ SAYFASI VAR
TABİ BUNLAR ÇOĞALACAK
BUNA KARŞIKLIK O SAYFALARI SEÇTİĞİMDE LİSTBOXTA ONA GÖRE VERİLERİ DEĞİŞTİRSİN

 

[Korhan Ayhan]

Selamlar,

Dosyanızı inceledim ComboBox1 deki kodlarınıza aşağıdaki kırmızı renkli eklemeyi yaparsanız aktif sayfadaki bilgileri listboxa alabilirsiniz.

Private Sub ComboBox1_Change()
'Sizin kodlarınız....
ListBox1.RowSource = "D12:J" & [D1000].End(xlUp).Row
End Sub

 

[dogan_yigit]

Selamlar,
çok teşekkür ettim yardımların için sağol

kolay gelsin