• 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.

automatich opslaan werkt niet

Status
Niet open voor verdere reacties.
M

mrnico

Gebruiker
Lid geworden
27 okt 2010
Berichten
109
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

Bekijk bijlage Weekstaat wk 41.xlsm
 
Je mist hier iets denk ik?:
Code: 
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path [COLOR="#FF0000"]& "\"[/COLOR] & Range("c5") & ".xlsm"
 
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
 
.Columns("c3:c50") bestaat niet.

Code: 
 For Each sh In Sheets(Array("Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag"))
    sh.Range("C3:C50").ClearContents
 Next sh
 
En je hebt kennelijk het rode gedeelte in #2 gemist.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan