Makro der gemmer med filnavn incl dato fra bestemt celle i ark

ActiveWorkbook.SaveAs ThisWorkbook.Name & Range("A1").Value & ".xls"

Den gemmer i den aktive mappe (sti)
Hvis du gemmer den samme Projektmappe blot med ny dato, er den måske ikke så hensigtsmæssig ?

Projektmappen skal gerne have det samme filnavn hver gang, for eksempel:

Haveredskaber_11-10-09.xls
Haveredskaber_12-10-09.xls

osv.

ok, Hvor skal dato hentes, og hvad med mappe/sti ?

Dato skal hentes i ark1 celle B7 (i den åbne projektmappe, forståes :) )
Mappe/Sti ?? hvad mener du? Projektmappen ligger i Dokumenter på D drevet...

Celle B7: Datoen retter jeg til hver gang jeg er inde og ændre i projektmappen.

ok ellers må du sige til, hvis der skal sti med

ActiveWorkbook.SaveAs "Haveredskaber" & "_" & Sheets("Ark1").Range("B7").Value & ".xls"

Hvordan sætter jeg det ind i arket?

Tast ALT+F11, Vælg Module i Menuen Insert - indsæt kode der

Sub GemFil()
ActiveWorkbook.SaveAs "Haveredskaber" & "_" & Sheets("Ark1").Range("B7").Value & ".xls"
End Sub

Opret evt. en knap via Formular-menuen og tildel den makroen "GemFil"

Takker mange gange. Kunne ikke få det til at virke i første omgang. Men det var fordi det var en fejl 40. Havde glemt at man lige skal gemme det først og så også gerne hvor makroer er aktiveret... Men nu virker det!


Tak for kommentaren, men vil du også give mig et svar? ;)

jada velbekom :-)

Jeg har lige et spørgsmål mere:

Nu har jeg mange videoer. Og jeg låner dem gerne ud til mine venner. Når de låner en video får de en seddel med hvor der står hvad de har lånt og hvor længe de må låne den.

Det er lidt forskelligt hvor mange der låner videoer, derfor er det forskelligt hvor mange der skal have sådan en seddel. Jeg har i mit regnskabsark et ark (ark2) hvor alle de sedler er, der er lavet 5 sedler, men det er ikke altid der er behov for at alle sedler skal skrives ud (for eksempel hvis der kun er 2 den dag der har været hjemme hos mig og låne en video).

Jeg kunne tænke mig at jeg havde en boks (ud for hvert navn der har lånt en video) jeg vingede af, og så blev de sedler skrevet ud når jeg trykkede på en kommando knap.

Ydermere kunne det være fint hvis den sub du lavede til mig gemte de sedler jeg havde skrevet ud.

Er det muligt?

Nu ved jeg ikke hvordan dit layout er, men prøv denne
OBS. anvend Checkboxe fra Kontrolelementmenuen

Sub BoxVærdi()
Sheets("Ark2").Select
For nr = 1 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects("Checkbox" & nr).Object = True Then x = x + 1
Next
If x <= 0 Then ActiveSheet.PageSetup.PrintArea = "" ' Hvis ingen flueben er sat
If x = 1 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10" ' Ret selv områderne til
If x = 2 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$20" ' i disse 5 linier
If x = 3 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$30"
If x = 4 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$40"
If x = 5 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$50"
End Sub

Hvis Checkboxene ikke er i rækkefølge 1-5  så anvend denne:

Sub BoxVærdi2()
Dim bx As OLEObject
Sheets("Ark2").Select
For Each bx In ActiveSheet.OLEObjects
If bx.Object = True Then x = x + 1
Next
If x <= 0 Then ActiveSheet.PageSetup.PrintArea = "" ' Hvis ingen flueben er sat
If x = 1 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10" ' Ret selv områderne til
If x = 2 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$20" ' i disse 5 linier
If x = 3 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$30"
If x = 4 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$40"
If x = 5 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$D$50"
End Sub

Vil det (i dit sidste indlæg) så betyde, at hvis det er person nr 1; 2; 4 der har lånt video, så checker jeg dem af og får en seddel?

Koden forudsætter at du starter med nr 1 (øverst i arket) og checker af
Er der flere, så fotsæt med nr 2 og så fremdeles

dvs. at flueben i box1 (øverste) gir udskriftområde A1:D10
og flueben i både box1 og 2 gir udskrift af A1:A20

Hej Excelent!

Håber du læser denne tråd, selv om den er gammel!

Men jeg har tænkt på om det er muligt at skrive en sti hvor den skal  gemme filen. Lige nu gemmer den filen i Dokumenter, men ville gerne have den til at gemme i en anden mappe på D drevet.

Prøv med
ActiveWorkbook.SaveAs "D:\mappe?\mappe?\Haveredskaber" & "_" & Sheets("Ark1").Range("B7").Value & ".xls"

slet/tilføj mapper efter behov - ret mappe? til aktuel mappenavn

Takker mange gange!