VBA: Dataoverførsel mellem workbooks (+ lastrow)

dim lrow as long

For Each c In valg.Cells
lrow = wkbNew.Worksheets(1).range("A1").offset(wkbNew.Worksheets(1).rows.count-1,0).end(xlup) + 1

        wkbCurrent.ActiveSheet.Range("A" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Cells(13, 1).Range("B" & lrow)
        wkbCurrent.ActiveSheet.Range("B" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Cells(13, 2).Range("D" & lrow)
        wkbCurrent.ActiveSheet.Range("D" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Cells(13, 2).Range("F" & lrow)
    Next

Jeg får en Run-time error '13': Type mismatch
når jeg bruger din kode der.

Hvis jeg ændrer A1 til A13 får jeg denne error:
Run-time error '1004': Application-defined or object defined error.

Det kopieret data skal starte starte i A13, B13, osv. men skal ikke overwrite det gamle :)

Det er da også en lidt mystisk konstruktion du har valgt.
Prøv med

dim lrow as long

For Each c In valg.Cells
lrow = wkbNew.Worksheets(1).range("A1").offset(wkbNew.Worksheets(1).rows.count-1,0).end(xlup).row + 1

        wkbCurrent.ActiveSheet.Range("A" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Range("B" & lrow)
        wkbCurrent.ActiveSheet.Range("B" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Range("D" & lrow)
        wkbCurrent.ActiveSheet.Range("D" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Range("F" & lrow)
    Next

Sådan er det vel når man er ny til det, prøver jo at lære.
Hvordan foreslår du ellers at man gør det? :)

Synes stadig ikke det virker, men det har måske noget med min konstruktion at gøre? Altså den giver ingen fejl nu, men hvis jeg vælger flere, så skriver den kun den sidst valgte og overwriter første i B.

dim lrow as long

For Each c In valg.Cells
lrow = wkbNew.Worksheets(1).range("B1").offset(wkbNew.Worksheets(1).rows.count-1,0).end(xlup).row + 1

        wkbCurrent.ActiveSheet.Range("A" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Range("B" & lrow)
        wkbCurrent.ActiveSheet.Range("B" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Range("D" & lrow)
        wkbCurrent.ActiveSheet.Range("D" & c.Row).Copy Destination:=wkbNew.Worksheets(1).Range("F" & lrow)
    Next

Ikke så mærkeligt - regnede med at du havde data i kolonne A i wkbNew, men det ser ikke ud til at være tilfældet.

Perfekt, tak! Nu ser det ud til at det virker :)

Min Selection.Rows.Count virker dog ikke, den giver bare 1 uanset, vil gerne skrive i A10 en kommentar med hvor mange jeg har "importeret".

Er det muligt?

Range("A10").Value = "COMMENTS: " & Selection.Rows.Count & " Suppliers Added"

Sub Count_Selection()
    Dim cell As Object
    Dim count As Integer
    count = 0
    For Each cell In Selection
        count = count + 1
    Next cell
    MsgBox count & " item(s) selected"
End Sub