verplaatsen

[xbox360]

Hoi,

ik heb reeds een paar vba codes geprobeert maar het wilt niet zoerg lukken
ik ben met een paar excel lijsten bezig om gebouwen te optimaliseren.
mijn vraag is als er in CEL I 1 t/m 65000 het woord WOC voorkomt het mogelijk is dat deze regels die het woord WOC bevat worden verplaats naar blad 2 en uit blad 1 verdwijnt

Alvast super bedankt

 

[HSV]

Hoi,

Zoek eens op 'Autofilter'.
Komt hier bijna dagelijks voorbij.

 

[xbox360]

niet gevonden

Hoi Harry,
heb even rond gezocht onder autofilter maar helaas stond mijn vraag ( en antwoord ) er jammer genoeg niet tussen

 

[Haije]

xbox, je voorbeeld zegt niet zo veel, want op elke regel komt WOC voor, dus zou je alle moeten verplaatsen. De zin daarvan ontgaat me.... Graag een voorbeeld dat overeenkomt met je werkelijke situatie.
TIP: kijk ook eens in de help van Excel naar AutoFilter

 

[xbox360]

andere voorbeeld

Hoi Haije,

dank voor je antwoord maar het nut van me vraag is, we hebben 211,000 aansluitingen voor heffingsadressen, deze bestaat uit een gewone huis aan huis, en woc adressen ( deze behoren aan een flat )
omdat het zoveel regels door elkaar staan zou ik het eigenlijk via een vba willen.

de lijst die ik van BAG krijg ziet er zo uit als de vraagje hier een klein voorbeeld maar ook is een nieuwe xls bij gevoegd :thumb:

5057AJ1 Beltmolen 1 5057AJ Berkel-Enschot heffingsadres PAPL_907 PAPL2101 REGF_807 REGF503 21 1112, Semi-bungalow 1 oneven
5057AJ2 Beltmolen 2 5057AJ Berkel-Enschot heffingsadres woc woc woc woc 1181, Galerijflat 1 even
5057AJ3 Beltmolen 3 5057AJ Berkel-Enschot heffingsadres PAPL_907 PAPL2101 REGF_807 REGF503 21 1112, Semi-bungalow 1 oneven
5057AJ4 Beltmolen 4 5057AJ Berkel-Enschot heffingsadres woc woc woc woc 1181, Galerijflat 1 even
5057AJ5 Beltmolen 5 5057AJ Berkel-Enschot heffingsadres PAPL_907 PAPL2101 REGF_807 REGF503 21 1141, Hoekwoning 1 oneven
5057AJ6 Beltmolen 6 5057AJ Berkel-Enschot heffingsadres woc woc woc woc 1181, Galerijflat 1 even
5057AJ7 Beltmolen 7 5057AJ Berkel-Enschot heffingsadres PAPL_907 PAPL2101 REGF_807 REGF503 21 1131, Tussenwoning 1 oneven
5057AJ8 Beltmolen 8 5057AJ Berkel-Enschot heffingsadres woc woc woc woc 1181, Galerijflat 1 even
5057AJ9 Beltmolen 9 5057AJ Berkel-Enschot heffingsadres PAPL_907 PAPL2101 REGF_807 REGF503 21 1131, Tussenwoning 1 oneven
5057AJ10 Beltmolen 10 5057AJ Berkel-Enschot heffingsadres woc woc woc woc 1181, Galerijflat 1 even
5057AJ11 Beltmolen 11 5057AJ Berkel-Enschot heffingsadres PAPL_907 PAPL2101 REGF_807 REGF503 21 1131, Tussenwoning 1 oneven
5057AJ12 Beltmolen 12 5057AJ Berkel-Enschot heffingsadres woc woc woc woc 1181, Galerijflat 1 even
5057AJ13 Beltmolen 13 5057AJ Berkel-Enschot heffingsadres PAPL_907 PAPL2101 REGF_807 REGF503 21 1161, Eindwoning 1 oneven

 

[VenA]

Ik weet niet waar je gezocht hebt. Maar probeer deze eens.

Sub VenA()
With Sheets(1).Cells(1).CurrentRegion.Resize(, 16)
    .AutoFilter 9, "woc"
    .Offset(1).Copy Sheets(2).Cells(1)
    .Offset(1).Rows.EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[HSV]

Maak wel een kopregel aan in Blad1, anders wordt de eerste regel als die "woc" bevat niet meegenomen.

.Offset(1).EntireRow.Delete

 

[xbox360]

Opgelost

Vena,

THNX is opgelost