problemen in mijn ontwerp

[flexscan]

geachte mensen

Ik heb 3 problemen in mijn volgend excel programmatje

Druk ik op de knop cel leegmaken dan doet deze zijn werk maar heeft dan op het laatste een fout.

Het volgende probleem is de datum die ik van de ene sheet naar de ander wil copieren automatisch maar door een of andere reden zet hij wel een datum maar die bij 1900 begint. Dit in de file van de uren.

En het laatste probleem is dat bij het drukken van de knop er een nieuwe sheet wordt gemaakt benoemd met de week nummer waarin weekplanning en uren wordt weergegeven. enzo bij elke bediening er telkens een sheet wordt gemaakt.

als hulp heb ik mijn file bijgevoegd

 

[Roncancio]

Probleem 1:
-Er ontbrak een kolomletter

Range("[COLOR="red"][B]K[/B][/COLOR]65:K71").Select
    Selection.ClearContents

Je kunt overigens de Select en Selection weglaten. Dat is zelfs beter.
Dus:

 Range("K65:K71").ClearContents

Probleem 2:
- Er wordt m.i. verwezen naar de verkeerde cel. Namelijk N15 ipv M14.

Probleem 3:
- Ik zie niet zo gauw code dat een werkblad aanmaakt.

Met vriendelijke groet,


Roncancio

 

[ExcelAmateur]

flexscan,

Je zal met deze code een probleem mee krijgen.

Range("A7:A13").ClearContents

Foutmelding: U kunt niet een deel van de samengevoegde cel wijzigen.
Dit komt doordat je de cellen van 3 kolommen heb samengevoegd.
Dit is volgens mij niet nodig omdat je een kolom ook breder kunt maken.

Zo zal het wel werken. (waarom zo wel weet ik niet)

Range("A7:A13").Select
    Selection.ClearContents

Er word in dit Forum ook dikwijls op gewezen dat samengevoegde cellen voor problemen kunnen zorgen.