Navigation

   Hej Jeg er ny her og ikke 100m mester i makroer og sidder derfor og har et problem med flytning af data fra et ark til et andet. 
På ark1 har jeg 6 celler med data som skal kopieres ud på andre ark. I den første af de 6 celler angiver jeg hvilket ark (ark-navn) som de øvrige data skal flyttes hen til.

Jeg har prøvet følgende men den vælger ikke det rigtige ark - er der en der kan hjælpe her?

' Kopi data til kontokort
    Dim iRow As Long, a As Long
    Dim ws As Worksheet
    a = Cells(5, 3).Value
    Set ws = Worksheets(a)

iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 2).Value = Worksheets("Bilagsoversigt").Range("c6")
ws.Cells(iRow, 3).Value = Worksheets("Bilagsoversigt").Range("c7")
ws.Cells(iRow, 4).Value = Worksheets("Bilagsoversigt").Range("c8")
ws.Cells(iRow, 5).Value = Worksheets("Bilagsoversigt").Range("c9")
ws.Cells(iRow, 6).Value = Worksheets("Bilagsoversigt").Range("c10")

Navigation

Variabelt Ark-navn ved copy af data