Button wissen orderregels

[tureluur]

Hallo Excelwizkids,

Ik wil een button gebruiken op mijn orderformulier. Deze button moet alle orderregels kunnen wissen.

ik weet waarschijnlijk dat er een macrootje vor geschreven moet worden. Maar helaas gaat dat even te ver voor mij.........

Wie helpt mij??

Groetjes
Arthur

 

[Paul-RT]

In html:

<INPUT TYPE="reset" VALUE="Begin opnieuw.">


INPUT TYPE="reset" VALUE="Begin opnieuw."
Vergeet niet de < en > aan begin en einde regel.
Geen idee of dat in een macro ook werkt....

 

[Withaar]

Sub Macro1()
Range("B7:K21").Select
Selection.ClearContents
Range("A1").Select
End Sub

Cellen (gebied) B7 t/m K21 worden met deze marco gewist, deze waarden kun je aanpassen zodat de cellen waar je orders ingevult worden worden gewist.

Macro toevoegen: Druk op [ALT]+[F11]
Kies Invoegen en kies voor Module
Knip en plak boven staande marco naar het nieuwe blad.
Klik op de groene X van Excel.
Om een butten toe te voegen heb je de werkbalk Formulieren nodig. Als deze nog niet openstaan kun je dit doen in het blauw naast een werkbalk te gaan staan en op de rechter muisknop te drukken.
Vink formulieren aan.
Klik op "Knop" (grijs blokje) en teken een vierkant op je excel blad waar de knop wilt hebben.
Excel opend een scherm waar je de macro aan de nieuwe knop kunt koppelen.

 

[tureluur]

Het lukt inderdaad...............Te Gek;

Maaarrrrrrrrreehhhhhh..............

Stel ik wil B25 t/m O32 wissen en tegelijkertijd heb ik ook orderregels van B54 t/m O65 om te wissen, maar ook alleen cel Q23 en cel P2 .

Hoe moet ik dat opsommen.....................??????



groetjes
Tureluur

 

[Withaar]

Sub Macro1()
'
Range("B25:O32").Select
Selection.ClearContents
'
Range("B54:O65").Select
Selection.ClearContents
'
Range("Q23").Select
Selection.ClearContents
'
Range("P2").Select
Selection.ClearContents
'
Range("A1").Select
'
End Sub

 

[[FJ]Hydra]

Prima opgelost Withaar, maar waarom een aparte Macro? Aangezien deze code alleen voor een bepaalde range is, zou het dan niet verstandiger zijn om de code gelijk aan de knop te hangen? Als je steeds meer macro's gaat maken, dus steeds meer knoppen, zie je strax door de bomen het bos niet meer.

Ik bedoel:

Private Sub CommandButton1_Click()
' code......

 

[tureluur]

Hallo bedankt voor jullie oplossingen,

Onderhand had ik al een oplossing gevonden nl.

Sub Macro1()
Range("B25:O35,B54:O65,Q23,P2").Select
Selection.ClearContents
Range("A1").Select
End Sub

Je hoefde alleen maar een komma erin te zetten.

Ik ga trouwens ook jouw oplossing proberen, Hydra....dus voorbaat bedankt voor je reactie

Groetjes
Arthur
:thumb: