İstenilen Sayfayı açabilmek

[SoN]

Arkadaşlar merhaba. benim sorunum şu; Çok personelli bir şirkette çalışıyorum. her bir personele sicil numarası veriyorum ve her personel için adı yine sicil numaraları olan sayfalar hazırladım. bir sayfayı da anasayfa olarak kullanıyorum. anasayfadan belirli bir hücreye mesela A1 hücresine yazdığım sicilin sayfasını açtırmak için gerekli makro komutlarını bulamadım. anasayfada herkes için ayrı ayrı linkler oluşturmak da pek kullanışlı olmuyor. o yüzden kişinin sicilini yazdığımda yine aynı kişinin sayfasının açılabilmesini istiyorum. yardımcı olursanız sevinirim. forumu da taradım durumuma uygun bir sonuç bulamadım. şimdiden teşekkür ederim.

 

[Ayhan Ercan]

Anasayfanın adını "ANASAYFA" olarak kabul edelim.

Sub DENEME()
Dim i As Double
i = Sheets("ANASAYFA").Range("a1").Value
Worksheets("" & i).Select
End Sub

 

[SoN]

oldu. çok teşekkür ederim.

 

[Recep İpek]

Merhaba,

Alternatif için ekteki dosyayı inceleyebilirmisiniz.

Kolay gelsin.