Rijen verwijderen met als criterium lege cel in kolom

[Nico]

Beste mensen,

Ik weet dat de vraag eerder is gesteld door iemand anders, maar heb het nu
zelf ook nodig.

Ik heb in Excel een bestelformulier gemaakt. Hoe laat ik nu via een macro
automatisch rijen verwijderen, daar waar geen waarde is ingevoerd in de
kolom A (aantallen) bijv.?

Dank alvast voor de reacties.

Met vriendelijke groet,
Nico Turubassa

[John]

Nico probeer eens de onderstaande link
wellicht dat er een oplossing bij staat.

http://groups.google.com/groups?num=10&hl=nl&lr=lang_nl&ie=UTF-8&oe=UTF-8&q=
rijen+verbergen&btnG=Google+zoeken

John,

"Nico" <n.a.z.t...@chello.nl> schreef in bericht
news:6bWca.118659$fR6....@amsnews03.chello.com...

[Ingrid Baplue]

John,

Om te vermijden dat een link niet meer aanklikbaar is, kan je lange url's
verkorten via 1 van volgende pagina's:
http://tinyurl.com/
http://www.digipills.com/tinylink/intro.php
http://www.makeashorterlink.com/index.php

De link die jij hebt gegeven kan je dan verkorten tot:
http://tinyurl.com/7kcu (Google Groups)

Ingrid

John schreef in news:OqFhzt56...@TK2MSFTNGP11.phx.gbl

[John]

Bedankt voor de tip Ingrid.
Weer wat bijgeleerd.

Met vriendelijke groeten,
John

"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht
news:u6$#jA66CH...@TK2MSFTNGP10.phx.gbl...

[Ber Visser]

Nico, onderstaande macro verwijdert alle rijen waarvan de eerste cel(in kolom A)
leeg is.

--
Met vriendelijke groeten,
Ber Visser

Sub Lege_rijen_weg() 'Als cel in kolom A leeg is
Range("A2",
Range("A65536").End(xlUp)).Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

===============

"Nico" <n.a.z.t...@chello.nl> schreef in bericht
news:6bWca.118659$fR6....@amsnews03.chello.com...

[Agnes]

Ber,

Wat als ik alle rijen wil verwijderen waarvan de waarde in
kolom A "" is?

Groeten,
Agnes
>-----Oorspronkelijk bericht-----

>.
>

[Ber Visser]

Agnes, wat bedoel je precies?
1. de cel is echt leeg en bevat dus ook geen formule?
2. In VBA heb je een opdracht zoals Range("A12") = "" gegeven?
In beide gevallen is de cel leeg en wordt de complete rij dus verwijderd.

--
Met vriendelijke groeten,
Ber Visser

"Agnes" <a_be...@hotmail.com> schreef in bericht
news:0b6b01c2ec98$ac281f90$3301...@phx.gbl...

[Agnes]

Goedemorgen Ber,

Ik zal wat duidelijker zijn.
1. De cellen in kolom A bevat een formule waarvan het
resultaat " " is of een tekst.
2. In VBA heb ik jouw macro in z'n geheel overgenomen.

Ik hoop dat je er zo uitkomt.

Groeten,
Agnes

>-----Oorspronkelijk bericht-----

>.
>

[Ber Visser]

Agnes, ik herhaal:
met de macro worden alle rijen verwijderd waarvan de cel in kolom A echt
compleet helemaal leeg is en dus niet wanneer de cel wel leeg lijkt maar wel een
formule bevat.

--
Met vriendelijke groeten,
Ber Visser

"Agnes" <a_be...@hotmail.com> schreef in bericht

news:0c9a01c2ed1b$6eca0b30$a601...@phx.gbl...

[Luc.Heyndrickx]

Agnes,

Misschien kan je hier wat mee doen: Deze macro verwijdert ook cellen met een
formule die de waarde "" bevatten.
Ook niet foutloos, want je moet in uw eerste rij iets staan hebben (Desnoods
een spatie)

**********
Sub Verwijderen()

Dim i As Integer
Dim y As Integer

i = ActiveSheet.UsedRange.Rows.Count
For y = i To 1 Step -1
If Cells(y, 1).Value = "" Then
Cells(y, 1).EntireRow.Delete
End If
Next

End Sub
*********

Luc

"Agnes" <a_be...@hotmail.com> schreef in bericht

news:0c9a01c2ed1b$6eca0b30$a601...@phx.gbl...

[Agnes]

Ber,

Volgens mij begrijpen we elkaar verkeerd. Ik begrijp wat
jouw macro doet, namelijk het verwijderen van alle rijen
als de cel in kolom A leeg is.

Mijn probleem is als volgt. In kolom A staat onderstaande
formule:
=ALS(ISNB(VERT.ZOEKEN
(B456;afdelingscode;2;ONWAAR));"";VERT.ZOEKEN
(B456;afdelingscode;2;ONWAAR))

Nu wil ik rijen verwijderen als het resultaat van de
formule in kolom A "" is.

Hoe moet ik jouw macro aanpassen zodat ie doet wat ik wil?

Ik hoop dat ik hiermee het probleem wat duidelijker maak.

Met vriendelijke groeten,
Agnes

>-----Oorspronkelijk bericht-----

