Variabel cellmarkering

[Dezon1]

Hej!

 

Jag vet att jag frågat detta förut, men jag hittar inte tråden och jag hittar ingen annan tråd som svarar på frågan heller.

 

jag vill med VBA-kod markera ett område i ett kalkylblad.

 

För sakens skull säger vi att första cellen är B4 och sista cellen är F??. Dvs. jag vill att makrot kollar hur många rader som innehåller text.

Så om sista raden med innehåll är rad 27 så vill jag att markeringen skall bli B4:F27.

 

Hur löser jag det?

 

Kolumn F innehåller formler som skapar en "" när det inte finns något att visa.

 

Markeringen skall sedan kopieras till ett annat blad, men det har jag koll på.

[Axi]

Function LastRow() As Long
   Dim ix As Long
   ix = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
   LastRow = ix
   Range("b4:f" & ix).Select
End Function

 

Edit.. Hmm. Jag läste inte hela ditt inlägg innan jag skrev. Scriptet justerat.

Eller som sub:

 

Sub find()
   Dim ix As Long
   Dim lastrow As Boolean
   ix = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
   lastrow = ix
   Range("b4:f" & ix).Select
End Sub

[Pejo]

För sakens skull säger vi att första cellen är B4 och sista cellen är F??. Dvs. jag vill att makrot kollar hur många rader som innehåller text.

Så om sista raden med innehåll är rad 27 så vill jag att markeringen skall bli B4:F27.

Hej,

 

Följande borde funka:

Sub MakeSelection()	
Dim rnTemp As Range	
Set rnTemp = Range(Range("B4"), Range("B4").End(xlDown).Offset(0, 4))	
rnTemp.Select
End Sub

Men om du bara ska kopiera finns ingen anledning att först markera området. Det räcker med:

rnTemp.Copy (Worksheets("Sheet2").Range("B2"))

Hälsningar

/Johan

[Dezon1]

Fungerar detta i Excell 2000 för oss som jobbar i ett konservativt företag?

[Pejo]

Fungerar detta i Excell 2000 för oss som jobbar i ett konservativt företag?

Excel 2000, det har jag inte sett på ett tag ... Men ovanstående VBA-kod borde fungera där också (inga garantier dock). Det är bara att prova.

 

Hälsningar

/Johan

[Dezon1]

Fungerade utmärkt bra.

 

Tack för hjälpen!