Overføre udfyldte linie fra et ark til et andet

Hej
Du skal benytte Worksheet_Change
Et eks på en sub:
skal ligge i dit ark med vare nr mm
Når du indsætter et noget i kolonne 4 flyttes værdierne til "Ark1"

Der overskrive altid , OK? eller skal den flyttes nedad

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Copy
    End If
Sheets("Ark1").Range("a1").PasteSpecial xlPasteValues
Sheets("Ark1").select

End Sub


mvh oleelo

Tak for dit bud. Desværre får jeg en fejl

Metoden PasteSpecial for klassen Range mislykkedes.

Hej
Har det et ark med navnet Ark1 ? eller udskift navner

ellse udskift

Sheets("Ark1").Range("a1").PasteSpecial xlPasteValues

Med

Sheets("Ark1").Cells(1, 1).Insert shift:=xlShiftDown
så får du en ny linje i ark1 hver gang

mvh oleelo

Hmm. Det er nok mig der er underlig, men det virker ikke. Må jeg sende en fil til dig? Evt. msn.

Hej
Ja send bare en demo file min mail er
ole_a@mail1.stofanet.dk
oleelo

SÅ har jeg sendt det og på forhånd tak

Hej
Her et svar
oleelo