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 
 

 

hvis du blot ønsker at "fange" cellen "E1032" ved at gå ned af kolonne A til række 1032, da kan du bruge denne lille kode.

 

Cells(Range("A1").End(xlDown).Row, 5).Activate

 

Du vil også kunne anvende offset funktionen, hvis det var den du tænkte på.

 

mvh

Anders

 

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

 

Så virker min kode også helt fint.

 

Prøv den og du vil se, at markøren vil stille sig i den sidste række i kolonne E.

 

mvh

Anders

 

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

 

Tusind tak for hjælpen.

 

Peter

 

mvh

Anders