Inhoud wissen na laatste regel

[DirkB]

Hoi

Doormiddel van wat marco's heb ik bijgaand bestand gemaakt.
Het origineel bevat veel meer regels maar dmv formules zijn de cellen met "" leeg gemaakt

Toch blijft er blijkbaar is in zie cellen staan want als ik van bijgaand bestand een .CSV wil maken dan komen er nog een paar honderd rijen met , , , ,

Hoe kan ik na de laatst gevulde regel, de rest van het blad wissen??

 

[edmoor]

Je bestand heeft 829 rijen.
Deze niet meer:

 

[DirkB]

niet gevulde regels

De info komt van een ander blad en wordt gesorteerd.
Daardoor komen die lege regels er in.

ik heb geprobeerd met deze code de rijen te verwijderen maar dat lukt me niet

Range("A1:A829").SpecialCells(4).EntireRow.Delete xlShiftUp

 

[peter59]

Hallo,

Of met power query.

 

[emields]

het zal wel zijn dat je de inhoud van het andere blad op een verkeerde manier invoert.
plaat ook een voorbeeld van dat andere blad en de manier waarop je invoert.

 

[DirkB]

geregeld

Hoi,

Ik dacht dat de cellen leeg waren, maar ze waren gevuld met ""
ik heb het zo opgelost:

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

 

[emields]

of als je wilt dat het vlugger gaat.

Sub Macro1()
With Sheets("import")
    .Range("$A$1:$E$10000").AutoFilter Field:=1, Criteria1:="="
    .Range("$a2:$e10000").SpecialCells(xlCellTypeVisible).ClearContents
    .Range("$A$1:$E$10000").AutoFilter
End With
End Sub

 

[JEC.]

Nog sneller

Sub jec()
 Application.ScreenUpdating = False
 With Range("A1:E" & Range("A" & Rows.Count).End(xlUp).Row)
   .Value = Evaluate(Replace("if(@@="""",""#N/A"",@@)", "@@", .Address))
    On Error Resume Next
   .SpecialCells(2, 16).ClearContents
 End With
End Sub