overføre automatisk fortløbende nr. til andet dokument

Er ikke helt med på hvad du vil, men gætter på vi skal ind på noget lignende dette :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.ScreenTip = "Valg1" Then Sheets("Ark1").Range("B5") = Target.ScreenTip
If Target.ScreenTip = "Valg2" Then Sheets("Ark2").Range("C5") = Target.ScreenTip
If Target.ScreenTip = "Valg3" Then Sheets("Ark3").Range("D5") = Target.ScreenTip
If Target.ScreenTip = "Valg4" Then Sheets("Ark1").Range("E5") = Target.ScreenTip
End Sub

Her anvendes "Skærmtips" til at afgøre hvilket link du har klikket (Valg1-5 skal altså indsætte i hyperlinkene)

den nederste linie du skrev forstår jeg ikke hvad du mener med ??

Hej

Hvor i kildekoden sætter jeg det ind?

Jeg mener om det kan lade sig gøre, at det ark der er linket til automatisk får det nr, der er klikket på.

Hvis jeg klikker på nr. 1001 - så åbner skabelonen - når det skabelonen åbner vil jeg gerne have, at det allerede hedder 1001 så jeg ikke skal Gemme Som og selv omdøbe dokumentet til 1001, da skabelonen jo hedder skabelon.....  :)

koden skal ind i arket's kodemodul hvori hyperlink er

resten skal jeg lige tygge lidt på :-)

Det er i orden - husk at tygge 32 gange :)

ok prøv test om det er sådan du mener :

obs. dine link skal indeholde et skærmtip med det navn du vil give skabelonen

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWorkbook.SaveAs Target.ScreenTip & ".xlt"
End Sub

Øøh - jeg får fejl når jeg prøver at gemme - jeg skal oprette en makro, og det har jeg gjort - hvad gør jeg så galt?

Er det helt forkert det her:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.ScreenTip = "Valg1" Then Sheets("Skabelon").Range("F6") = Target.ScreenTip
If Target.ScreenTip = "Valg2" Then Sheets("Skabelon").Range("G6") = Target.ScreenTip
If Target.ScreenTip = "Valg3" Then Sheets("Skabelon").Range("H6") = Target.ScreenTip
If Target.ScreenTip = "Valg4" Then Sheets("Skabelon").Range("I6") = Target.ScreenTip
End Sub

Er sat ind i det ark der indeholder link.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWorkbook.SaveAs Target.BDK1001 & ".xlt"
End Sub

Er indsat i Skabelonen

Nåååå - jeg skal jo selvfølgelig lige huske at give ScreenTip et andet navn.....

Hmmm får stadig fejl

glemte lige at fortælle at den sidste kode jeg indsatte, skal indsættes i stedet for den første

du skal altså kun bruge den sidste :
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWorkbook.SaveAs Target.ScreenTip & ".xlt"
End Sub

anvend koden som den er, den henter skabelon navnet i linket (skærmtippet)

Får Runtime Error 438

ActiveWorkbook.SaveAs Target.LINDENEG1001 & ".xlt

anvend koden som den er, den henter skabelon navnet i linket (skærmtippet)

Skal jeg oprette en makro?

Nej du skal indsætte følgende kode i arkets kodemodul hvori hyperlinkene er

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWorkbook.SaveAs Target.ScreenTip & ".xlt"
End Sub

Jeg går ud fra at alle dine hyperlink åbner den samme grund-skabelon
Men hver hyperlink har sin egen skærmtip ?
Det er dette skærmtip som bestemmer skabelonens navn

Så må du lige forklarer mig hvad et skærmtip er :)

Højreklik på link
vælg rediger hyperlink i menuen
i øverste højre hjørne klik Skærmtip
Indtast det navn skabelonen skal have (uden .xlt)

Nej hvor smart :) 1000 tak for hjælpen - kommer du lige med et svar så du kan få dine point :)

jada :-)
  velbekom

Hov - hvad så når filen skal gemmes in en undermappe? Skriver jeg så sådan??

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWorkbook.SaveAs Target.ScreenTip & "NSN\.xlt"
End Sub

og virker det på faneblade i samme ark?

Indsæt stien som vist ret til aktuel

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWorkbook.SaveAs "C:\ny\" & Target.ScreenTip & ".xlt"
End Sub

og virker det på faneblade i samme ark? hvordan mener du ?

Den kode - virker den på alle faneblade i samme ark -

JEg har 4 faner, hvor der er forskellige virksomheder på og de har hver en nummerrække, og de Skabeloner der bliver genereret skal ikke gemmes under samme mappe.

Iøvrigt kommer følgende fejl.

ActiveWorkbook.SaveAs "F:\Køge_Skanderborg\Birgittes Mappe\TEST MAPPESTRUKTUR\Fakturering\BDK\" & Target.ScreenTip & "BDK1000.xlt"

Runtime Error 1004

Nej koden virker i det ark den er indsat
Så den skal indsættes i de øvrige ark også
med evt. tilretninger

Runtime Error 1004  tyder på at filen findes i forvejen

Jeg er ked af at jeg bliver ved med at skrive på denne tråd, men jeg bliver ved med at få følgende fejl når jeg gemmer efter at have sat koden ind.

Følgende kan ikke gemmes i projektmapper under makroer:

VB projekt

Hvis du vil gemme en fil med disse funktioner, skal du klikke Nej og derefter vælge en makrobassert filtype på listen af Filtype.

Klik på Ja, hvis du fortsat vil gemme som en projektmappe uden makroer.

Jeg klikker JA, da jeg jo ikke skulle bruge makroer.

Når jeg indsætter koden i hver ark, med de mappenavne skabelonen skal gemmes i, kommer den Run-time error 1004 Method 'SaveAs' of object'_Workbook' faied, selvom filen ikke allerede eksisterer.

Har det en betydning at det er en 2003 der bliver åbnet fra en 2007 version?

PS! Det virker fint når der kun er sat kode ind i et af arkene. 1004 kommer først når jeg sætter koden ind i flere Ark.

Jeg kører med v 2003 DK og her virker det fint
også med koden i flere ark
Har godt nok v 2007 liggende, men der bliver den sikkert indtil de får lavet en version uden fejl

Om det er v2007 der er årsag til dine problemer ved jeg ikke da jeg ikke kender den.

Men jeg går ud fra at det er i Projektmappen og ikke i skabelonerne du indsætter koderne

Og Projektmappen skal naturligvis være med makrosikkerhed sat til mellem eller lav, da disse jo skal anvendes i denne for at virke.

Du kan evt. sende din fil til mig hvis det fortsat driller.

Det skal du ike sige to gange - de er på vej :)