ÇALIŞMA SAYFALARI ARASI GEÇİŞ.

[Daywalker_01]

Merhabalar ,

Dim xRet As Variant

Dim xSht As Worksheet

xRet = Application.InputBox("Go to this sheet")

Set xSht = Sheets(xRet)


xSht.Activate

Bu kodu kullanarak çalısma sayfamın basında sheet1 , sheet2,sheet3 yazınca geçiş yapabiliyorum fakat ben sadece çalışma sayfama 1,2,3 demek istiyorum , sheets silince kod hata veriyor , sheets o koddan nasıl kaldırılır?

 

[Muzaffer Ali]

Merhaba.
Şu satırı silin Set xSht = Sheets(xRet) yerine şu satırı kopyalayın Set xSht = Sheets("Sheet" & xRet)

 

[Daywalker_01]

Merhaba.
Şu satırı silin Set xSht = Sheets(xRet) yerine şu satırı kopyalayın Set xSht = Sheets("Sheet" & xRet)

Muzaffer bey yardımınız için teşekkürler fakat hata veriyor .

 

[Muzaffer Ali]

Çıkan inputbox'a 1, 2 yada 3 yazıyorsunuz ve dosyanızda sheet1, sheet2, sheet3 adlı sayfalar varsa hata vermemesi gerekir.
Yeniden kontrol edin çözemezseniz dosyanızı ekleyin kontrol edeyim.
Dosyanızı dosya.tc gibi bire siteye ekleyebilirsiniz.

 

[Daywalker_01]

Çıkan inputbox'a 1, 2 yada 3 yazıyorsunuz ve dosyanızda sheet1, sheet2, sheet3 adlı sayfalar varsa hata vermemesi gerekir.
Yeniden kontrol edin çözemezseniz dosyanızı ekleyin kontrol edeyim.
Dosyanızı dosya.tc gibi bire siteye ekleyebilirsiniz.

Muzaffer bey, sayfa adları sadece 1-2-3 seklinde sheet olarak başına yazmak istemiyorum , sheet1- sheet2 olunca zaten kod işe yarıyor ama sadece sayfa adı 1-2-3 seklinde olunca işe yaramıyor.

 

[Muzaffer Ali]

Sayfa adlarını 1, 2, 3 olarak değiştirdiyseniz. O zaman sizin paylaştığınız kod ile yapabilirsiniz.
Açılan kutuya 1, 2 yada 3 yazdığınızda sayfa zaten aktif olur.

 

[Erkan Akayay]

İngilizce ise Sayfa yerine Sheet yazın.
Sub xx() xRet = Application.InputBox("Go to this sheet") Sheets("Sayfa" & xRet).Activate End Sub

 

[Daywalker_01]

Sayfa adlarını 1, 2, 3 olarak değiştirdiyseniz. O zaman sizin paylaştığınız kod ile yapabilirsiniz.
Açılan kutuya 1, 2 yada 3 yazdığınızda sayfa zaten aktif olur.

Aynen oldu bu sefer ilk hata veriyordu simdi eski haline aldım düzeldi.