ListBox dan sayfaya gitmek

[oksijen]

yaklaşık 20 kişiye adıyla sayfa açtım. Yani Sayfa 1'i kemal 2 yi ali gibi.Sayfa sınırlaması olmaksızın açtığım her sayfayı ListBoxda görmek ve ListBoxdan da çıkan listeden sayfa ismini tıklayarak o sayfaya gitmek istiyorum.Yardımcı olursanız sevinirim.Þimdiden teşekkürler.

 

[Levent Menteşoğlu]

Sayfa isimlerini listboxa yüklemek için userforma aşağıdakiş kodu yazın.

[vb:1:d097dff246]Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
ListBox1.AddItem Sheets(a).Name
Next
End Sub
[/vb:1:d097dff246]

Listboxtan seçilen sayfaya gitmek içinde listboxa aşağıdaki kodu yazın.

[vb:1:d097dff246]Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub[/vb:1:d097dff246]

 

[Haluk]

Değerli Levent arkadaşıma ilave olarak;

UserForm ekranda dururken, sayfa eklediğinizde otomatikman UserForm üzerindeki ListBox'ın da güncellenmesi için ekli dosyayı inceleyebilirsiniz. (Office2000 ve üzeri versiyonlar için)

 

[oksijen]

Eklediğiniz dosya işimi fazlasıyla gördü.Fakat yazdırıken daha önce saydfa ismi Sayfa1,Sayfa2 gibiydi ve


Private Sub CommandButton3_Click()
Sheets("Sayfa1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

makrosunu kullanıyordum.Fakat şimdi sayfa ismileri değişken ve buradaki

Sheets("Sayfa1").Select komut hata veriyor. Burada hangi kodu işleticem

 

[Levent Menteşoğlu]

Sheets(1).Select olarak deneyin.

 

[oksijen]

Sayfa isimlerini listfbox a ekledim.List form sayfa isimlerini veriyor. Ã?rneğin ben listboxtan kemali tıkladığımda kemal sayfası açılıyor fakat yazdır dediğimde sadece 1. sayfa yazılıyor. Oysa ben listbox dan hangi ismi tıklarsam o sayfayı açıp yazdırmasını istiyorum.İlgilendiğiniz için teşekkürler.

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki kodu deneyin.

[vb:1:a219ea24cd]Private Sub CommandButton3_Click()
Sheets(listbox1.value).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
[/vb:1:a219ea24cd]

 

[oksijen]

bilgisayara format attığım için enson verilen kodu şimdi denedim ve malesef istediğim sonucu alamadım.ekdeki dosyayı inceler ve bir çözüm bulabilirseniz sevinirim.Teşekkürler.Birde aynı dosyayı 2 kere göndermişim editden 2. dosyayı silemedim Ã?zür dilerim.

 

[omerceri]

Private Sub CommandButton5_Click()
Sheets(1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
ifadesindeki
Sheets(1).Select
satırını sil

 

[veyselemre]

Bu durumda aşağıdaki kodu deneyin.

[vb:1:30d20c1772]Private Sub CommandButton3_Click()
Sheets(listbox1.value).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
[/vb:1:30d20c1772]

Private Sub CommandButton3_Click kısmını

Private Sub CommandButton5_Click yapın

 

[oksijen]

malesef bu kodda hata verdi.

 

[veyselemre]

[vb:1:1be528e12a]Private Sub CommandButton5_Click()
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
End Sub[/vb:1:1be528e12a]

 

[kerem yüce]

Selam
Benimde bu konu ile ilgili bir problemim var sayenizde artık sheet isimlerini list box'dan seçiyorum. Ama Sheet leri zaman içinde ihtiyaç duydukça açtığım için herhangi bir harf sırası mevcut değil acaba list box'daki isimleri harf sırası ile sıralatmak mümkün mü? Ayrıca herhangi bir isim seçildikten sonra liste en başa geri dönüyor bunuda nasıl çözebileceğimi söylerseniz sevinirim. Cevaplar için şimdiden teşekkürler.
:?

 

[veyselemre]

ekteki örnekte sayfalar alfebetik sıraya göre listbox a alınıyor, aktif sayfa seçili olarak geliyor, seçtiğiniz sayfaya gitmek için listbox ta çift tıklamanız gerekecek,

 

[kerem yüce]

Teşekkürler veyselemre eline sağlık.

 

[cocoa35]

Sayfa isimlerini listboxa yüklemek için userforma aşağıdakiş kodu yazın.

[vb:1:d097dff246]Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
ListBox1.AddItem Sheets(a).Name
Next
End Sub
[/vb:1:d097dff246]

Listboxtan seçilen sayfaya gitmek içinde listboxa aşağıdaki kodu yazın.

[vb:1:d097dff246]Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub[/vb:1:d097dff246]

Levent hocam bu formül ListBox seçilen satır "B" Kolonunda yazan isme gitsin nasıl olur