veriye göre sekmelerde otomatik geçiş yapma

[Gold_Savt]

ekli örnektede izah ettiğim gibi bir hücreye belirlenmiş bir veri girildiğinde otomatik sekme geçişi nasıl sağlarım.
ilgilenen arkadaşlara şimdiden teşekkür ederim.
( Not: memur olduğumuz için hala ofis 2003 kullanıyorum. )

 

[Orion1]

Dosyanız ektedir.

Sub Açılan2_Değiştir()
On Error Resume Next
Dim sh As String
sh = LCase(Replace(Replace(Range("B1").Value, "I", "ı"), "İ", "i"))
Sheets(sh).Select
End Sub

 

[Gold_Savt]

bu kadar hızlı ve doğru bir cevap beklemiyordum doğrusu. teşekkür ederim

 

[Orion1]

bu kadar hızlı ve doğru bir cevap beklemiyordum doğrusu. teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[Gold_Savt]

eklentide de belirttiğim gibi;

1: sayfayı koruduğumda makro çalışmıyor. ben hem sayfayı korumayı hem makroyu korumayı hemde makronun çalışır olmasını istiyorum. bunu yapamadım.

2: birde üzerinde çalıştığımız tablonun dışında kalan tüm yerleri kapatma şansımız varmı.
teşekkür ederim.
(ofis 2003)

 

[Orion1]

eklentide de belirttiğim gibi;

1: sayfayı koruduğumda makro çalışmıyor. ben hem sayfayı korumayı hem makroyu korumayı hemde makronun çalışır olmasını istiyorum. bunu yapamadım.

2: birde üzerinde çalıştığımız tablonun dışında kalan tüm yerleri kapatma şansımız varmı.
teşekkür ederim.
(ofis 2003)

1)açılan kutudaki makroyu aşağıdaki ile değşitiriniz.
Şifreniz yazan yere siz kendi şifrenizi yazınız.
2) bunu satır ve sütunları gizleyerek yapabilirsiniz.

On Error Resume Next
Dim sh As String
ActiveSheet.Unprotect "[B][COLOR="Red"]Şifreniz[/COLOR][/B]"
sh = LCase(Replace(Replace(Range("F1").Value, "I", "ı"), "İ", "i"))
ActiveSheet.Protect "[B][COLOR="Red"]Şifreniz[/COLOR][/B]"
Sheets(sh).Select

 

[Gold_Savt]

hata var sanırım. sorun düzelmedi hocam. sayfayı koru dediğimde uyarı alıyorum. sayfanın korumasını kaldırdığımda normal çalışıyor ama bu seferde sayfa korumasız kalıyor.

 

[Orion1]

hata var sanırım. sorun düzelmedi hocam. sayfayı koru dediğimde uyarı alıyorum. sayfanın korumasını kaldırdığımda normal çalışıyor ama bu seferde sayfa korumasız kalıyor.

Sayfaya korumaya parola koymuşsunuz.
Sayfa koruma şifreniz nedir?

 

[Orion1]

Dosyanız ektedir.