Kolom leeg dan verwijderen

[ronaldvm1964]

Ik heb het volgende probleem, zie bijlage:

Als er in kolom G (redencode) niets staats ingevuld dan moet deze regel verwijderd worden. In dit voorbeeld regel 2 t/m 8 gevuld, regel 9 t/m 148 leeg, regel 149 t/m 152 gevuld, regel 153 leeg, regel 154 t/m 155 gevuld, regel 156 t/m 157.
Regels 9 t/m 148, 153 & 156 t/m 157 moeten verwijderd worden.
Ik zou dit graag in een macro willen.

Kan iemand mij helpen, bij voorbaat dank.

Groetjes,
Ronald

 

[exhelp]

Sub verwijderen()

Dim lastrow As Long
Dim a As Integer
Dim hide As Range

With ActiveWorkbook.Sheets(1)
'kolom 1 gebruikt om het aantal rijen te tellen, gebruik altijd een kolom die steeds gevuld is
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

For a = 2 To lastrow
    If .Cells(a, "G") = "" Then
        If hide Is Nothing Then
            Set hide = .Cells(a, "G").Cells
        Else
            Set hide = Application.Union(hide, .Cells(a, "G").Cells)
        End If
    End If
Next a

If Not hide Is Nothing Then hide.EntireRow.Delete

End With
End Sub

Je bestand: http://www.exhelp.be/help/rijen_verwijderen.xlsm

 

[ronaldvm1964]

Ik heb de macro geprobeerd in het bestandje, maar helaas doet deze niets.

Gr,
Ronald

 

[exhelp]

Ik had een foutje gemaakt.
Download het bestand eens opnieuw... ;-)

Sheets(2) ipv Sheets(1) getypt.

Gr

 

[ronaldvm1964]

Ik heb het bestandje met macro toegevoegd.
ter info: CTRL+W om macro te activeren.

Gr,

 

[exhelp]

Ik heb het bestandje met macro toegevoegd.
ter info: CTRL+W om macro te activeren.

Gr,

Dit is toch net hetzelfde?

 

[ronaldvm1964]

In deze zit de macro, in de vorige niet.

 

[exhelp]

Kijk dan eens goed in mijn eerste post:

Je bestand: http://www.exhelp.be/help/rijen_verwijderen.xlsm

De upload-functie van de website hier werkt niet bij mij

 

[ronaldvm1964]

Als ik het bestandje upload moet ik een zip-bestand installeren en als ik deze uitpak dan vind ik geen rijen_verwijderen.xlsm.
Site www.exhelp.be/help kan ik niets vinden en op de site www.exhelp.be kan ik daar dit bestand vinden.

Gr,
Ronald

 

[exhelp]

Beste Ronald, gewoon klikken:

http://www.exhelp.be/help/rijen_verwijderen.xlsm

 

[ronaldvm1964]

Heb ik gedaan, maar als ik daar op klik krijg ik de melding:

Wilt u dit bestand openen of opslaan?
Naam: rijen_verwijderen.zip
Type: Gecomprimeerde map. 33,2 kb
Van: www.exhelp.be

Heb zip bestand opgeslagen en uitgepakt, dan krijg ik verschillende mappen, klopt dit?

 

[exhelp]

Ik begrijp al wat er misloopt.
Je hebt geen Excel 2007 maar 2003. Correct?

 

[exhelp]

Probeer dan deze eens:

Bekijk bijlage rijen_verwijderen.xls

 

[ronaldvm1964]

Ik zit nu op mijn werk en daar hebben we inderdaad nog 2003.

 

[ronaldvm1964]

Deze werkt.
Dank je wel.


Gr,
Ronald

 

[exhelp]

Graag gedaan.
Markeer je post even als 'afgehandeld'