tum sayfaların a1 hucresıne genel sayfasına kopru olusturmak

[kneehot]

selamlar arkadaslar.yaptıgım tablonun sonuna geldım.son takıldıgım konu bır makro ıle kıtaptakı tum sayfaların a1 hucresıne tıklayınca genel ısımlı sayfaya gıdecek bır kopru olusturmak.tum yardımlara tesekkurler.

 

[İhsan Tank]

selamlar arkadaslar.yaptıgım tablonun sonuna geldım.son takıldıgım konu bır makro ıle kıtaptakı tum sayfaların a1 hucresıne tıklayınca genel ısımlı sayfaya gıdecek bır kopru olusturmak.tum yardımlara tesekkurler.

sayfanın herhangi bir hücresine tıkladığınız bunu yapmasını istiyorsanız
kod bölümünün thisworkbook bölümüne

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets("Genel").Select
MsgBox "Genel Sayfasını Açtınız.", , "İhsan Tank"
End Sub

bu kodu yapıştırınız
örnek dosya ekte

 

[kneehot]

sayfanın herhangi bir hücresine tıkladığınız bunu yapmasını istiyorsanız
kod bölümünün thisworkbook bölümüne

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets("Genel").Select
MsgBox "Genel Sayfasını Açtınız.", , "İhsan Tank"
End Sub

bu kodu yapıştırınız
örnek dosya ekte

sayın ıhsan tank bu sekılde sayfalarıma verı gırmemın bır yolu kalmıyor.benım ıstedıgım bır makro ıle kıtaptakı tum sayfaların a1 hucresıne genel yazısı ekleyıp tıklayınca genel sayfasına gıtmesı.ılgınız ıcın tesekkur ederım.

 

[İhsan Tank]

sayın ıhsan tank bu sekılde sayfalarıma verı gırmemın bır yolu kalmıyor.benım ıstedıgım bır makro ıle kıtaptakı tum sayfaların a1 hucresıne genel yazısı ekleyıp tıklayınca genel sayfasına gıtmesı.ılgınız ıcın tesekkur ederım.

merhaba
anladığım kadarı ile siz hücre'de Link - Köprü olmasını istiyorsunuz
eki inceleyin nasıl yapıldığını bu link'ten öğrenebilirsin

 

[kneehot]

merhaba
anladığım kadarı ile siz hücre'de Link - Köprü olmasını istiyorsunuz
eki inceleyin nasıl yapıldığını bu link'ten öğrenebilirsin

sayın ıhsan tank kopru olusturmayı bılıyorum ama dosyamda 400 sayfa var bu sekılde olusturmaya kalkarsam 1 haftamı alır sanırım.ben bır makro ıle bunu halletmeye calısıyorum.

 

[İhsan Tank]

sayın ıhsan tank kopru olusturmayı bılıyorum ama dosyamda 400 sayfa var bu sekılde olusturmaya kalkarsam 1 haftamı alır sanırım.ben bır makro ıle bunu halletmeye calısıyorum.

bence o kadar vaktinizi almaz hatta belkide hiç almaz.
ben sizin yerinizde olsam önümde iki yol görürdüm
1. yol
a1 hücresinde bulunan köprü'yü kopyalıyarak diğer sayfalara yapıştırmak.
2. yol ise
gene köprü'yü kopyalar hangi sayfalara yapıştıracak isem sekmeleri ctrl yardımı ile seçerdim sonra hangi hücreye yapıştırmak istiyorsam o hücreye yapıştırırdım.

tabi siz makro istiyorsunuz orası başka_?

 

[kneehot]

evet bu aklıma gelmemıstı.yaptım oldu tesekkurler.

 

[İhsan Tank]

evet bu aklıma gelmemıstı.yaptım oldu tesekkurler.

rica ederim
yardımcı olabilsiysem ne :mutlu: bana

 

[Necdet]

Merhaba,

Köprü kullanmaya gerek var mı?

