Rijen verwijderen

[CarolienL]

Hallo,

Ik heb een opzet gemaakt voor een bestelformulier.
In tabblad 2 staan alle aanwezige artikelen. Door in kolom 1 de benodigde aantallen in te vullen kan een bestelling gedaan worden.

Ik heb 1 macro geschreven om de bestelde gegevens op 1 werkblad te krijgen.
Alle artikelen die men dus niet wil bestellen vallen dan weg.

Tevens heb ik 1 macro geschreven om alle gegevens weer te wissen.
In het tabblad met alle artikelen wordt dan de kolom met bestelde aantallen helemaal leeggemaakt.

In het tabblad waar de bestelling in komt te staan worden alle regels ook weg gegooit.
Op die manier heb ik weer een leeg werkblad.

Nu wil ik op het tabblad waar de bestelling op staat ergens een datum en een naam in kunnen vullen.
Dit mag men zelf doen, hoeft niet met een macro getransporteert te worden.
Echter, wanneer ik de macro 'verwijderen' laat draaien (dus om weer een leeg werkblad te krijgen), wil ik wel dat de ingevulde naam ook verwijderd wordt.

Mijn probleem is dus dat ik wel kolommen leeg kan maken, maar ik kan geen rijen leegmaken.
Kan iemand mij daarbij helpen?

Mijn gebruikte macro voor het verwijderen ziet er nu als volgt uit:

Sub reset()
Dim Title$, Msg$, Style, Response

' waarschuwing
Title = " Reset aantallen . . . . ."
Msg = " Alle ingevulde aantallen en de bestellijst worden gewist. " _
& vbCrLf & vbCrLf & " Weet U het zeker ? "
Style = vbYesNo + vbDefaultButton2
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then Exit Sub

' wis
' 1e kolom van het tabblad onderdelenlijst
[=onderdelen].Columns(1).ClearContents
' alle rijen van het tabblad bestellijst
[=bestelling].Columns(1).ClearContents
[=bestelling].Columns(2).ClearContents
[=bestelling].Columns(3).ClearContents
[=bestelling].Columns(4).ClearContents
[=bestelling].Columns(5).ClearContents
[=bestelling].Columns(6).ClearContents
[=bestelling].Columns(7).ClearContents
Application.Goto [A1], True: [A2].Select
End Sub

Enorm bedankt!

Carolien

 

[danny147]

Beste CarolienL

Voor kolommen leeg te maken doe je als volgt:

Voor 1 kolom

Sheets("onderdelen").Columns("A").ClearContents

Voor meerdere kolommen:

Sheets("bestelling").Columns("A:F").ClearContents

Voor rijen leeg te maken doe je als volgt:

Voor 1 rij:

Sheets("onderdelen").Rows("1").ClearContents

Voor meerdere rijen:

Sheets("onderdelen").Rows("1:7").ClearContents

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Als het volledige werkblad leeg mag, waarom dan niet

Sheets("Bestelling").usedrange.clearcontents

 

[CarolienL]

Ik kan niet mijn hele bestand leegmaken omdat ik ook een aantal regels erin heb staan die niet wegmogen. (kolomnamen ed)
Maar toch bedankt voor de tips!

Carolien

 

[Jack Nouws]

Mijn probleem is dus dat ik wel kolommen leeg kan maken, maar ik kan geen rijen leegmaken.
Kan iemand mij daarbij helpen?

Hallo,

Hier een voorbeeldje.

  Sheets("onderdelen").Columns("A:G").ClearContents
  Sheets("onderdelen").Rows("11:30").ClearContents

Of geef het te verwijderen bereik een naam in het NaamVak en laat daar een code op los.

   [onderdelen!NaamVanHetVeld].ClearContents

Met vr gr
Jack

 

[Warme bakkertje]

In het tabblad waar de bestelling in komt te staan worden alle regels ook weg gegooid

??????????
Een voorbeeldbestandje kan in dit geval wonderen doen (in de meeste andere gevallen ook natuurlijk). De oplossing (of een deel ervan) is je trouwens gisteren al door Danny gegeven.

 

[Warme bakkertje]

In het tabblad waar de bestelling in komt te staan worden alle regels ook weg gegooid

??????????
Een voorbeeldbestandje kan in dit geval wonderen doen (in de meeste andere gevallen ook natuurlijk). De oplossing (of een deel ervan) is je trouwens gisteren al door Danny gegeven.

 

[snb]

Ik kan niet mijn hele bestand leegmaken omdat ik ook een aantal regels erin heb staan die niet wegmogen. (kolomnamen ed)

Met behoud van rij 1

sheets(1).usedrange.offset(1).clearcontents

Met behoud van rij 1 en 2

sheets(1).usedrange.offset(2).clearcontents