Hücreye tıklandığında çalışma sayfasının açılması

[umutins]

arkadaşlar hücreye tıklandığında aynı excel dosyası içerisinde farklı bir çalışma sayfasını açmak istiyorum.bu nasıl mümkün olabilir yardımcı olabilirmisiniz acaba.şimdiden teşekkürler.

 

[Mahir64]

sayfa geçişi

eki inceleyim

 

[Necdet]

arkadaşlar hücreye tıklandığında aynı excel dosyası içerisinde farklı bir çalışma sayfasını açmak istiyorum.bu nasıl mümkün olabilir yardımcı olabilirmisiniz acaba.şimdiden teşekkürler.

Merhaba,

Tıklanan hücrede gidilecek sayfanın adı var mı?

 

[umutins]

evet var.excel hücresine tıkladığımda istediğim sayfa açılacak( sayfa1,sayfa2 vb ).buton olmayacak.

 

[Korhan Ayhan]

Selamlar,

Bu işlemi yapacağınız sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    If Target = "" Then Exit Sub
    If Target <> "" Then Sheets(Target.Text).Select: Exit Sub
Son: MsgBox Target & " sayfası bulunamadı !", vbExclamation
End Sub

 

[umutins]

Tamam Teşekkürler.Deneyip foruma yazıcam sonucu.

 

[Gold_Savt]

butonlara veya sekme adlarına göre sekme geçişleri yapılabiliyor.
benim şu an ihtiyacım olan WORD ART yazılarına sayfa geçişi yaptırmamız mümkünmü
birinci wordart yazısı ile 1sayfa
ikinci word art yazısı ile 2sayfa gibi. şiddetle ihtiyacım var. şimdiden teşekkür ederim.

 

[sabrisarikaya]

Selamlar,

Bu işlemi yapacağınız sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    If Target = "" Then Exit Sub
    If Target <> "" Then Sheets(Target.Text).Select: Exit Sub
Son: MsgBox Target & " sayfası bulunamadı !", vbExclamation
End Sub

Korhan Bey,
Bu koda, çift tıklamayı nasıl ekleyebiliriz. tek tıklama da değilde, çift tıklama ile açılsın.
Örnek A1'de "1" A2' de "sabri sarikaya" varsa; A2'ye çift tıklayınca A1'deki değerin ismindeki sayfayı açsın, gibi.

 

[sabrisarikaya]

Makrolarla ilgili hiç bilgim yok ancak,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
    If Target = "" Then Exit Sub
    If Target <> "" Then Sheets(Target.Text).Select: Exit Sub
Son:     MsgBox Target & " sayfası bulunamadı !"
End Sub

şeklinde yaptım oldu.
Şimdi ise lazım olan çift tıkladığım satırın farklı bir hücresinden okuma yaptırabilmek..
A2' ye çift tıklayıp A1'dekini aldırmak gibi...

(0, -1) gibi bir değer eklemek gerek sanırım, aynı satır, bir solundaki sütün için,
ancak nereye eklediysem kod hata veriyor... Seçimde okuyacağı hücreyi seçtiği yer neresi ise oraya eklemek lazım gibi,
veya satırda hangi hücre olursa olsun A sütununa dönmesi için yapabilecek bişi olabilir, range olayını A sütünü nasıl yapılabilir ?