köprüden istenilen sayfayı açma

[kkkmert]

office online dan takvim indirdim takvime köprü yapacam fakat köprüde 1-30 günlük bir excel çalışma sayfası yaptım bu köprüyü yaptıktan sonra takvimden hangi günü tıklarsam köprüden o günün açılmasını istiyorum acaba bunun köprüsünü nasıl ayarlamalıyım.

[/URL][/IMG]

 

[Orion1]

Örnek dosyayı ekleyebilirmisiniz?

 

[kkkmert]

xls dosyalarını gönderdim.

 

[Orion1]

2 dosyanın da açık olması gerekiyor.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim syf As String
On Error GoTo hata
syf = Target.Value
Workbooks("tarih.xls").Activate
Sheets(syf).Select
hata:
End Sub

 

[kkkmert]

Orion 2 bana excel i yapmışsın teşekürler yanlız ben bunu her ay için ayrı ayrı açılmasını istiyorum senin yaptıgında hep aynısı açılıyor bunu nasıl düzeltiriz mesela ocak ayında ocak şubat ayında şubat mart ayında mart açılmasını istiyorum bunu nasıl yapabiliriz acaba.

 

[kkkmert]

Bütün Ayları gönderiyorum

 

[Orion1]

Orion 2 bana excel i yapmışsın teşekürler yanlız ben bunu her ay için ayrı ayrı açılmasını istiyorum senin yaptıgında hep aynısı açılıyor bunu nasıl düzeltiriz mesela ocak ayında ocak şubat ayında şubat mart ayında mart açılmasını istiyorum bunu nasıl yapabiliriz acaba.

Eklediğiniz tarih.xls dosyasına göre yaptım.Doğru dosyayı yollarsanız o şekilde tekrardan düzenlerim.

 

[Orion1]

Ben 2008 takvim3 dosyasındaki Ocak Şubat ve Mart aylarını biçimlendirdim.Şimdi Bu 3 ay'a ait kitapları açabiliyor.
Diğer aylarıda siz biçimlendirin.Ozaman hepsi için çalışacaktır.
Çalışabilmesi için ilgili dosyanın açık olması gerekiyor.
Ekli dosyayı inceleyiniz.

 

[kkkmert]

Orion 2 Bu biraz karışık ve programın yapılış tarzına yanlış oluyor ben bunlara köprü yapıp açmak istiyorum bu şekilde yapamazmıyız.Bu şekilde işin içinden çıkılmaz oluyor.

 

[Orion1]

Birde ekteki dosyayı denermisiniz?

 

[kkkmert]

Bu ekteki dosyay baktım fakat bu benim ne işime yarıyacak ben ekte verdiklerim varya onlara orada anlattıgım gibi bir köprü yapabilsem tamam.
mesela ocak 1' tıkladıgımda takvimde ocak ayı için yaptıgım çalışmada ocak 1 in açılması veya ocak 2 yi tıkladıgımda ocak içinden 2 nin açılması gibi basit bir köprü fakat ben yapamadım o köprüyü.

 

[Necdet]

Merhaba,

Birşeyler yapmaya çalıştım. Ekteki 2008 Takvimi dosyası ile sizin aylık dosyaları aynı klasörün altına koyun ve takvim dosaysını açınız.

12 adet ad tanımı yapılmıştır. Dosyada kullandığım tüm kodları buraya ekliyorum.

Option Base 1
Sub KöprüEkle()
Dizi = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
Application.ScreenUpdating = False
For i = 1 To 12
    Range(Dizi(i)).Select
    For Each Hücre In Selection
        If Hücre <> "" Then
            Hücre.Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Dizi(i) & ".xls", _
                SubAddress:="'" & Hücre.Value & "'!A1"
        End If
    Next Hücre
Next i
End Sub
Public Sub Link_Sil()
Cells.Hyperlinks.Delete
End Sub

Ad tanımını yapan makro :

Sub Ad_Tanimla()
    Range("B6:H10").Select
    ActiveWorkbook.Names.Add Name:="Ocak", RefersToR1C1:="='2008'!R6C2:R10C8"
    Range("J6:P10").Select
    ActiveWorkbook.Names.Add Name:="Şubat", RefersToR1C1:= _
        "='2008'!R6C10:R10C16"
    Range("R6:X11").Select
    ActiveWorkbook.Names.Add Name:="Mart", RefersToR1C1:="='2008'!R6C18:R11C24"
    Range("B15:H19").Select
    ActiveWorkbook.Names.Add Name:="Nisan", RefersToR1C1:="='2008'!R15C2:R19C8"
    Range("J15:P19").Select
    ActiveWorkbook.Names.Add Name:="Mayıs", RefersToR1C1:= _
        "='2008'!R15C10:R19C16"
    Range("R15:X20").Select
    ActiveWorkbook.Names.Add Name:="Haziran", RefersToR1C1:= _
        "='2008'!R15C18:R20C24"
    Range("B24").Select
    ActiveWindow.SmallScroll Down:=12
    Range("B24:H28").Select
    ActiveWorkbook.Names.Add Name:="Temmuz", RefersToR1C1:= _
        "='2008'!R24C2:R28C8"
    Range("J24:P28").Select
    ActiveWorkbook.Names.Add Name:="Ağustos", RefersToR1C1:= _
        "='2008'!R24C10:R28C16"
    Range("R24:X28").Select
    ActiveWorkbook.Names.Add Name:="Eylül", RefersToR1C1:= _
        "='2008'!R24C18:R28C24"
    Range("B32:H36").Select
    ActiveWorkbook.Names.Add Name:="Ekim", RefersToR1C1:="='2008'!R32C2:R36C8"
    Range("J32:P36").Select
    ActiveWorkbook.Names.Add Name:="Kasım", RefersToR1C1:= _
        "='2008'!R32C10:R36C16"
    Range("R32:X36").Select
    ActiveWorkbook.Names.Add Name:="Aralık", RefersToR1C1:= _
        "='2008'!R32C18:R36C24"
End Sub

 

[kkkmert]

Necdet_Yesertener teşekürler tam istediğim gibi olmuş.