VBA - Excel 97

[peja]

Hoppas någon kan hjälpa mig, har slitit mitt hår ganska länge nu. Har gjort en excel-fil där jag vill avsluta allt med ett macro som sparar ner filen genom att ge den namnet av värdet i flera celler. Cellerna ligger på samma ws men inte efter varandra. Exempelvis är det i första cellen ett butiksnamn och i andra och tredje ett datum. Min excelfil är en mall och ska användas av fler användare vilket gör att det kommer att stå olika namn och datum i cellerna för varje gång de ska spara ner. Förstår ni ?!

[XL-Dennis]

 

Följande händelseprocedur placeras

i modulen ThisWorkbook/DennaArbetsbok.

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim rnCell1 As Range

Dim rnCell2 As Range

 

Set rnCell1 = ThisWorkbook.Worksheets("Blad1").Range("A1")

Set rnCell2 = ThisWorkbook.Worksheets("Blad1").Range("B1")

 

ThisWorkbook.SaveAs Filename:=CStr(rnCell1.Value) & CStr(rnCell2.Value)

End Sub

 

Du får anpassa den till dina förhållanden men ska ge dig vägledning.

 

Lycka till,

Dennis

 

www.xldennis.com

 

[peja]

UNDERBART DENNIS !

 

Det fungerar precis så som jag ville, du är en klippa - TACK !!!

 

mvh

Peja

 

[peja]

Hej igen Dennis,

 

Lite snabb var jag men det fungerar ju, bara det att den filen som ska sparas ner är en importfil som öppnas utöver min mall i excel. Därför ska det ju inte stå "thisworkbook...", vad ska det stå i stället om macrot ska hämta datan från mallen som också är öppen ?

Dessutom heter den ENDA ws i den filen (importfilen), dagens datum ex.vis 2001-01-10. Dessutom ska den sparas ner som en excelfil och den är tidigare en .txt. Anledningen till att jag missade det är att jag har ett macro som gör allt förutom att den namnger filen, men jag kanske måste ändra på det också nu när jag fått din information.

Sorry att jag missade den saken, hoppas du kan hjälpa mig igen.

mvh

peja

 

 

 

 

[inlägget ändrat 2001-05-18 15:32:59 av peja]

[inlägget ändrat 2001-05-18 15:34:39 av peja]

[peja]

SLUTGAGGAT FRÅN MIN SIDA !

 

Tack igen Dennis, jag har löst det hela men utan dig hade det inte gått - trevlig helg !

 

mvh

peja