Makro der gemmer projekt med navn fra celle

I Excel kan du bruge noget i retning af:

FilNavn = "C:\tjek\" & Worksheets("Ark1").Range("A1") & "-" & Format(Now(), "yy")
ActiveWorkbook.SaveAs FileName:=FilNavn, FileFormat:=xlNormal

jeg ved ikke om du mente at samme kode skulle bruges begge steder, men her er den.

Den er ikke helt testet igennem.

Public Sub GemSom()
'I word skal der refereres til Microsoft Excel xx.x object library
'I Eccel skal der refereres til Microsoft Word xx.x object library
A = Application.Name
If A = "Microsoft Excel" Then
'MsgBox A
FilNavn = "C:\tjek\" & Worksheets("Ark1").Range("A1") & "-" & Format(Now(), "yy")
ActiveWorkbook.SaveAs FileName:=FilNavn, FileFormat:=xlNormal
Else
'MsgBox A
B = ActiveDocument.Bookmarks("ref").Range
FilNavn = "C:\tjek\" & B & "-" & Format(Now(), "yy")
ActiveDocument.SaveAs FileName:=FilNavn, FileFormat:=wdFormatDocument
End If
End Sub

Kabbak> Det ser ud som om at jeg har skrevet det lit forkert. Jeg har brug for 2 makroer: En til Excel og en til Word, men jeg tror jeg kan bruge din version, men vil aldrig komme i den situation af "IF-sætningen" skal bruges, idet jeg altid vil skulle gemme i Excel fra Excel-filen og i Word i Word-filen.

Men har du ikke blandet noget sammen:

'I word skal der refereres til Microsoft Excel xx.x object library
'I Eccel skal der refereres til Microsoft Word xx.x object library

Bør der ikke stå:
'I EXCEL skal der refereres til Microsoft Excel xx.x object library
'I WORD skal der refereres til Microsoft Word xx.x object library

.. altså byttes om på Word og Excel?

For Word

Public Sub GemWordSom()
B = ActiveDocument.Bookmarks("ref").Range
FilNavn = "C:\tjek\" & B & "-" & Format(Now(), "yy")
ActiveDocument.SaveAs FileName:=FilNavn, FileFormat:=wdFormatDocument
End Sub

For Excel

Public Sub GemExcelSom()
FilNavn = "C:\tjek\" & Worksheets("Ark1").Range("A1") & "-" & Format(Now(), "yy")
ActiveWorkbook.SaveAs FileName:=FilNavn, FileFormat:=xlNormal
End Sub

Så skal der heller ikke referencer til

kabbak> Ja, så har du hjulpet mig endnu engang :-) Jeg må snart selv lære det programmering!

Lig lige et svar!

et svar ;-))

Og hvad var det lige jeg gjorde forkert?

point her
http://www.eksperten.dk/spm/556928

Tak for det kabbak, men jeg ville nu gerne have hørt fra h_s. Pointene som sådan er ikke så vigtige, men jeg ville blot gerne vide, hvorfor det første korrekte svar ikke skal belønnes. Det er vel ikke en fejl, at det kun bevarer det ene spørgsmål - eller hva'?

sjap> For mig virkede det ikke som om du var helt sikker den virkede og jeg kunne kun se en makro og kunne ikke se hvad den skulle bruges til (Word eller Excel). Samtidig så det ikke ud som om du var helt sikker på den virkede idet du skrev "noget i retninge af..". Håber det er ok!

h_s > Du skriver, du har brug for en makro. Det opfattede jeg som VBA, og antager dermed at du ved lidt om det. I hver tilfælde nok til at sætte en programlinie (som den jeg foreslog 31/10-2004 18:33:16) ind i en makro. Det var åbenbart en forkert antagelse.

Min "usikkerhed" skyldes at jeg ikke kendte navnet på dit faneblad, og derfor kunne jeg jo ikke skråsikkert sige, at sådan skulle programlinien se ud.

At du ikke kan se hvad den skulle bruges til forstå jeg ikke. Når jeg læser, hvad jeg skrev, så synes jeg egentligt at ordet "Excel" er tydeligt nok.

Jeg har det helt fint med at du giver kabbak point. Jeg ville også mene det var rimeligt, hvis du gav ham væsentligt flere point end mig - han har hjulpet klart mere end jeg i forbindelse med dette spørgsmål. Men at du synes jeg ikke skal have point når hele Excel-løsningen er en kopi af den programlinie som jeg foreslog (bortset fra "Public Sub GemExcelSom()" og "End Sub"), så synes jeg ikke det er rimeligt.