HÜcrenin İsmine Göre Sayfaya Gitme

[intermat]

Merhabalar,

Bir sorum olacaktı:

Excelde Proje Sayfası, Şablon olmak üzere 2 çalışma sayfam war. Proje Sayfasında bulunan butona basıldığında, Proje Sayfasında C6 hücresindeki isimle, Şablonu kopyalarak yeni bir sayfa oluşturabiliyorm.

Sizden ricam bir tuş daha eklesek ve bu tuşa bastığımızda C6 da ismi yazan sayfaya gitse.

Worksheets(Range("C6").Value).Select

Bu kod bu işlevi sağlıyor ama IF mantığıyla bişiler yapmak gerekmekte. Çünkü C6 boşsa veya olmayan bi sayfa ismiyse HATA veriyor. Hata vermesini istemiyorum. MSGBOX gelmesini istiyorm.

Yardımcı olursanız çok sevinirim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sayfayagit()
On Error GoTo hata
Sheets([c6].Text).Activate
Exit Sub
hata:
MsgBox "Bu isimde bir sayfa bulunamadı", vbInformation
End Sub