Lege rij blijft staan waarvan de opmaak is gekopieerd uit de uitkomst van een formula

[gridishere]

Goedenavond

Voorlopig mijn laatste verzoek voor vandaag. Dit keer kopieer ik een selectie naar een nieuw blad. Daar verwijder ik uit deze selectie lege rijen. Ik merk dat de lege rij die uit een formula is berekend blijft staan. Deze bevat geen inhoud want deze is gekopieerd als opmaak. Hoe kan dit? Ook al met meerdere scripts geprobeerd deze te verwijderen.

Zie voorbeeldje
Bekijk bijlage test.xlsm


Bij voorbaat dank!

grid

 

[edmoor]

Gebruik geen gereserveerde woorden als namen van een variabele, in dit geval Rows. Doe het eens zo:

Sub legerijen()
  Dim r As Range, rws As Long, i As Long
  Set r = ActiveSheet.Range("A1:Z50")
  rws = r.rows.Count
  For i = rws To 1 Step -1
    If Cells(i, 1) = vbNullString Then rows(i).Delete
  Next
End Sub

 

[gridishere]

Ik heb de code in je post uitgeprobeerd. Deze code resulteert dat geen rijen verwijderd worden. Zie ik iets over het hoofd?


Groet,

grid

 

[edmoor]

Sorry, zie het al.
Tikfoutje in de code.
Nu aangepast.

Dat gebeurt er dus als je geen Option Explicit gebruikt waar ik altijd op attendeer.
Nu trap ik er zelf in

 

[gridishere]

Dat is hem helemaal. Gaat goed nu. Bedankt weer edmoor

Fijne avond nog

 

[gridishere]

Ik las je post en had tegelijk de mijne aangepast