Zoeken in kolom A

[Senso]

In kolom A staat 100 namen welke links zijn om een sheet te openen.
Telkens scrollen is vervelend. Is er een formule of VBA voor D1 dat als ik in C2 een beginnende naam typ dat die gelijk naar de juiste naam in kolom A gaat> Excel 2007

 

[Senso]

in D2
=HYPERLINK("#A" & VERGELIJKEN(C2;A:A; 0); "Jump to Name")
deze vergelijkt de hele naam en niet een deel.

 

[peter59]

Kijk eens of dit in de buurt komt?
In Excel 2007 dien je eventueel de formule afsluiten met Ctrl+Shift+Enter.

 

[Senso]

Dat is een oplossing, echter jammer je met de uitkomst D2 niet gelijk de juiste sheet kunt activeren.

 

[emields]

Je kan het natuurlijk ook zo doen.

 

[Senso]

Dat is handiger. Moet kijken of dit kan. Sheet1 waar deze namen opstaan wordt steeds opnieuw gemaakt met onderstaande VBA-code . Dat is dus een vaste opzet. Kun je dan de code uit post 5 integreren?

Sub CreateIndexAndBackLinks()
    Dim wsIndex As Worksheet
    Dim ws As Worksheet
    Dim i As Integer
    
    ' Set the first sheet as the Index sheet
    Set wsIndex = Worksheets(1)
    wsIndex.Name = "Index"
    
    ' Clear old index contents starting from row 2
    wsIndex.Range("A2:A100").ClearContents
    
    ' Add a header for the Index
    wsIndex.Range("A1").Value = "Sheet Index"
    wsIndex.Range("A1").Font.Bold = True
    
    i = 2 ' Start row for listing sheets
    
    ' Loop through all sheets in the workbook
    For Each ws In Worksheets
        If ws.Name <> wsIndex.Name Then
            ' Add sheet name to Index sheet and create hyperlink
            wsIndex.Cells(i, 1).Value = ws.Name
            wsIndex.Hyperlinks.Add Anchor:=wsIndex.Cells(i, 1), _
                Address:="", _
                SubAddress:="'" & ws.Name & "'!A1", _
                TextToDisplay:=ws.Name
                
            ' Add "Back to Index" link in cell A1 of each other sheet
            ws.Range("A1").Value = "Back to Index"
            ws.Hyperlinks.Add Anchor:=ws.Range("A1"), _
                Address:="", _
                SubAddress:="'Index'!A1", _
                TextToDisplay:="? Back to Index"
                
            i = i + 1
        End If
    Next ws
    
    MsgBox "Index created successfully!", vbInformation
End Sub

 

[peter59]

Of??
Met een hulpkolom. Deze is nu kolom O welke eventueel verborgen kan worden.
Je hoeft nu niet je eigen VBA code uit te breiden.