overzetten rijen naar ander tabblad op basis van ingevoerde waarde

Status
Niet open voor verdere reacties.
S

sjeeke

Gebruiker
Lid geworden
25 sep 2013
Berichten
37
ik wil graag de gegevens van de gehele rijen overzetten naar een ander tabblad op basis van een ingevulde waarde.
Echter, wanneer ik meer dan 2 cellen (rijen) invul, krijg ik maar 2 rijen overgezet ipv alle rijen.

In kolom D voer ik "x" in. Alle rijen in Blad1 waarin "x" is ingevuld in cel (kolom) D, moeten middels macro overgezet worden naar Blad2.
 

Bijlagen

  • overzetten.xlsm
    24,8 KB · Weergaven: 211
Werkt toch gewoon? Er staan drie rijen met een x en het resultaat is ook drie rijen. Dus wat is de vraag?

Ipv een loop kan je beter 1 van de filtermethoden gebruiken. Bv.
Code: 
Sub VenA()
  Sheets("blad2").Cells(1).CurrentRegion.ClearContents
  With Sheets("Blad1").Cells(1).CurrentRegion
    .AutoFilter 4, "x"
    .Copy Sheets("blad2").Cells(1)
    .AutoFilter
  End With
End Sub
 
hmmm.... bij mij kreeg ik enkel maar 2 resultaten.

Maar jouw filtermethode ziet mooier uit dan de loop.Thanks
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan