Hücrede adı yazan sekmeye gitmek

[alparslanozmol]

Merhaba,

Butona tıklandığında Çalışma yapılan sayfadaki F4 hücresinde eğer hata yazıyorsa bir uyarı kutusu çıkıp lütfen seçim yapınız, şayet hata dışında bir şey yazıyorsa ,F4 hücresinde yazan sheete gitmesini sağlayacak bir makro yazmaya çalıştım ama olmadı hata nerdedir acaba.


Yardımınızı rica ederim.

Sub Button5_Click()
dosyaadi = [f4]

If dosyaadi = "hata" Then
MsgBox "LÜTFEN SEÇİM YAPINIZ...", vbInformation, _
"UYARI !!!"
Else

Sheets(dosyaadi).Select
End Sub

 

[askm]

if i kapatmayı unutmuşsunuz.

Sub Button5_Click()
dosyaadi = [f4]

If dosyaadi = "hata" Then
MsgBox "LÜTFEN SEÇİM YAPINIZ...", vbInformation, _
"UYARI !!!"
Else
    Sheets(dosyaadi).Select
End If
End Sub

 

[alparslanozmol]

Hocam, @askm

Şu satırda hata veriyor.

Sheets(dosyaadi).Select

 

[askm]

f4 e yazdığınız sayfa yok ise hata verir. Örnek dosya eklerseniz bakalım.

 

[askm]

Sayfa varsa ilgili sayfaya gider yoksa sayfa yok yazar.

Sub Askm_Sayfa_Yoksa()
dosyaadi = [f4]
On Error Resume Next
If Sheets("" & dosyaadi & "") Is Nothing Then
    MsgBox dosyaadi & " adında bir sayfa yok...", vbInformation, "UYARI !!!"
Else
    Sheets(dosyaadi).Select
End If
End Sub

 

[alparslanozmol]

@askm,

hocam teşekkürler.ilettiğiniz kod çalıştı.

 

[askm]

Rica ederim.