Range select variabel på kolonne

så den viser "T11"!?

ja t11:w"+Cstr(sl)).select

og så vidre ...

R = 11 to 200 step 5
cells(R,11+ CStr(sl)).Select så skulle den hoppe de 5 kolonner

Ikke testede..

sry... Cells(11,R)

Nu det jo et område jeg skal bruge ...

Hvis dit udgangspunkt er et selected range:

Selection.Offset(0, 5).Select

som rykker 5 kolonner til højre fra udgangspunktet.

Range("O11").Resize(1, sl).Select

... og det er det vel det kunne også være cells ... ville egentlig gerne have haft omskrivningen i selve range(..).select 'en ....

Ka' man ikke det ...

UBS excelent ... hvad gør mon denne ... gør området større ...

ja den udvider kolonne selektet afhængig af hvad værdi sl har

excelent ... det går jo ikke ... det samme område ... blot flyttet 5 kolonner ...

prøv forklar hvad du vil

Jeg har data fra forskellinge kunder, der efter tur skal flyttes hen til et prædesignet område, hvorfra der bliver faxet mm. Hver kunde har data i 4 kolonner.

Arket skal starte med at kopierer første kunde hen, gør det der nu skal gøres, tage næste kunde og flytte hen ... osv

gætter på du først finder kunde
du skal så have udvidet markering for denne kunde

hvilken kolonne er kunde i og hvor mange kolonner/rækker
skal der kopieres med ? og hvor skal markering kopieres hen ?

-> sbrander 16:29:05

Hvis din selection blot skal flyttes 5 kolonner - se kommentar 15:59:59.

excelent ... jeg missede en kommentar sl er blot et udtryk for sidste linie i pågældende liste, der kan varier fra gang til gang ...

hvor er vi så nu ???????????????????????????????+

Jeg kan ikke bruge versionen med Selection.offset. Jeg skal jo fortage mig noget mellem kopieringerne, og skal så retur og range selecte flytte det antal gange jeg er kommet til.

PT sletter de 5 kolonner, så alle kunder kommer til at stå på samme sted efter tur. Det er slet ikke med min gode vilje at ødelægge dataerne ...

Men må kravle før jeg kan gå.

hvilke kolonner/rækker drejer det sig om ?

De præcise kolonner er ikke vigtige, men starter med Kolonnerne o-r o de næste bliver så t-w, rækker starter ved 11 og slutter ved sl, der kan varier fra liste til liste ...

Range("o11:r" + CStr(sl)).Select

De smarte ville være om jeg kunne lave  'o' og 'r' om til variable

et eks.

Sub test()

'Range("o11:r" + CStr(sl)).Select

kolonneFra = 4
kolonneTil = 8
sl = 20
Range(Cells(11, kolonneFra), Cells(sl, kolonneTil)).Select

End Sub

Tak Excelent

Den køber jeg ...

Mange tak

Du sender nok lige et svar ...

ok velbekom