gegevens filteren

Status
Niet open voor verdere reacties.
H

HammerJohn

Gebruiker
Lid geworden
27 apr 2016
Berichten
173
Goedemiddag

Ik heb een tabblad met 120 regels, het komt voor dat er lege regels zijn..... nu wil ik de regels die ingevuld zijn overnemen
in een nieuw tabblad.
Ik krijg wel of de kolom B:K of de kolom M:V zichtbaar in blad2 maar niet beide... ben maar niet verder gegaan met ook de 3e
pagina.....omdat ik er 2 al niet werkend krijg.

Is hier een mogelijkheid voor, alvast vriendelijk bedankt
 

Bijlagen

  • test filter new.xlsm
    25,6 KB · Weergaven: 27
Hier zou het mee moeten lukken

Code: 
Sub j_v()
 For Each Rng In Sheets(1).Range("B3:C3, M3:N3, X3:Y3").Areas
  With Rng
    .AutoFilter 1, "<>"
    .Offset(1).Resize(40, 9).SpecialCells(12).Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .AutoFilter
  End With
 Next
End Sub
 
Waarom niet.
Code: 
For Each Rng In Sheets(1).Range("B3:[COLOR=#ff0000]J43[/COLOR], M3:[COLOR=#ff0000]U43[/COLOR], X3:[COLOR=#ff0000]AF43[/COLOR]").Areas
;;
;;
.Offset(1).Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1)
 
Super bedankt, het werkt naar behoren.

Ik heb de code van J Veer gebruikt en die werkt perfect.
 
Die moet je juist gebruiken, er is ook niets te kiezen. :d
 
Je probeert nu met VBA een onhandige struktuur van je gegevens te compenseren.

Struktureer je gegevens als een databasetabel en alles wordt simpeler.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan