Markera Celler i en tabell med kod

[PatrikSPutte]

Hej ett nytt litet problem = jag har en tabell med olika värden (B4:K??)

Nu vill jag med kod markera hela tabellen samt den sista tomma raden i tabellen.

 

Jag har kommet så långt att jag med kod: väljer första tomma raden i kolumn B

 

Det har jag gjort på följande sätt:

 

Range("B13").Select

Do Until ActiveCell = ""

ActiveCell.Offset(1, 0).Select

Loop

End Sub

(B12 till B4 är tomma men jag vill ha med dom)

Hur kan jag nu skriva kod så att jag får området markerat från den Aktiva cellen till Cellen K4???

 

 

[Monshi]

Ful loop. Mycket ful...

 

Om tabellen sitter ihop räcker det med

 

Range("B13").CurrenRegion.Select

för att markera hela tabellen...

Fast Select-satser har inte i koden att göra bortsett från när du vill visa något för användare.

Vill du använda tabellen i koden?

 

set myRn = Range("B13").CurrentRegion

 

Samt - flyttar tråden till VBA

 

/T

Moderator Kalkylprogram