rijen verwijderen

[f.bokhoven]

Hallo allemaal,

Ik wil graag via VBA met een auto_open macro in een werkblad alle rijen
verwijderen verwijderen waar in kolom 5 iets anders staat dan "kne".

Kan iemand mij uitleggen hoe ik dit in een bestand met 2500 rijen voor
elkaar krijg?

Bij voorbaat hartelijk dank!!!!!

Fred

[RP aka Ronny]

"f.bokhoven" <f.bok...@hetnet.nl> schreef in bericht
news:bu74t5$jsc$1...@reader10.wxs.nl...

Hallo Fred,

Probeer eens volgende code (maak desnoods eerst een kopie
van de oorspronkelijke gegevens in het geval van):

Sub test()
Dim c As Range
i = 1
Set c = Range(Cells(i, 5), Cells(i, 5))
While c.Value <> ""
If c.Value <> "kne" Then
c.EntireRow.Delete
i = i - 1
End If
i = i + 1
Set c = Range(Cells(i, 5), Cells(i, 5))
Wend
End Sub

--
Met vriendelijke groeten

Ronny

[Hazewizard]

"f.bokhoven" <f.bok...@hetnet.nl> wrote in message
news:bu74t5$jsc$1...@reader10.wxs.nl...

Heb deze hier gekregen van bert visser
het werkt prima bij mij. gezien ik de vraag reeds een korte tijd geleden
stelde, heb ik ineens de draad erbij gedaan.

Deze macro verwijdert alle rijen waarvan de eerste cel (in kolom A dus) leeg
is

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

Deze macro verwijdert alle kolommen waarvan de eerste cel (in rij 1 dus)
leeg is

Sub Lege_kolommen_weg() 'als rij 1 leeg is
Range("A1:IV1").Cells.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

Eerst even uitproberen kan natuurlijk nooit kwaad ;-)
--
Met vriendelijke groeten,
Ber Visser

"Haze_Wizard" <haze_...@yahoo.co.uk> schreef in bericht
news:3fec88a7$0$1120$6c56...@feed0.news.be.easynet.net...
>
> <j.mw...@freeler.nl> wrote in message
> news:006b01c3cbdc$44316f80$a401...@phx.gbl...
> | Klik de betreffende kolom-kop of rij aan. Hiermee
> | selecteer je de betreffende rij of kolom. Klik nu op de
> | rechtermuisknop en selecteer verwijder.
> |
> | John
> |
> |
> | >-----Original Message-----
> | >Als ik lijsten converteer vanuit cristal reports naar
> | excel dan heb ik soms
> | >dat er lege rijen en/of kolommen in die tabel zit.
> | >Hoe krijg ik deze eruit?
>
> het gaat hem wel om veel meer rijen/kolommen.
> Dus dan ben ik een uurtje of ...... bezig,
> zou graag weten of er geen snellere manier bestaat.
>
> | >
> | >
> | >.
> | >
>
>

[f.bokhoven]

Hoi Ronny

Het werkt perfect.

Hartelijkdank
Fred

"RP aka Ronny" <NyOnSnPoArM.P...@MAPSONpandora.be.invalid> schreef
in bericht news:r6FNb.13859$kQ5.3...@phobos.telenet-ops.be...

[RP aka Ronny]

Yes :-)))))

--
Met vriendelijke groeten

Ronny

"f.bokhoven" <f.bok...@hetnet.nl> schreef in bericht
news:bu9l5k$m4i$1...@reader11.wxs.nl...