İlla A1 hücresini kullanmak istiyorsanız, A1 hücresine çift tıklayarak Genel sayfasına geçebilirsiniz.

Aşağıdaki kodları ThisWorkbook un sayfa bölümünde olmalı

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name = "Genel" Then Exit Sub
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Sheets("Genel").Select
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun.

Sub SayfaKöprü()
 
    Dim i As Integer
 
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "GENEL" Then
                .Range("A1") = Sheets(i).Name
                .Hyperlinks.Add .Range("A1"), ActiveWorkbook.Name, "GENEL!A1"
            End If
        End With
    Next i
 
End Sub

.

 

[Merhum İdris SERDAR]

.

Bir alternatif de benden.

Sub icindekiler()
   
   Dim i As Integer
      For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "Menu" Then
                .Range("A1") = "Menu"
                .Hyperlinks.Add .Range("A1"), ActiveWorkbook.Name, "Menu!A1"
            End If
        End With
    Next i
    
Dim sayfa As Worksheet, sat As Long
With Sheets("Menu")
    .Range("A:A").Clear
    sat = 1
    For Each sayfa In ActiveWorkbook.Worksheets
        If sayfa.Name <> "Menu" Then
            .Hyperlinks.Add Anchor:=.Cells(sat, 1), Address:="", SubAddress:= _
                "'" & sayfa.Name & "'!A1", TextToDisplay:=sayfa.Name
            sat = sat + 1
        End If
    Next sayfa
End With

End Sub

Örnek dosya ekte.

.

 

[blazer2004]

merhaba arkadaşlar öncelikle nejdet beyin makrosu çok güzel olmuş ben bu konuyla ilgili bir soru sorcam,acaba excel sayfamın içindeki bir hücrede kalem yazıyor ben bu yazıya tıkladığımda başka bir excel sayfamdaki kalem isimli sheet'i açmasını istiyorum bu mümkün mü acab?şimdiden herkese teşekkürler.

 

[İhsan Tank]

merhaba arkadaşlar öncelikle nejdet beyin makrosu çok güzel olmuş ben bu konuyla ilgili bir soru sorcam,acaba excel sayfamın içindeki bir hücrede kalem yazıyor ben bu yazıya tıkladığımda başka bir excel sayfamdaki kalem isimli sheet'i açmasını istiyorum bu mümkün mü acab?şimdiden herkese teşekkürler.

Dosya ekler misiniz_?
İçinde açıklama eklerseniz daha fazla yardım alırsınız.
Not : Başka dosya açmak istiyorsanız lütfen yol bilgisini veriniz_? örneğin

D:\blazer2004

gibi

 

[blazer2004]

İhsan Bey gerekli dosyaları gönderiyorum Teşekkür ederim.

 

[İhsan Tank]

İhsan Bey gerekli dosyaları gönderiyorum Teşekkür ederim.

Merhaba
Ambar.xls sayfasının Sheet1 sayfasının kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox(Target & " Sayfasını Açmak İstiyor Musun", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
ts = ThisWorkbook.Path & "\"
kaplan = "ürün.xls"
trabzonspor = Target
Workbooks.Open (ts & kaplan)
Workbooks(kaplan).Sheets(Target.Text).Select
End Sub

A1:A65536 satır arasında seçtiğiniz verinin sayfasını açar.
Not : A1 hücresine yazdığınız kalem nesnesinin sonunda boşluk mevcut ama diğer kitap'da boşluk bulunmuyor bundan dolayı hata alabilirsiniz_? İkisini birbirine eşitleyin. Ya A1 hücresinin sonundaki boşluğu alın yada kitap'taki kalem sekmesinin sonuna boşluk bırakın.

 

[blazer2004]

çok teşekkürler İhsan Bey sayenizde istediğim işlemleri yapabiliyorum iyi çalışmalar,tekrar teşekkürler

 

[İhsan Tank]

çok teşekkürler İhsan Bey sayenizde istediğim işlemleri yapabiliyorum iyi çalışmalar,tekrar teşekkürler

Rica ederim
:keyif: