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

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: automatich opslaan werkt niet

  1. #1
    Vraag is opgelost

    automatich opslaan werkt niet

    Hallo

    ik ben het volgende vanplan
    ik heb een lijst met namen van medewerkers
    in deze lijst geef ik de werkzaamheden aan en uren
    aan het einde van de week moeten de lijst doorgezet worden naar de volgende week
    hierbij moet het week nr aangepast worden en moet hij opgeslagen worden als nieuw bestand met dus aangepast weeknr
    nou wil hij niet opslaan fout 400

    Weekstaat wk 41.xlsm

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Je mist hier iets denk ik?:
    Code:
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Range("c5") & ".xlsm"
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  3. #3
    hij werkt nog niet
    Code:
    Sub weeknr()
    Range("c4").Value = Range("c3")
    
            Sheets("Maandag").Columns("c3:c50").Select
            Sheets("Maandag").Columns("d3:d50").Select
        Selection.Delete
            Sheets("Dinsdag").Columns("c3:c50").Select
            Sheets("Dinsdag").Columns("d3:d50").Select
        Selection.Delete
            Sheets("Woensdag").Columns("c3:c50").Select
            Sheets("Woensdag").Columns("d3:d50").Select
        Columns("c3:c50").Select
        Selection.Delete
            Sheets("Donderdag").Columns("c3:c50").Select
            Sheets("Donderdag").Columns("d3:d50").Select
        Columns("c3:c50").Select
        Selection.Delete
            Sheets("Vrijdag").Columns("c3:c50").Select
            Sheets("Vrijdag").Columns("d3:d50").Select
        Columns("c3:c50").Select
        Selection.Delete
    
    
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & Range("c5") & ".xlsm"
    End Sub

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    .Columns("c3:c50") bestaat niet.

    Code:
     For Each sh In Sheets(Array("Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag"))
        sh.Range("C3:C50").ClearContents
     Next sh
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    En je hebt kennelijk het rode gedeelte in #2 gemist.
    Laatst aangepast door edmoor : 13 oktober 2017 om 13:37 Reden: Fieptoutje
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

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
Aanbiedingen