Avatar billede ladyhawk Praktikant
02. juni 2009 - 12:25 Der er 8 kommentarer og
1 løsning

Hyperlilnk i Excel

Hej med jer :)

Jeg har fået kanon hjælp af excelent og thor_ostergaard her inde på Eksperten til at få automatisk omdøbt ved klik på link, og til at afvikle scriptet på en VPN - Har I nogen sinde set en person med et væg-til-væg smil på læben??  Sådan ser jeg ud lige nu :)

Dog har jeg lige et lille bitte problem.

Denne kode er sat ind i programkoden:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
wb = ActiveWorkbook.Name
Workbooks("Statusark for Fakturering.xls").Activate
x = ActiveCell.Value
Workbooks(wb).Activate
ActiveWorkbook.SaveAs "F:\Køge_Skanderborg\Fakturering\BDK\Fakturering\" & x & ".BDK.xlt"
End Sub

Problemet er at der er flere link i de forskellige ark - et til at gemme en fil og et til at hente en fil.

Når jeg beder om at hente den fil jeg netop har genereret - åbner filen med "Hent fil.BDK" - Det skal den jo ikke!

Det link skal bare kunne hente den fil der er gemt som eks. vis 1000.BDK.xlt.

Kan nogen fortælle mig hvad der skal tilføjes koden for at den fil jeg vil hente ikke bliver omdøbt?

De to link jeg har hedder eks. 1000 og Hent fil. Den første henter en skabelon og omdøber den med det samme til 1000.BDK - Den fil skal så kunne hentes som 1000.BDK og ikke omdøbes da den kun skal kunne læses.

Er det forståeligt??

På forhånd mange tak for hjælpen :)
LadyHawk
02. juni 2009 - 13:01 #1
Du kan med

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  If Target.TextToDisplay = "Den tekst der vises i hyperlinket" Then
    wb = ActiveWorkbook.Name
    Workbooks("Statusark for Fakturering.xls").Activate
    x = ActiveCell.Value
    Workbooks(wb).Activate
    ActiveWorkbook.SaveAs "F:\Køge_Skanderborg\Fakturering\BDK\Fakturering\" & x & ".BDK.xlt"
  End If
End Sub

Eller tilsvarende

If Target.TextToDisplay <> "Den tekst der vises i hyperlinket" Then

Sørge for at koden kun kører når der står noget bestemt i hyperlinket.

Kan du komme videre den vej?
Avatar billede ladyhawk Praktikant
02. juni 2009 - 13:39 #2
Du er en engel - Takker :)
Avatar billede ladyhawk Praktikant
02. juni 2009 - 13:39 #3
Hov - skal du ikke have dine point?
Avatar billede ladyhawk Praktikant
02. juni 2009 - 13:43 #4
Hov - er det rigtigt sådan her?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  If Target.TextToDisplay = "Hent til" Then
    wb = ActiveWorkbook.Name
    Workbooks("Statusark for Fakturering.xls").Activate
    x = ActiveCell.Value
    Workbooks(wb).Activate
    ActiveWorkbook.SaveAs "F:\Køge_Skanderborg\Fakturering\BDK\Fakturering\" & x & ".BDK.xlt"
  End If
End Sub
02. juni 2009 - 13:46 #5
Nej, skal det ikke være omvendt - det er når der ikke står "Hent fil", at der skal gemmes?
Avatar billede ladyhawk Praktikant
02. juni 2009 - 13:57 #6
Nej

Når der står hent fil - skal der bare hentes en fil som ved alm. lnk.
02. juni 2009 - 14:08 #7
Virker det efter hensigten?
Hvis ikke prøv at bytte = med <> i if sætningen
Avatar billede ladyhawk Praktikant
02. juni 2009 - 15:37 #8
Ja det gør - og der var lige en fejl i også - jeg havde skrevet til i stedet for fil :)
02. juni 2009 - 16:08 #9
super
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester