Hej Grabbar!

Jag skulle vilja göra ett macro som flyttar sig från t.ex cell A1 till A2 till A3 osv...

typ:

Sub Makro2()
Dim test

'Gör tills man är End Of Cells

test = ActiveCell.Value
ActiveCell.Value = ""
ActiveCell.Value = test

'Flytta till nästa cell
'loopa

End Sub

Alltså, det enda jag vill göra är att stega igenom alla cellerna i t.ex kolumnen A och ändra värdet utan att använda piltangenterna.
Är ni med på vad jag menar?

//Björn (som börjar bli lite excel-kung!..:o))

Hmpf... vad då grabbar?

Nåja.. svaret är

set cell = cell.offset([rowoffset], [colOffset])

dvs för att sätta cellen till A2 om du stod i A1

set cell = cell.offset(1)


/Emma

Hej Emma!

Superursäkt, ibland har man huvet under armen...

Detta funkar skitbra!

Någon som har en idé om hur man tar reda på hur många poster det finns totalt i excel-arket då?

Typ .end eller .count eller ngt liknande?

//Björn

Björn,

Kul att du börjar förstå liter mer om
- XL
- Att även mycket kunniga och kompetenta tjejer frekventerar PelleSoft :-)
(Kolla Emmas profil så förstår du vad jag menar :-) )

Börja du med ett besök på XL-siten nr 1:

http://www.xldennis.com

och titta i synnerhet under programmeringssektionen.

Antal poster totalt per kolumn eller per post eller menar du totalt för ett arbetsblad?

WLAN från parkbänken där solen lyser!

Dennis aka XL-Dennis

Tackar, tackar Dennis...

Lite beröm stärker alltid egot! Hoppas du har det skönt på din parkbänk
och att solen fortsätter lysa!

/Emma - som ska ut i solskenet (det som sticker fram mellan molnen i
alla fall)