nog een vraag over reeds bestaande code

[resmatrix]

Ik hoop dat ik nog 1 keer van jullie expertise gebruik mag maken

in blad 1 heb ik in kolom a tm e waarden staan.
De waarden in kolom e kunnen 3 variaties hebben leverancier,klant of overig

Nu wil ik dat de rijen van de klant en de leverancier gekopieerd woren naar blad 3 zonder dat daar lege regels tussen zitten.

ik heb in een ander onderwerp van Wigi deze code gezien:
For Each r In ActiveSheet.Range("A1:E3")
If r.Value <> "Overig" Then
legeregel = Sheets("Blad3").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets("Blad3").Range("A" & legeregel) = r.Text
End If
Next

Deze werkt op zich alleen worden de gegevens uit de kolommen onder elklaar geplaatst ipv naast elkaar.

welke correctie dien ik aan te brengen om ze naast elkaar te plaatsen?

als jullie me zouden willen helpen graag

alvast bedankt

resmatrix

 

[Wigi]

Zo?

Sub w()
Dim r As Range
For Each r In Range("E1:E3")
    If r.Value <> "Overig" Then
        legeregel = Sheets("Blad3").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        r.EntireRow.Copy Sheets("Blad3").Range("A" & legeregel)
    End If
Next
End Sub

Wigi

 

[Wigi]

Hier vind je een veel betere methode hiervoor: een autofilter.

Wigi

 

[resmatrix]

Perfect Wigi dat is precies wat ik bedoelde

zit nou alleen even te kijken welk verschil je nou hebt aangebracht. Ik wil er van leren

Thanx:thumb:

 

[Wigi]

zit nou alleen even te kijken welk verschil je nou hebt aangebracht. Ik wil er van leren

... In Range("E1:E3")

en

r.EntireRow.Copy Sheets("Blad3").Range("A" & legeregel)
(dit kopieert de hele rij).

Wigi

 

[Wigi]

By the way, stap ook eens met F8 te drukken door de code. Dan zie je direct wat er gebeurt.

 

[resmatrix]

By the way, stap ook eens met F8 te drukken door de code. Dan zie je direct wat er gebeurt.

doe ik, geweldig !!!

dank voor je hulp echt Top:thumb: