Flytte rækker til workbook

Hej du,

Autofilter skulle gerne klare dette problem. Jeg antager du arbejder med ranges, ellers må du selv konvertere dette. Men du kan vælge alle rows med en tom celle i kolonne A.

With Range("A1").CurrentRegion
.AutoFilter 1, ""
.Offset(1).Resize(.Rows.Count-1) _
  .SpecialCells(xlVisible).Select
.AutoFilter
End With

En anden og måske mere atraktiv løsning, som sletter rækken istedet. Så der skal du blot have copy fedtet ind: 

On Error Resume Next
Intersect(Activesheet.UsedRange,Columns("A:A")). _
  SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

(On error tilføjes i tilfælde der ingen tomme felter er)

God fornøjelse..

øhhh ja, men det jo kun en halv løsning

jeg lukker igen....