Gidilecek Sayfa Adini ve Hucre Adresini Hucreden Oku

[baydeniro]

Merhaba arkadaşlar. Bir sayfa iken D1 hücresinde tanımlı (sürekli değişebilir) sayfa ve hücre adresine gitmeyi sağlayan bir kod var mıdır ? Örnek dosya ekte

 

[isteobenim]

Selamlar,

Sub SayfaAc()
Set s1 = Worksheets("DATA")
Worksheets(s1.Range("D1").Text).Select
Range(" A2").Select
End Sub

 

[baydeniro]

Çok teşekkür ederim, çok çok makbule geçti. Biraz arsızlık yapıp, bir de hücreyi de parametrik yapsak kod nasıl olur diye sorsam !!!

 

[Korhan Ayhan]

Selamlar,

Eğer gitmek istediğiniz sayfayı ve hücre bilgisini örnek dosyanızdaki gibi kullanacaksanız aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SAYFAYA_GİT_HÜCREYİ_SEÇ()
    Dim S1 As Worksheet
    
    Set S1 = Sheets("DATA")
    
    Sheets(CStr(Split(S1.Range("D1"), "!")(0))).Select
    Range(CStr(Split(S1.Range("D1"), "!")(1))).Select
 
    Set S1 = Nothing
End Sub

 

[baydeniro]

Çok çok teşekkür ederim sayın Korhan Ayhan, çok işime yarayacak. Sağlıcakla kalın.