Hej.

Jag hittade koden här nedan i ett annat forum. Värdet på sista raden visas i en MsgBox. Så långt är det bra. Men jag vill använda värdet i en sträng där jag skall göra en offset till nästa rad och där klistra in ett utklipp, som jag gjort tidigare, med nya rader och format. Jag förstår inte hur jag omhändertar värdet (sista använda rad). Någon som kan hjälpa till.

Sub Hitta_Sista_Anvanda_Raden_Arbetsbladet()
Dim lnSistaRaden As Long
'Hitta sista raden som hållet ett text- eller talvärde.
'Här sker sökning radvis och baklänges.
lnSistaRaden = Cells.Find(What:="*", After:=Range("A1"), _
                     SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious).Row
MsgBox lnSistaRaden
End Sub

Tack Anna

Problem ändå.

När jag kör macrot får jag felmeddelande Kompileringsfel: Sub eller Function har inte definierats.

Jag klipper in hela koden. Det skulle vara bussigt om du kan ta dig tiden och tipsa om vad jag har missat.

==============================================================================

Sub Lägg_till_tio_tg()
'
'
Dim InSistaRaden As Long

 Range("B500:J509").Select
    Selection.Copy
      
    'Hitta sista raden som hållet ett text- eller talvärde.
    'Här sker sökning radvis och baklänges.
    InSistaRaden = Cells.Find(What:="*", After:=Range("A1"), _
                         SearchOrder:=xlByRows, _
                         SearchDirection:=xlPrevious).Row
    Cells(InSistaRaden + 1, 2).Select
    Paste

 End Sub

===================================================================== 

Tack på förhand

Tack Anna

Det fungerar alldeles utmärkt.

Svenne