PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAMarkera områdeMarkera område
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2009-02-05 10:51
 

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.

Nytt inlägg
 2009-02-05 11:59
 

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

 

 

 

 

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAMarkera områdeMarkera område

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter