Evt. makro

Du kan lave hyperlink til dem i cellerne

Hvis du har navnene i A kolonnen, kan dette bruges

Sub Hyber()

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\din mappe sti\" & Cells(ActiveCell.Row, 1) & ".xls"
End Sub

Klik ind på en tom celle ved siden af dit nummer og kør makroen, så vil den oprette hyperlink til din fil.

Ret selv stien til din mappe.

Kabbak

Skulle være et svar

Hej Kabbak
jeg har indskudt en tom kolonne som er A kolonnen, i B kolonnen har jeg mine numre.
Jeg har prøvet at lave en <Knap> i hver række i kolonne A, og indsætte din "formel" her i. Det virker ikke, hvad har jeg gjort forkert?

Sub Hyber()

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\din mappe sti\" & Cells(ActiveCell.Row, 2) & ".xls"
End Sub

det er fordi at jeg troede at du havde dine numre i A kolonnen.

jeg har ændret makroen så den virker på B kolonnen

du skal ikke lave en knap.
Du skal klikke ind i cellen på A kolonnen og så kør makroen, det skal du gøre ud for alle.

Det er jo en makro og ikke en formel.

Hej , jo der er en formel
sæt dette ind i den første celle på kolonne A
=HYPERLINK("C:\" & B2 &".xls";B2 & ".xls")

Der hvor der står "C:\" skal du rette til din sti, når du har gjort det kan du bare trække den nedad

NB. det var ikke første celle i kolonne A, men celle A2 den skal sættes ind i.

jeg er tilbage senere.

Hej igen
Jeg må desværre indrømme at jeg ikke kan få det til at virke

Den er god nok, som kabbak skriver..
Hvis dine numre står i kolonne B og du sætter en sti (fx. C:\Dokumenter\  )til filerne i fx. E1

=HYPERLINK(E1 & B2 & ".xls")

så vil denne formel (hvis sat i c2) lave et hyperlink i C2 til nummeret der står i B2. tryk på denne og filen vil åbne.

Marikke, hvad virker ikke og hvad skriver den i cellen ??

Hej kabbak og bak
Nu er det lykkedes for mig. Nu mangler jeg bare at kunne "kopiere den nedad". Jeg har stående ca. 20 numre og har lavet den der <Sub Hyber ()> på det øverste nr. Hvis jeg mærker op og kopierer ned får de alle samme nr. som jeg kopierer fra. Hvad gør jeg? Alle numrene kommer med en kæde fra hver regning.

Prøv lige at kopiere formlen herins, så vi kan se den

herins = herind

Sådan har jeg gjort

Sub Hyber()

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Mette\Fakturaer\" & Cells(ActiveCell.Row, 2) & ".xls"
End Sub
'
' Ordrenr Makro
' Makro indspillet 20-06-2003 af nn

Public Function MettesHyper(Nummer)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Mette\Fakturaer\" & Nummer & ".xls"
    MettesHyper = "C:\Mette\Fakturaer\" & Nummer & ".xls"
End Function

Jeg har lavet den om til en funktion

den kaldes ved at skrive:  =MettesHyper(B2)
i cellen
Den kan du trække nedad.

Sæt den ind i stedet for Sub Hyper

Marikke-> den virker ikke.

Jeg forstår heller ikke at du ikke kan få denne til at virke,

=HYPERLINK("C:\Mette\Fakturaer\" & B2 &".xls";B2 & ".xls")

den er jo trods alt indbygget i excel.

kabbak

Public Function MettesHyper(Nummer As String) As Variant
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Mette\Fakturaer\" & Nummer & ".xls"
    MettesHyper = [Nummer] & ".xls"
End Function

nu virker den

hej kabbak
jeg må indrømme at jeg er på helt bar bund.
jeg troede det var noget med at lave en makro. Det er det vist slet ikke. Hvordan sætter jeg den "Public Function " ind???
marikke

når du står i dit regneark trykker du Alt+F11
er vælger du insert og module
klik ind på module1
det er her du skal insætte dette.

Public Function MettesHyper(Nummer As String) As Variant
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Mette\Fakturaer\" & Nummer & ".xls"
    MettesHyper = [Nummer] & ".xls"
End Function

luk ved at trykke på øverste X i højre side, så er du tilbage på arket.
Gem arket for ellers forsvinder funktionen igen.

Nu klikker du ind på celle A2
Vælg indsæt funktion / brugerdefinerede her skal du vælge MettesHyper.
Den spørger nu efter Nummer, her klikker du på B2.

nu kan du trække den nedad så langt du vil.

Klik på en celle herefter vil åbene dine fakturaer.

Hej kabbak
Nu virker det fint. Tak for undervisningen, jeg bliver jo lidt klogere hver gang*S*
Ps.: jeg opretter et nyt spørgsmål, så hvis.............
"Opdatering"
marikke