Hata nerede?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
1004 numaralı mesajı halletmeyi bir türlü öğrenemedim.

Sub SonrakiSayfayaGit()
    Dim Syf As Worksheet
    ActiveSheet.Range(Range("G1").Text).Value = Syf
    Sheets(Syf).Visible = True
    Sheets(Syf).Select
    Sheets(Syf).Activate
End Sub

Ekli resim dosyasındaki hata mesajı geliyor
Yardımcı olursanız sevinirim.
Saygılarımla

 

[Mustafa MUTLU]

ActiveSheet.Range(Range("G1").Text).Value = Syf

Bunu tersinden yazarsanız acaba olur mu ?

Syf = ActiveSheet.Range(Range("G1").Text).Value

 

[Tevfik_Kursun]

Maalesef o da olmuyor, denemiştim
İlginize teşekkür ederim

 

[mancubus]

worksheet bir nesnedir ve nesnelere atama Set konutu ile yapılır.

A5'te sayfasnın adının yazılı olduğunu var sayarsak

Set Syf = Worksheets(Range("A5").Value)

tabii bu mantığı A5'teki sayfa isminin değişebileceğini düşünerek kullanmalıyız.

değişmeyecekse:

Set Syf = Worksheets("Sayfa7")

 

[Tevfik_Kursun]

Bu da Run-time error '13' Type mismatch şeklinde hata mesajı verdi
İlginize teşekkür ederim

 

[Mustafa MUTLU]

Şunu denermisiniz..

Sub SonrakiSayfayaGit()
For a = 1 To Sheets.Count
        If [g1] Like Sheets(a).Name Then
        Sheets(a).Visible = True
        Sheets(a).Select
        Sheets(a).Activate
        Exit Sub
        End If
Next a
MsgBox "İŞLEM TAMAMLANMIŞTİR !...", vbInformation, "BİTTİİ"
End Sub

 

[Tevfik_Kursun]

Çok teşekkür ederim Mustafa Hocam. Düzgün çalışıyor
Saygılarımla

 

[Mustafa MUTLU]

Çok teşekkür ederim Mustafa Hocam. Düzgün çalışıyor
Saygılarımla

Rica ederim
iyi geceler..