Buiten werking na sluiten.

[DenisDaf]

Hallo,

Ik heb een macro-tje gemaakt om bepaalde cellen van een sheet leeg te maken.
Werkt ok.
Nadien gekoppeld aan een knop om de macro in werking te zetten.
Werkt ok.
Nu komt het.
Zodra het document gesloten is geweest, en nadien opnieuw geopend, werkt het niet meer.
Wat zou er dan fout kunnen zijn?

De macro is de volgende.

Quote:

Sub Clear_Celles()
Range("C2:C59").ClearContents
Range("C61:C74").ClearContents
Range("G2:G59").ClearContents
Range("G61:G74").ClearContents
Range("K2:K59").ClearContents
Range("K61:K74").ClearContents
Range("O2:O59").ClearContents
Range("O61:O74").ClearContents
Range("S2:S59").ClearContents
Range("S61:S74").ClearContents
Range("W2:W59").ClearContents
Range("W61:W74").ClearContents
End Sub

End quote.

 

[ExcelAmateur]

DennisDaf,

Waarom het na het openen niet meer werkt, heb ik geen antwoord op.
DE code kan in een regel.

Sub Clear_Celles()
  Range("C2:C59,C61:C74,G2:G59,G61:G74,K2:K59,K61:K74,O2:O59,O61:O74,S2:S59,S61:S74,W2:W59,W61:W74").ClearContents
End Sub

 

[Cobbe]

Heb je de code wel in een module gezet?
Staat wellicht achter het verkeerde blad.

 

[DenisDaf]

DennisDaf,

Waarom het na het openen niet meer werkt, heb ik geen antwoord op.
DE code kan in een regel.

Sub Clear_Celles()
  Range("C2:C59,C61:C74,G2:G59,G61:G74,K2:K59,K61:K74,O2:O59,O61:O74,S2:S59,S61:S74,W2:W59,W61:W74").ClearContents
End Sub

Daar ga ik al eens mee aan de slag.
Misschien kan daar wel iets mee zijn.

Dank je

 

[DenisDaf]

Heb je de code wel in een module gezet?
Staat wellicht achter het verkeerde blad.

Staat wel degelijk juist hoor. Temeer daar ze werkt zolang ik na het maken ervan, en koppelen aan de button, alles werkt.
Pas nadat ik bvb het bestandje heb afgesloten, en opnieuw open, doet het probleem zich voor.

 

[DenisDaf]

Raar, Nog een opnieuw gekeken, NIETS aangepast, en nu werkt het wel.
Begrijp er niets van.
Maar ik heb dan weer wel geleerd dat mijn VBA eenvoudiger kon.
Dat ga ik misschien dan wel aanpassen.

Bedankt,