buton ekleme

[ertemel]

merhaba, ekte bulunan excel çalışma kitabına butonlar eklemek istiyorum, kitapların üst kısmına eklediğim butonlar tıklanınca aynı çalışma kitabında başka sayfanın açılmasını istiyorum, örneğin; konaklama butonu tıklayınca konaklama sayfası açılsın gibi. ancak sadece tek bir butona komut ekleyip çalıştırabiliyorum. bu sorunu köprü kurarak halletmiştim ancak patronlarım butonların olmasını ve görsel olarak daha güzel görünmesini istiyorlar. toplam 14 adet buton olacak

 

[microaim]

merhaba
görünüm-araç çubukları-formlar menülerini seçip yeni bir buton ekleyin.karşınıza gelen iletişim kutusunda yeniyi seçip sheets("sayfa_adı").select yazabilirsiniz.sayfa_adı yazan yere hangi sayfaya gidilecekse o sayfanın adını yazın....

 

[ertemel]

merhaba

dediğiniz şekilde yapıyorum ancak sadece tek butona komut ekleyebiliyorum, 14 buton kullanmam gerekiyor.

 

[microaim]

ekteki işinizi görür mü?daha estetik olabilir....

 

[ertemel]

evet, harika olur, bana sadece butonları nasıl arttırabileceğimi söyleyin gerisini ben yaparım, teşekkürler

 

[microaim]

alt+f11 yaptıktan sonra project-vbaproject alanında userform1 i çift tıkla.yanda toolbox çıkacak.(çıkmazsa view menüsünden toolbox ı seç).formun üstüne yeni CommandButtonlar ekle.eklediğin butona çift tıklayıp kod pencesenine geçebilirsin.sayfa kodunu orya yazıp değiştirebilirsin.butonların üzerinde sağ tıklayıp properties den caption özelliğini değiştirebilirsin...

 

[microaim]

benim gönderdiğim örnekte kodlar sheets(1).select gibi yazılmış.örneğin birinci sayfa için sheets("sayfa1").select yazabilirsin.bu şekilde sayfaların yeri değişse bile kod değiştirmene gerek kalmaz.

 

[karagöz55]

Şöyle bir proğramın işinize daha iyi yarayacağını düşünüyorum.
Kitabınızda istediğiniz kadar sayfa ekleyip, silebilirsiniz. Hespisin bu form yönetmeye yetecektir.

 

[ertemel]

teşekkür

Sayın Karagöz55, çok teşekkür ederim, gerçekten güzel çalışma olmuş üzerinde değişiklileri yapacağım.

 

[karagöz55]

Yukarıda vermiş olduğum örnek dosyayı sizin dosyanıza uyguladım. Bir tane buton var ama her sayfayı açıyor.
Bunlardan ayrı olarak excel çalışma sayfasının sol alt köşesinde bulunan sayfaları kaydıran sağ sol oklarından her hangi birine mausun sağ tuşu ile bastığınızda o andaki tüm sayfaları hemen görme ve ordan seçme imkanınız var. Bu özellik excel kendi özelliğidir. Hiçbir makro veya butona da ihtiyaç yoktur.
Çalışmalarınızda başarılar.

 

[beseriyet]

bilgiler için tşk.arkadaşlar

 

[ertemel]

Yukarıda vermiş olduğum örnek dosyayı sizin dosyanıza uyguladım. Bir tane buton var ama her sayfayı açıyor.
Bunlardan ayrı olarak excel çalışma sayfasının sol alt köşesinde bulunan sayfaları kaydıran sağ sol oklarından her hangi birine mausun sağ tuşu ile bastığınızda o andaki tüm sayfaları hemen görme ve ordan seçme imkanınız var. Bu özellik excel kendi özelliğidir. Hiçbir makro veya butona da ihtiyaç yoktur.
Çalışmalarınızda başarılar.

teşekkür ederim gerçekten çok işime yaradı, ellerinize sağlık

 

[bymevrik]

yeni bir şey öğrendik sağol