Leegmaken

[kloosterofobie]

Ik vraag me af of er een mogleijkheid bestaat om een knop te maken die alle waarden in 1 keer op ONWAAR kan zetten. Deze knop zou dan tevens alle waardes op 0% moeten zetten.

Ben namelijk bezig met een vragenlijst en het zou makkelijk zijn als je deze in 1 keer leeg kan maken.

Jeroen

 

[jean42]

Probeer dit met een macro.
Start macro maken en voer dan die handelingen uit en stop daarna de macro.

 

[Wigi]

Post dan de code en dan kunnen we die code wel aanpassen (lees: verbeteren, want de macro recorder genereert niet al te beste code...)

Wigi

 

[kloosterofobie]

Sub procentenleegmaken()

    Selection.AutoFill Destination:=Range("G8:G15"), Type:=xlFillDefault
    Range("G8:G15").Select
End Sub

Deze werkt dus niet. Deze is om mijn percentagevragen leeg te maken.

Sub leegmaken()

    Range("C7").Select
    Selection.AutoFill Destination:=Range("C7:C31"), Type:=xlFillDefault
    Range("C7:C31").Select
    Range("b1").Select
End Sub

Deze werkt goed

 

[Wigi]

Bedoel je met leegmaken gewoon de celinhoud deleten? Gebruik dan

=Range("A1").ClearContents

om cel A1 leeg te maken. Gebruik

=Range("A1,C2").ClearContents

om cel A1 en cel C2 leeg te maken. Enz.

Je hoeft geen .Select te gebruiken (vertraagt uitvoering van de macro), ook geen Autofill.

Wigi

 

[kloosterofobie]

Nee dat bedoel ik niet.

De waardes moeten op onwaar komen te staan omdat ik er formules achter heb zitten die werken met WAAR of ONWAAR.

Voor het percentage geldt dat deze op nul moet komen.

 

[Wigi]

Voor de percentages:

Dim c as Range
For each c in Range(" ")  ' vul hier de range in van percentages die op 0 moeten komen
     c.Value = 0
Next

Analoog voor ONWAAR:

c.Value = "onwaar"

Werkt dit?

Wigi

 

[kloosterofobie]

Kan ik hier op alle werkbladen mijn antwoorden mee wissen??

En waar zet ik deze neer? Kan deze gewoon onder een knop?

 

[Wigi]

Ja, maar doe dat blad per blad. Bij mij noemen de bladen Sheet1 en Sheet2.

Sub wissen()
Dim c As Range
For Each c In Range("A1:A2")  'vanaf hier voor huidige Sheet, je hoeft die niet te activeren
     c.Value = 0
Next
Sheets("Sheet2").Activate  'vanaf hier voor Sheet2
For Each c In Range("A3:A4")
     c.Value = 0
Next
End Sub

 

[Wigi]

En waar zet ik deze neer? Kan deze gewoon onder een knop?

Ofwel in een (nieuwe) module, ofwel in de code achter Sheet1 (het blad waarin je eerst wil beginnen leegmaken), ofwel in de code van een knop die je plaatst op Sheet1 (het blad waarin je eerst wil beginnen leegmaken)

 

[kloosterofobie]

Hij werk niet goed. Hij geeft de tekst onwaar en dan worden de selectievakjes grijs met vinkje terwijl ze dan eigenlijk leeg moeten.

Heb je hier een oplossing voor?

 

[Wigi]

Hij werk niet goed. Hij geeft de tekst onwaar en dan worden de selectievakjes grijs met vinkje terwijl ze dan eigenlijk leeg moeten.
Heb je hier een oplossing voor?

Zonder attachment niet echt nee.

 

[kloosterofobie]

ZIe hier een bijlage nadat ik hem heb leeggemaakt

 

[Wigi]

Gebruik FALSE ipv ONWAAR

 

[kloosterofobie]

Perfect. Hij doet het nu :thumb:

 

[Wigi]

Graag gedaan.

Markeer de status van de vraag als opgelost aub. Handig voor andere forummers.

Tot de volgende

Wigi