>.
>

[Luc.Heyndrickx]

Agnes,

Misschien heb je het intussen gemerkt, maar probeer mijn macro eens.

Luc

"Agnes" <a_be...@hotmail.com> schreef in bericht

news:193b01c2eded$78bb0630$3301...@phx.gbl...

[Agnes]

Luc,

Ik heb jouw macro als volgt gebruikt:
*****
Sub Verwijderen()

ActiveSheet.Unprotect Password:="bereboot"

Dim i As Integer
Dim y As Integer

i = ActiveSheet.UsedRange.Rows.Count
For y = i To 1 Step -1
If Cells(y, 1).Value = " " Then
Cells(y, 1).EntireRow.Delete
End If
Next

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

End Sub
*****

Ook heb ik in de eerste rij van het blad een waarde staan.
Als ik de macro uitvoer, blijft ie echter lopen. Als ik de
macro stop geeft de foutopsporing aan dat er een fout zit
in End If. Ik heb echter niet genoeg kennis van VBA om te
fout te herkennen.

Wat doe ik fout?

>.
>

[Luc.Heyndrickx]

Agnes,

Misschien is uw gebruikt gebied te groot.
Voer volgende macro eens uit, en kijk welk gebied is geselecteerd.
********

Sub Test()

ActiveSheet.UsedRange.Select

End Sub

************

Luc

"Agnes" <a_be...@hotmail.com> schreef in bericht

news:194f01c2ee11$839dd950$2f01...@phx.gbl...

[Luc.Heyndrickx]

Agnes,

Vorige macro werkt misschien onhandig. Voer dus deze uit, en kijk of de
bewering klopt

********
Sub Test2()

MsgBox "De laatste gevulde rij is rij nr.:" &
ActiveSheet.UsedRange.Rows.Count

End Sub

"Luc.Heyndrickx" <lucDitVerwijd...@skynet.be> schreef in bericht
news:OE7lIZh7...@TK2MSFTNGP10.phx.gbl...

[Luc.Heyndrickx]

Toch nog een aanvulling nu ik het resultaat zie:
Die code moet op één regel komen.

Luc

"Luc.Heyndrickx" <lucDitVerwijd...@skynet.be> schreef in bericht

news:ecfI7dh7...@TK2MSFTNGP11.phx.gbl...

[Agnes]

Luc,

Allereerst bedankt voor je eindeloze geduld.

Het resultaat van jouw macro is 1293.

Ik heb nog eens goed naar mijn probleem gekeken en ik zou
ook geholpen zijn als de rijen verwijdert zouden worden
als in kolom F waarde "geen actieve medewerker" staat.

Volgens mij vereenvoudigt dit e.e.a.

Groeten,
Agnes
>-----Oorspronkelijk bericht-----

>.
>

[Luc.Heyndrickx]

Tja, met zo'n klein getal zou de macro toch snel moeten afgelopen zijn.
Ik ga hem dus maar anders schrijven, aan de hand van 'geen actieve
medewerker'. Ik hoop wel dat dit in elke cel op dezelfde manier geschreven
is. Ik voeg er meteen een code aan toe, om alles op de achtergrond te laten
gebeuren, dan gaat het ook wat sneller.

**********
Sub Verwijderen2()

Dim i As Integer
Dim y As Integer

Application.ScreenUpdating = False

i = ActiveSheet.UsedRange.Rows.Count
For y = i To 1 Step -1

If Cells(y, 6).Value = "geen actieve medewerker" Then

Cells(y, 1).EntireRow.Delete
End If
Next

End Sub

************

Geen dank, als ik problemen heb wordt ik ook graag geholpen.

Luc

"Agnes" <a_be...@hotmail.com> schreef in bericht

news:1c4e01c2ee20$3dbf0c10$3001...@phx.gbl...

[Agnes]

Luc,

Hartelijk dank. Het werkt nu perfect.

Groeten,
Agnes

>-----Oorspronkelijk bericht-----

>.
>

[keepitcool]

Luc,

MsgBox "De laatste gevulde rij is rij nr.:" &
>> ActiveSheet.UsedRange.Rows.Count
>>

dat klopt niet...

een usedrange hoeft niet op rij1 te beginnen!

keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

[Luc.Heyndrickx]

Zeer juist opgemerkt.
Maar als je heel de thread gevolgd had, had je ook gemerkt dat ik getypt
had, dat de eerste rij niet leeg mocht zijn.
Die MsgBox was ook maar een controle, om te zien hoe lang de lus zou zijn.
Vermits Agnes beweerde dat de macro bleef hangen, kreeg ik het vermoeden dat
de UsedRange wel eens heel groot zou kunnen zijn.
De opmerking is te verstaan, gezien de lengte van deze thread ;-)

Luc

"keepitcool" <xrrcv...@puryyb.ay> schreef in bericht
news:Xns9343B2F3C99...@207.46.248.16...

[frituur.de...@gmail.com]

Heeft u ondertussen al zo een bestellijst kunnen maken ?

Ik ben ook op zoek om dit te doen .

Kunt u mij laten weten hoe ?

Of eventueel een voorbeeld spreadsheet doormailen ?

deloco...@telenet.be

Dank bij voorbaat.