hücreye isim yazıldığında o isme uyan sayfaya gitmek

[aliberberoglu1981]

Arkadaşlar kolay gelsin. benim şirketlere satışların yapıldığı bir excel sayfam var. benim istediğim örneğin sayfa1 de a1 hücresine o şirketin ismini yazdığımda o şirketin sayfasına gitmek istiyorum. bunu nasıl yapa bilirim

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan, uygulama yapmak istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(Target.Value).Activate
[B]End Sub[/B]

 

[aliberberoglu1981]

Çok teşekkür ederim ömer bey tam istediğim gibi

 

[typhoon58]

Merhaba.

-- Alt taraftan, uygulama yapmak istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(Target.Value).Activate
[B]End Sub[/B]

ben denediğimde expression hatası veriyor, birde açılır listeden seçtiğim sayfa ismine göre o sayfaya gitmesini nasıl sağlayabilirim teşekkürler

 

[Necdet]

ben denediğimde expression hatası veriyor, birde açılır listeden seçtiğim sayfa ismine göre o sayfaya gitmesini nasıl sağlayabilirim teşekkürler

Ömer Bey'in verdiği kodlar sizin için de geçerli.
Kodları kendinize uyarlayınız. Ömer bey'in kodlarında A1 hücresi değiştiğinde çalışan kodlar. Sizde hangi hücre değişirse o hücreye veri doğrulama uygulayın, yeterli.

 

[typhoon58]

Ömer Bey'in verdiği kodlar sizin için de geçerli.
Kodları kendinize uyarlayınız. Ömer bey'in kodlarında A1 hücresi değiştiğinde çalışan kodlar. Sizde hangi hücre değişirse o hücreye veri doğrulama uygulayın, yeterli.

Teşekkür ederim.