link naar ander tablad

[don42]

beste allemaal

ik heb:

Application.Goto Sheets(" ActiveCell.Offset(0, -4")

Dit werkt dus niet, maar zou graag zien dat deze link naar tabblad 1 gaat
vier kolommen van de geselecteerde cel staat 1
is dit mogelijk?

Application.Goto Sheets("1").Range("E5")

werkt wel maar wil het graag met offset

 

[edmoor]

En dit?

Application.Goto Sheets(ActiveCell.Offset(0, -4))

 

[don42]

bijna

Nu gaat hij naar het eerste tabblad ( als offset -4 de waarde 1 heeft)
ik heb een aantal tabbladen staan en dan pas 1 t/m 96)

 

[edmoor]

Lijkt me nogal logisch.
Denk eraan dat een blad met de naam "1" niet het blad indexnummer 1 hoeft te hebben.

Probeer dit eens:

Sheets(ActiveCell.Offset(0, -4).Value).Activate

Je ziet dus dat er weer meer mogelijkheden zijn en dat daarom altijd een voorbeeld gewenst is.

 

[don42]

Bijna

Best Edmoor,

ik heb het (natuurlijk door jouw hulp) gevonden

Sheets(ActiveCell.Offset(0, -4).Value + 13).Activate

heel erg bedankt

 

[Andre175]

Hallo Don42

kun je een voorbeeld bestand uploaden?
ik ben ongeveer hetzelfde aan het uitpuzzelen.
met de code....

For i = 4 To Sheets.Count - 1
    Sheets("Home").Range("A" & i - 3) = "'" & Sheets(i).Name
Next i

krijg ik een lijst van alle tabbladen.
nu wil ik graag dat ik uit deze lijst kan kiezen om snel naar het juiste tabblad te gaan.

andre

 

[Andre175]

Ik ben er voor mij uit.... als volgt opgelost.
misschien heb je er wat aan.

Private Sub Worksheet_Activate()

    Application.ScreenUpdating = False
    Dim Sh As Worksheet
    
    For Each Sh In ThisWorkbook.Sheets
        If Sh.Name <> "Home" Then Sh.Visible = False
    Next Sh
    
    Sheets("Home").Range("B1:B30").ClearContents
For i = 2 To Sheets.Count
    Sheets("Home").Range("B" & i - 1) = Sheets(i).Name
Next i
'
    Range("B1:B30").Select
    ActiveWorkbook.Worksheets("Home").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Home").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Home").Sort
        .SetRange Range("B1:B30")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B1").Select
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo einde
    Sheets(ActiveCell.Value).Visible = True
    Sheets(ActiveCell.Value).Select
einde:
End Sub

....code zal idd wat aangepast kunnen worden....