• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestaande werkblad hernoemen en meerdere aanmaken

Status
Niet open voor verdere reacties.
danny147

danny147

Terugkerende gebruiker
Lid geworden
29 apr 2007
Berichten
4.744
Beste,

Ik heb een bestaand werkblad en wil deze meerdere malen hebben met de naam van datums beginnen met Za 01-07-2017 tem Za 30-12-2017, geen zondagen
Bestaand werkblad is Test.xlsx en staat in directory C:\gebruiker\Danny\Documenten
De nieuwe werkbladen mogen in dezelfde directory geplaatst worden --> Za 01-07-2017
Indien mogelijk in dat werkblad "blad1" moet de cel C3 ook de dezelfde datum komen te staan 01-07-2017 zonder dag
 
Met welk doel? Om erna weer informatie uit deze werkbladen te halen?
 
Danny, 1 werkMAP (workbook) bevat meerdere werkBLADEN (sheets). Omdat je zegt dat er mag worden opgeslagen in een bepaalde folder, heb ik het idee dat je het dus hebt over het aanmaken van een heleboel werkmappen... Het verschilt nogal in aanpak en is voor de helpers wel belangrijk om te weten wat je nodig hebt .
 
Laatst bewerkt:
Beste Ginger,

Ik heb een werkmap (Planning OLM.xltm ), deze gebruik ik als sjabloon en bevat 7 tabbladen
Ik moet deze telkens openen en opslaan als datum, zoals "Ma 26-06-2017.xlsm"
Mijn vraag is kan ik deze sjabloon vanaf Ma 26-06-2017 tem Za 30-12-2017 aanmaken zonder zondagen met 1 code ?

Zijn er nog vragen dan hoor ik het wel Ginger :thumb:
 
Weet je zeker dat je niet ergens halverwege die periode gaat besluiten dat het template moet worden aangepast? :) Misschien makkelijker om in het template wat code te plaatsen die gelijk vraagt om naam en opslaglocatie.
Zet dit in de ThisWorkbook module:

Code: 
Private Sub Workbook_Open()
    Dim vFilename As Variant
    Dim sPath As String
    If Len(ThisWOrkbook.Path)=0 Then Exit Sub
    sPath = "c:\JouwPad\"
    vFilename = Application.GetSaveAsFilename(sPath, "Microsoft Excel Files, *.xlsm", , "Please enter a filename")
    If TypeName(vFilename) = "Boolean" Then Exit Sub
    If vFilename = "" Then Exit Sub
    If Right(vFilename, 4) <> ".xlsm" Then
        vFilename = vFilename & ".xlsm"
    End If
    ThisWorkbook.SaveAs vFilename, xlOpenXMLWorkbookMacroEnabled
End Sub
 
Beste jkpieterse ;)

Ik wil een vaste opslaglocatie, nl: C:\gebruiker\Danny\Documenten
 
Zet die in plaats van mijn "c:\JouwPad\" en je bent het heertje toch?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan