Variabel aantal cellen selecteren in één kolom en verplaatsen.

[DZP]

Beste mensen,

Ik zou graag na tig tijd te hebben gezocht in de berichten maar het niet kunnen vinden bij het volgende hulp willen hebben indien mogelijk.

Een variabel aantal cellen willen selecteren die in één kolom staan en die verplaatsen naar een ander blad en in een andere kolom.

M.vr.gr. Henk.

 

[wieter]

Bedoel je dit?

Bekijk bijlage 175248

 

[DZP]

Sub misschien()

    Sheets("Blad1").Select
    Range("L5:L" & Range("L655536").End(xlUp).Row + 1).Copy
    Sheets("Blad3").Range("C65536").End(xlUp).Offset(2, 0).PasteSpecial xlPasteAll
    Range("N5:N" & Range("N655536").End(xlUp).Row + 1).Copy
    Sheets("Blad3").Range("D65536").End(xlUp).Offset(2, 0).PasteSpecial xlPasteAll
    
    
    'Etc. Enz.
   
   
   End Sub

Ik heb het zo en voor mij werkt het!
P.s.: Bedankt voor je reactie:thumb: