Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: VBA Save file to cell value month

  1. #1
    Vraag is niet opgelost

    VBA Save file to cell value month

    Ik wil mijn files opslaan in een vaste map (Afgenomen audits) waar de blanco file staat en wanneer deze is ingevuld via een command button opslaan
    in een submap. In de file dient men een datum (cell A2) in te vullen en wanneer deze in de maand Januari bijvoorbeeld valt wil ik (indien nog niet bestaat deze automatisch aanmaken) opslaan in de map "Januari" met de naam (Cell D9).

    Dit is wat ik tot nu toe heb.

    Private Sub CommandButton1_Click()
    Dim ws As Worksheet, folder As String
    Dim file As String
    For Each ws In Worksheets
    ws.Activate
    ws.Name = Range("A2").Value


    folder = ActiveWorkbook.Path & "\Afgenomen audits"
    file = ws.Name & Format(Date, "mmmm") & ""
    If Len(Dir(file, vbDirectory)) = 0 Then

    MkDir file

    End If
    ActiveWorkbook.SaveAs filename:=folder & file & ws.Name & ".xlsm" & Cells(9, 4)
    ActiveWorkbook.Close savechanges:=False

    End Sub

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Bedenk eens waar onderstaande tekens tussen moeten in de code.
    Code:
    & "\" &
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik mis ook nog een Next.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  4. #4
    Thx guys,
    Het is gelukt met volgende:

    Private Sub CommandButton1_Click()

    Dim ws As String, folder As String
    Dim Datum1 As String, Datum As String
    Dim maand As Integer, Datum2 As String
    Dim file As String

    ws = Range("A2")
    Datum = Range("B6")

    folder = ActiveWorkbook.path & "\Afgenomen audits"
    Datum1 = Format(Datum, "mmmm")
    Datum2 = Format(Date, "dd-mm-yyyy")
    file = ActiveWorkbook.path & "\Afgenomen audits" & "" & Datum1

    If Dir(file, vbDirectory) = vbNullString Then
    MkDir (file)
    End If

    ActiveWorkbook.SaveAs Filename:=folder & "" & Datum1 & "" & ws & " " & Datum2 & " " & Cells(9, 4) & ".xlsm"
    ActiveWorkbook.Close savechanges:=False

    End Sub
    Laatst aangepast door Johnster : 17 januari 2020 om 10:17

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren