Sayfaya Git

[alfaoz]

Merhaba arkadaşlar;
Excelde tek bir worksheet sayfam var. Görünümden "Sayfa Önizleme"de çalışıyorum. Arka planda (çıktıdaki sayfa sırasını belirten) sayfa numarası yazıyor (Sayfa 5- Sayfa 875 gibi). Bu sayfa numaralarından istediğime gitmek için pratik bir yol var mıdır?

 

[Ömer BARAN]

Kaydırma çubuğunu kullanmak istemiyorsanız; CTRL+PGDOWN ile aşağı CTRL+PGUP ile yukarı şeklinde ekranda gördüğünüz kadarlık ölçüler şeklinde hareket edebilirsiniz.
Ayrıca, CTRL+Aşağı Ok tuşuyla en son dolu satıra, CTRL+END tuşuyla enson dolu hücreye, CTRL+HOME tuşuyla sayfanın en başına..... gibi hareket imkanı veren kısa yolları kullanabilirsiniz.

 

[alfaoz]

Ömer bey Teşekkürler ancak sizin söyledikleriniz zaten bildiğim kısayollar benim istediğim word sayfası gibi sayfaları olan dosyamda sayfaya git diyerek istediğim sayfaya gitmek wordde bu yapılabiliyor yanlış hatırlamıyorsam

 

[ynmcan]

Syn. Alfaoz:
İşinize yararmı bilmiyorum.
Ad kutusuna gitmek istediğiniz hücreyi ( örneğin A228 ) yazıp enter a basın.

 

[Orion1]

Sayfaları kaydırma çubuğuna sah tıklayın.Listelenen sayfa adlarından birine tıklayın.

 

[Korhan Ayhan]

Ekteki örnek dosyada sayfa önizleme ayarını yaptıktan sonra Rapor isimli sayfadaki butona tıkladığınızda listeyi yenileyecektir. Görünen sayfa alanlarına link ekleyecektir. Böylecek ilgili linke tıklayarak önizlemede görünen sayfaya kolayca ulaşabileceksiniz.

Umarım işinize yarar...

 

[alfaoz]

sn ynmcan verdiğiniz bilgi için teşekkürler ancak ben hücreye değil sayfaya gitmek istiyorum. sn Orion1 dediğinizi yaptım ancak sn ömer.baranın söyledikleriyle sınırlı seçenekler var. Benim isteğim sayfa modunda 500 sayfalı bir excel dosyasında istediğim sayfalara gitmek. Bu söylediğimi wordde kontrol ettim doğru hatırlıyormuşum böyle bir özellik wordde var. wordde F5 tuşuna basınca hangi sayfaya gitmek istediğinizi soran bir pencere çıkıyor excelde de istediğim tam olarak bu.

 

[Korhan Ayhan]

Makrolu bir çözüm önermiştim. İşinize yaramadı mı?

 

[ZuCChiNi]

Aşağıdaki kodu VBA Projesi olarak ekleyin.
Sayfada bir düğme oluşturun
Kodu düğmeye makro olarak atayın.

Sub GotoPageBreak()
    Dim iPages As Integer
    Dim wks As Worksheet
    Dim iPage As Integer
    Dim iVertPgs As Integer
    Dim iHorPgs As Integer
    Dim iHP As Integer
    Dim iVP As Integer
    Dim iCol As Integer
    Dim lRow As Long
    Dim sPrtArea As String
    Dim sPrompt As String
    Dim sTitle As String

    Set wks = ActiveSheet
    iPages = ExecuteExcel4Macro("Get.Document(50)")
    iVertPgs = wks.VPageBreaks.Count + 1
    iHorPgs = wks.HPageBreaks.Count + 1
    sPrtArea = wks.PageSetup.PrintArea

    sPrompt = "Enter a page number (1 through "
    sPrompt = sPrompt & Trim(Str(iPages)) & ") "
    sTitle = "Enter Page Number"

    iPage = InputBox(Prompt:=sPrompt, Title:=sTitle)

    If wks.PageSetup.Order = xlDownThenOver Then
        iVP = Int((iPage - 1) / iHorPgs)
        iHP = ((iPage - 1) Mod iHorPgs)
    Else
        iHP = Int((iPage - 1) / iVertPgs)
        iVP = ((iPage - 1) Mod iVertPgs)
    End If

    If iVP = 0 Then
        If sPrtArea = "" Then
            iCol = 1
        Else
            iCol = wks.Range(sPrtArea).Cells(1).Column
        End If
    Else
        iCol = wks.VPageBreaks(iVP).Location.Column
    End If

    If iHP = 0 Then
        If sPrtArea = "" Then
            lRow = 1
        Else
            lRow = wks.Range(sPrtArea).Cells(1).Row
        End If
    Else
        lRow = wks.HPageBreaks(iHP).Location.Row
    End If

    wks.Cells(lRow, iCol).Select
    Set wks = Nothing
End Sub

 

[alfaoz]

Sn Korhan Ayhan gönderdiğiniz dosyayı inceledim kendi dosyamada uyarlamaya çalıştım. Sayfaları buluyor ancak sayfaya tıkladığımda başvuru geçerli değil uyarısı alıyorum. Bir de her yeni sayfa eklediğimde listeyi yenileme gerekiyor sanırım. Sn ZuCChiNi çok teşekkür ederim aradığım tam da buydu.

 

[Korhan Ayhan]

Sayfa sonu önizleme ekranında ayarlarınızı yaptıktan sonra Rapor sayfasındaki butona tıkladığınızda sayfa bağlantılarını yenileyecektir. Birkaç eklenti ile daha kullanışlı hale getirilebilir.