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

een werkblad kopieren via een opdrachtknop/macro en weeknummers oplopend toevoegen

Status
Niet open voor verdere reacties.
H

huppelpaard

Gebruiker
Lid geworden
27 mei 2018
Berichten
157
Bekijk bijlage Map1.xlsm

ik heb een urenlijst toegevoegd nu wil ik via een macro /opdrachtknop nieuwe weeknummers toe voegen aan een nieuwe werkblad

wat wil ik bereiken:
als ik op de knop druk dan word er een kopie gemaakt van het laatste tabblad en word er een nieuwe tablad toegevoegd die opvolgend is dus week21 week22 week23 enz


ik heb al geprobeerd om een macro op te nemen maar dan heten de opdracht knoppen ineens knop 1 knop 2 knop 3 ipv de originele tekst ik doe blijkbaar iets fout
en dan moet je uiteraard zelf de namen toekennen aan de tabbladen ...

weet iemand hoe ik dit voor elkaar kan krijgen?
 
Wat wil je nu precies? De macro-opname is niet te vinden. Moeten de datums dan ook aangepast worden? Waarom staat er een niet werkende gegevensvalidatie in kolom A en wat is het doel van deze validatie? Moeten de waarden van de vorige week leeggemaakt worden?

Het is allemaal mogelijk maar dan moet je wel duidelijk zijn.
 
Ik heb verder niet gekeken maar deze module kun je ook zo schrijven,
werkt denk ik ook sneller.
Misschien kan het nog wel korter?
Code: 
Sub Nieuwe_lijst()

    Rows("6:19").ClearContents
    Range("A6").FormulaR1C1 = "Maandag"
    Range("A7").FormulaR1C1 = "Dinsdag"
    Range("A8").FormulaR1C1 = "Woensdag"
    Range("A9").FormulaR1C1 = "Donderdag"
    Range("A10").FormulaR1C1 = "Vrijdag"
    Range("C6").FormulaR1C1 = "7:00"
    Range("D6").FormulaR1C1 = "16:00"
    Range("C7").FormulaR1C1 = "7:00"
    Range("D7").FormulaR1C1 = "16:00"
    Range("C8").FormulaR1C1 = "7:00"
    Range("D8").FormulaR1C1 = "16:00"
    Range("C9").FormulaR1C1 = "7:00"
    Range("D9").FormulaR1C1 = "16:00"
    Range("C10").FormulaR1C1 = "7:00"
    Range("D10").FormulaR1C1 = "16:00"
    Range("i6").FormulaR1C1 = "8"
    Range("i7").FormulaR1C1 = "8"
    Range("i8").FormulaR1C1 = "8"
    Range("i9").FormulaR1C1 = "8"
    Range("i10").FormulaR1C1 = "8"
    Range("e6").FormulaR1C1 = "x-xxx-xx"
    Range("B6").FormulaR1C1 = "=R[-3]C[7]"
    Range("B7").FormulaR1C1 = "=IF(RC[-1]=R[-1]C[-1],R[-1]C,R[-1]C+1)"
    Range("B8").FormulaR1C1 = "=IF(RC[-1]=R[-1]C[-1],R[-1]C,R[-1]C+1)"
    Range("B9").FormulaR1C1 = "=IF(RC[-1]=R[-1]C[-1],R[-1]C,R[-1]C+1)"
    Range("B10").FormulaR1C1 = "=IF(RC[-1]=R[-1]C[-1],R[-1]C,R[-1]C+1)"
    Range("H6").FormulaR1C1 = "=LEFT(RC[-2],8)"
    Range("H7").FormulaR1C1 = "=LEFT(RC[-2],8)"
    Range("H8").FormulaR1C1 = "=LEFT(RC[-2],8)"
    Range("H9").FormulaR1C1 = "=LEFT(RC[-2],8)"
    Range("H10").FormulaR1C1 = "=LEFT(RC[-2],8)"

End Sub
 
Laatst bewerkt:
Het werkt allemaal een stuk eenvoudiger als je gebruikt maakt van een 'template' met correcte formules. De verborgen tab 'Ingediende uren april' heb ik weggehaald en heb ik vervangen door de tab 'Database'. Bekijk alle aanpassingen maar eens.

Code: 
Sub VenA()
  Sheets("Template").Copy , Sheets(Sheets.Count)
  Range("I3").Value = Sheets(Sheets.Count - 1).Range("I3").Value + 7
  ActiveSheet.Name = Range("I1") & "_" & Format(Range("I2").Value, "00")
End Sub
 

Bijlagen

  • urenlijst.xlsb
    49,1 KB · Weergaven: 57
geweldig ik had niet beter kunnen wensen dit werkt perfect enorm bedankt VenA :thumb:
 
ik heb nog 1 vraagje ik heb nu een kolom toegevoegd ik zie dat alle forumules in de database hetzelfde

nu heb ik een kolom toegevoegd ATV en nu wilo ik deze ook in de database tab laten berekenen
waarom herberekend hij de waardes niet ik heb in de urenlijst de tab aangemaakt en ook in de database
in de database heb ik de formule mee gekopieerd
 
Heeft jouw toetsenbord geen hoofdletters en leestekens ?
 
Jawel hoor.

Bedankt voor de tip ik zal er rekening mee houden.
Ik begrijp dat het lastig lezen is zonder leestekens etc.
 
Met of zonder leestekens ik kan er geen tabak van maken. Plaats het bestandje maar met de aanpassingen die je gedaan hebt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan