Du kan referera till ett blad genom indexring, namn på blad, eller kodnamn på blad.

Indexering är vilket nummer räknat från vänster ditt bladnamn hamnar,
Namn på bladet är vad bladet heter...
Kodnamn är ett sätt att döpa blad i editorn

Oavsett metod så behöver bladet vara aktivt för att du ska kunna välja cellen. Med indexering av blad:

Dim rng As Range: Set rng = Sheets(2).Range(ActiveCell.Address)
rng.Parent.Activate
rng.Offset(1, 1).Select

Sedan så är activate och select något endast inspelad kod pysslar med. De två raderna är antagligen onödiga, istället kan rangen anropas direkt i nästa kodfjutt.

Istället för Selection. kan man skriva rng.
Istället för with selection går det att skriva with rng.offset(1,1) osv osv.

Mvh
Christian

Kört fatt lite, så jag försöker fråga om fler tillägg i mitt makro. Koden nedan gäller för någom cell i blad1 mellan B1:B15 som ska förflyttas till blad2. Det fungerar ju, som sagt.

 Hej hej

För att undersöka om cellen befinner sig i ett områdce hade jag användt mig av intersect. 

Dim rngB as range: set rngB = Sheets(1).range("B1:B15")

If Not Intersect(rngB, activecell) is nothing then

Set rng = Sheets(2).Range(ActiveCell.Address)
rng.Parent.Activate
rng.Offset(0, 4).Select

Därefter sätter du upp liknande vilkor för dina tre olika områden enligt liknande metod med elseif som du själv redan gjort. 

 

/C