Markera område - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2009-02-05 10:51

Gäst

Medlem sedan: 2009-01-13

339 inlägg

Markera område

Hej

Kolumn A till K rad 1 till 10 är fyllda med data.

Vill markera Tex E:1 till G:10 för att kunna skicka detta vidare. Problemet är att i nästa körning så kanske det är fler rader, eller mindre.

Frågan blir då, hur skriver jag koden för att Excel ska kunna markera detta område som ändras ibland.

Har prövat att spela in en massa varianter, men slutresultatet i koden blir fasta celler som inte tar hänsyn till om det är 20 rader mer nästa gång koden körs.

Tacksam för hjälp.

2009-02-05 11:59

anonymous

Medlem sedan: 2020-06-29

0 inlägg

Re: Markera område

Hej

denna sub fungerar

'markerar område som börjar i rng1 och består av intCol kolumner
Public Sub selectArea(ByRef rng As Range, ByVal intcol As Integer)
ActiveSheet.Range(rng, Cells(rng.End(xlDown).Row, rng.Column + intcol - 1)).Select
End Sub

För att anropa skriv tex följande

Sub selectEToG()
Call selectArea(ActiveSheet.Range("e1"), 3)
End Sub

Det går att göra mer generella lösningar men denna borde räcka för ditt behov

Sida 1 av 1