werkblad naam genereren

[rienjanssen]

Wigi!!!

waar laat ik de laatste aanvulling van de vba code.
Of als het niet teveel gevraagd is zou je de code inzijn geheel kunne plaatsen.
de tekst ""jouwwerkblad"""
wat moet ik hiermee ?

Tja ik ben geen wizkid!!!
en jij alweer bedankt en succes met jouw c:| probleem !!

Dat ik je daarmee niet helpen kan dat heb je wel begrepen zeker ?

groet Rien

 

[Wigi]

Rien, hier moet je geen

wizkid!!!

voor zijn. De code die ik gaf is alles wat je nodig hebt. Uiteindelijk vraag je Excel ook enkel maar om een bestand op te slaan. Daar heb je geen tien regels code voor nodig hoor...

Plaats deze code in een gewone module in VBA. Je komt daar door op Alt-F11 te drukken. Dan kies je Invoegen > Module en plak je de code.

Uiteraard moet je "jouw werkblad" wijzigen. Hoe kan ik nu weten wat de naam van het werkblad is waar je gegevens staan?

Sub opsln()
ActiveWorkbook.SaveAs Filename:="C:\" & Format(Worksheets("jouw werkblad").Range("E2"), "dd-mm-yy") & "-" & Worksheets("jouw werkblad").Range("F2") & "-" & Worksheets("jouw werkblad").Range("G2") & ".xls"
End Sub

Sluit VBA af. Kies Alt-F8 en voer de macro opsln uit. Het bestand wordt nu opgeslagen onder de juiste samengestelde naam.

Wigi

 

[rienjanssen]

hallo !!

Met alle kennis die ik nu heb, heb ik wat met vb geknutseld
het lukt me niet !
in het voorbeeld staat wat ik bedoel !
Wie kan me helpen an de juiste code

Alvast bedankt voor de moeite.

Groet Rien