Birsayfada ki köprüyü Diğer Sayfaya taşıma...

[AhmetAtasay]

Hayırlı Günler Arkadaşlar,
Bir peryodik bakım takib sayfası hazırlamaya çalışıyorum. Ancak bir yerde takılı kaldım. Sorum şu;

Ana sayfa da bina isimleri ve o binalarda bulunan cihazları menü halinde getirmesi için bir Geliştirici-Ekle-Form denetimlerinden liste kutusu ile bir menü oluşturdum.
Ancak bina ve cihaz listesi fazla olduğundan oluşturulacak sayfa sayısıda oldukça fazla, oluşturduğum menüde ilgili cihaz ismine tıkladığımda, o cihaza ait sayfaya gitmesini istiyorum. ancak köprü oluşturamadım.

Site üzerinden dosyayı ekleyemedim... Bu şekilde link verebiliyorum...
https://wetransfer.com/downloads/13dc97fe55d6360a5c97850703f0853120171027113536/48b244814d3fed17ebb1927c8793b88220171027113536/a761bf

Yardımcı olursanız sevinirim...

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    On Error Resume Next
    a = Sheets("SABİTLER").Cells(Sheets("SABİTLER").Range("I1"), "H")
    Sheets(a).Select
End Sub

. . .

 

[AhmetAtasay]

Vermiş olduğunuz kodu denedim ancak bir işlem olmadı, yalnış yapmış olabilirim diye düşündüğümden vermiş olduğum dosya üzerinde uygulayıp verebilir misiniz.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Ekran Görüntüsü:



. . .

 

[AhmetAtasay]

Altın üye olmadığım için dosyayı indiremiyorum. link olarak atabilir misiniz...

 

[AhmetAtasay]

Tamam Abi çalıştırdım. Ellah cc razi olsun.. çok çok çok teşekkür ederim. Elinize emeğinize yüreğinize sağlık...