butonların çalıştırılması

[argo619]

Arkadaşlar biliyorum bu ara sizleri çok rahatsız ettim.sizden ve bu forumdan inanılmaz faydalandım teşekkürlerimi sunarım
konu ile ilgili açıklamalar okudum ama bir türlü beceremedim
ekli dosyamda bulunan butonların çalıştırılması hususunda yardımlarınıza ihtiyacım var
ilgi ve alakanıza teşekkürler

 

[stres]

merhaba GİTMEK İSTEDİĞİN SAYFANIN MAKROSUN şunu yaz yada ekle
Sheets("ONAY").Select
Sheets("SAYFA2").Select

 

[stres]

dsya ektedir onay, sayfa2 ve sayf a3 te butonları tıkla bakalım kolay gelsin

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyiniz.

Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Select
End Sub
Private Sub ListBox2_Click()
Sheets(ListBox2.Text).PrintOut
End Sub
Private Sub Worksheet_Activate()
ListBox1.Clear
For I = 2 To Sheets.Count
ListBox1.AddItem Sheets(I).Name
Next
ListBox2.Clear
For I = 2 To Sheets.Count
ListBox2.AddItem Sheets(I).Name
Next
End Sub

 

[argo619]

İlgİnİze TeŞekkÜrler

İlgİnİze TeŞekkÜrler ArkadaŞlar SaĞolun VerdİĞİnİz Bİlgİler Dahİlİnde ÇaliŞtim Ama Beceremedİm
Umarim Ektekİ Dosyayi İncelersİnİz Ve Verİ Sayfasi BÖlÜmÜndekİ Butonlari ÇaliŞtirirsiniz
Ayrica Sayfa İsİmlerİnİnde Gİzlenmesİ MÜmkÜnmÜ Alt Çubukta GÖrÜnmemesİ Gerekİr
Saygilarimla