zoekknop / funktie

[lsc.b]

hallo allemaal

ik wil een zoekknop / funktie maken maar weet niet hoe te beginnen wellicht weet iemand mij te helpen

op een sheet wil ik een zoekknop maken met een macro of vba code
de zoekknop moet dan in een map naar een ander document zoekken is dit mogelijk zo ja hoe
( ik kan een vba code lezen en veranderen als het moet maar dan ..... heb je het zowat gehad )

 

[tkint]

Beste,

Neem eens een macro op die doet wat je wenst. Je kan dan die macro koppelen aan een knop.

 

[lsc.b]

na 5 pogingen is het tot zover gelukt maar nu
is het mogelijk dat ik 1 knop heb voor meerdere documenten die in die map staan dus eigelijk moet ik iets van scrollen naar de naam
van het document voor dat ik op de knop of naam van het document druk

hoe te maken en op te lossen

Sub Macro5()
'
' Macro5 Macro
'

'
Workbooks.Open Filename:= _
"C:\Users\l\Documents\A mee bezig\Poort\poort11.xlsx"
Windows("poort11.xlsx").Activate
End Sub

 

[tkint]

Beste,

Ben je als vogt tewerk gegaan:
- macro opnemen gestart;
- alle handelingen gedaan ivm het zoeken en vervangen;
- macro gestopt?

Dan moet je code vinden tussen sub Macro(1) en End Sub

 

[lsc.b]

ja sorry verkeerde plaat bericht neer gezet zie bericht er boven

 

[tkint]

Beste,

Met de opgenomen macro open je een bestand en activeer je het bestand.
Je hebt meerdere tabbladen in een werkmap en je wilt navigeren naar de diverse tabbladen? Indien ja, dan heb je daarvoor geen macro nodig. Je maakt een hyperlink naar een ander tabblad op een tabblad.

 

[lsc.b]

nee ik heb 1 hoofd map met daar in diverse bestanden ( die anders heten ) maar die zien er bijna wel allemaal het zelfde uit

daar in wil ik een zoek knopmaken waarin ik dus een wiligkeurg document kan aanroepen

voorbeeld
c:/documenten/poort/poort1
poort2
raam3
raam5

ik wil dus geen reeks knopen die naar een document leiden maar 1 knop waar ik kan zeggen via een lijst of zo welk document ik wil
zoiets zocht ik

 

[tkint]

Beste,

Ik zal even moeten grasduinen in mijn voorbeeldbestanden.

 

[HSV]

Bv.

Misschien heb je een Mac doordat er een slash staat ipv een backslash.

Sub zomaar()
  With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "c:\documenten\poort\poort1"
    .FilterIndex = 2
    .AllowMultiSelect = False
    If .Show Then .Execute
  End With
End Sub

 

[lsc.b]

Bv.

Misschien heb je een Mac doordat er een slash staat ipv een backslash.

Sub zomaar()
  With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "c:\documenten\poort\poort1"
    .FilterIndex = 2
    .AllowMultiSelect = False
    If .Show Then .Execute
  End With
End Sub

beste HSv
ik heb en gewoone windows pc dus dat is het niet ( type fout in dit bericht ?) maar jou code werkt naar behooren
daar kan ik iets mee maar het is nog net niet wat ik in gedachten had

ik heb nog eens nagedacht voor de uit leg hier over en is als volgd

ik maak een lijst met gegevensvalidatie van mijn bestands namen
en als ik de naam in de lijs heb die ik wil dan aanklik moet dat bestand opstarten
dus een zoekknop gekopelt aan de cel met gegevensvalidatie

 

[HSV]

De validatielijst in cel A1 en de namen in de lijst overeenkomen met de bestandsnaam.

De code achter je bladmodule waar de lijst zich bevindt.

Private Sub Worksheet_Change(ByVal Target As Range)
 if target.address(0, 0)= "A1" then thisworkbook.followhyperlink "c:\documenten\poort\poort1\" & target.value & ".xlsx"
End Sub

 

[lsc.b]

ik krijg het niet werkend weet niet wat er fout gaat maar naar nader in zijn en goed overleg met mijn mede gebruikers houden we
het bij de andere dat is voldoende voor nu misschijn later nog aanpassen

toch bedankt namens mij en mijn mede gebruikers

 

[HSV]

Ik heb snel iets voor je in elkaar geflanst.
Verander de namen in C1:C4.

In deze code gaat het om .xlsx bestanden.