açılan kutuya buton eklemek

[muratozmenler]

excelde sayfa 1 de bir açılır buton ekledim içine 148 adet santral adı ekledim örneğin bakışlar santralini seçtiğimde A1 hücresinde o santralin ismi gözüküyor unutmadan bu 148 adet santralin içerik bilgilerini içeren 148 adet sayfa yaptım. isteyim A1 hücresinde santral ismi çıktığında bir butonla istenilen sayfaya nasıl gidebilirim.

 

[fedeal]

Istediginiz bumu? Ilk kullanımda sayfa1 i sayfa2 yapın sonra acılır kutuya sayfalar yazılacaktır.

 

[muratozmenler]

isteğim ana sayfadaki dc enerji sistemlerine tıkladığımda açılan bölümde seçtiğim santralin ismi çıktığı yere bir buton eklemek ve hangi santral çıkarsa çıksın o santralin sayfasına gitmek not: sayfalar henüz oluşturulmadı ona göre 148 santral sayfası oluşturulacak orada görünen santral isimlerinin aynı isminde

 

[kadamut]

ana sayfana 148 adet santal sayfasına KÖPRÜ oluştur
148 adet santal sayfasına ANA SAYFA KÖPRÜ oluştur
böylece 2 tıkla girersin
yazıcıda görünmesini istemiyorsan YAZDIRMA ALANINI BELİRLE ile düzenlemeni yaparsın

 

[ozgretmen]

Açılır kutudan seçim yaptıktan sonra,L13 hücresine tıkladığınızda o hücrede yazılı sayfaya gidersiniz.Dosya ekte.İyi çalışmalar.

 

[muratozmenler]

Elinize sağlık fakat isteğim yine ekte gönderdiğim dc enerji sistemlerinde çıkan satralin sayfasına yanına koyduğum buton ile gitmek istiyorum o buton ile hangi santral çıkarsa çıksın tek butonla orada çıkan sayfaya gitmek şimdiden teşekkürler

 

[ozgretmen]

Butona aşağıdaki kodu ekler misin ?

Private Sub CommandButton1_Click()
On Error Resume Next
[H13].Select
Dim i As Integer
For i = 1 To Worksheets.Count - 1
If Worksheets(Sayfa & i).Name = ActiveCell.Text Then
Sheets(ActiveCell.Text).Select
End If
Next i
End Sub

 

[muratozmenler]

ççççooook teşşekkürler vallah oldu süpersin ......
HOCAM ÇOK TEŞEKKÜR EDERİM.