Hücre yi tıklayınca çalışma sayfama geçme

Katılım
9 Eylül 2007
Mesajlar
65
Excel Vers. ve Dili
excel 2007
Merhaba, yapmak istediğim bir sütunda

A
ISTANBUL
ANKARA
IZMIR
BOLU

bunlardan mesela BOLU hücresini tıklayınca 2. çalışma sayfamdaki bolu hücresine gitmesi istiyorum acaba bunu nasıl yapabiliriz. Teşekkür ederim.
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba
birkaç yolu olabilir.
en basiti köprü kurmayı deneyin.
bolu yazan hücreyi sağ tıkla / köprü / bu belgede yerleştir / sayfa2 seç / hücre başvurusu (bolu yazan hücre adresi yazınız)
 
Katılım
9 Eylül 2007
Mesajlar
65
Excel Vers. ve Dili
excel 2007
Cevabınız için çok sağolun işime yaradı ama sorun şu listeye yeni bir satır eklersem hüceler de kayma olursa yine problem oluştur bu seferde alakasız hücrelere gidecek yardımlarınızı bekliyorum...
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba
ek dosya işinizi görür mü?
kodlar sanıyorum syn Ayhan Ercan'dan alıntıdır.
 

BG

Özel Üye
Katılım
5 Mayıs 2008
Mesajlar
1,380
Excel Vers. ve Dili
Office 2021 TR & EN
Merhaba

dosyanız ektedir.

düzeltme yapıyorum, afedersiniz soruyu yanlış anlamışım, benim yaptığım örnek hücre ismi ile sayfa ismi aynı ise ilgili sayfaya gidiyor...
 
Katılım
9 Eylül 2007
Mesajlar
65
Excel Vers. ve Dili
excel 2007
Merhaba, Uzmanamele arkadaşımın gönderdiği dosya tam aradığım dosya fakat şöyle bir sorun yaşıyorum sütunlardaki hücreleri tıklayınca çalışma sayfasına geçemiyor aynı hücreyi elleden yazınca iki tarafada ozaman çalışıyor acaba kopyalayak yapıştırdığım satırlarda neden çalışmıyor yardımcı olursanız sevinirim
 
Son düzenleme:

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba
kodları aşağıdaki şekilde değiştirin ve gitmek istediğiniz il adını çift tıklayın

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not IsEmpty(Target) Then
Set BUL = Sheets("Sayfa2").Cells.Find(Target)
If Not BUL Is Nothing Then
Sheets("Sayfa2").Select
Sheets("Sayfa2").Range("" & BUL.Address).Select
Set BUL = Nothing
End If
End If
End Sub
 
Katılım
9 Eylül 2007
Mesajlar
65
Excel Vers. ve Dili
excel 2007
Sorun düzeldi çok teşekkür ederim
 
Üst