Jeg har behov for i min VBA, at kunne flytte f.eks. 4 celler til højer, men jeg ved ikke helt, hvad jeg skal skrive for at det lykkedes. Se eksempel:

 

    Range("E5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("A5").Select
    Selection.End(xlDown).Select
    Range("E1032").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste

 

Det med rød, skal ikke være en unik celle, men efter at have valgt "Selection.End(xlDown).Select" i linien før, så vil rækken forskyde sig løbende, hvorfor man "bare" skal kunne gå ud i kolonne E fra sit udgangspunkt i kolonne A.

 

Jeg mener det er noget med [+4], men kan ikke huske hvordan!

 

HJÆLP!

 

Hilsen

 

Peter 
 

 

Det var ikke lige det jeg mente... Jeg skal gå til én ikke unik position.

 

Hvis jeg bruger "gå til slut" skal den efterfølgende "gå 4 kolonner ud".

 

E1032 er kun unik første gang. Næste gang hedder den måske E1178 eller E1298. Derfor kun kolonne-flyt.

 

Men ellers tak for buddet.

 

Peter

 

Nu har jeg testet det! Og det virker fint, jeg havde bare misforstået dit svar...!

 

Tusind tak for hjælpen.

 

Peter