macro vraagje

[jpvs]

Nog een vraagje over een macro :

Eerste blad blijft zoals het is.
dan vanaf blad2 en de volgende tabbladen mag vanaf cel A2 alles gewist worden.


Kom er niet uit?

Pierre

 

[Wigi]

Voilà

Sub wissen()
Dim i As Integer
For i = 2 To Worksheets.Count
    Sheets(i).Range("A2").ClearContents
Next i
End Sub

Wigi

 

[jpvs]

Bedankt voor het antwoorden maar er gebeurd niets?

Pierre

 

[Wigi]

Bedankt voor het antwoorden maar er gebeurd niets?

De macro runnen...

 

[Demeter]

Wgi zijn code leegt alleen cel A2 op ieder blad.
Je moet zelf de code aanpassen zodat hij alles wist wat jij wil legen .

Groet,
Ferenc

 

[jpvs]

Heb een knop op gezet maar wil niets doen?

Zou de rest van het blad moeten wissen als dit mogelijk is.

Sheets(i).Select.ClearContents doet het ook niet?

Pierre

 

[Wigi]

Wgi zijn code leegt alleen cel A2 op ieder blad.
Je moet zelf de code aanpassen zodat hij alles wist wat jij wil legen .

Groet,
Ferenc

Bedankt, daar had ik over gelezen...

Sub wissen()
Dim i As Integer
For i = 2 To Worksheets.Count
    Sheets(i).Rows("2:" & Sheets(i).UsedRange.SpecialCells(xlCellTypeLastCell).Row).ClearContents
Next i
End Sub

Wigi

 

[jpvs]

Wigi,

Thanks kan verder.

Pierre