Gegevens kopiëren van het ene werkblad naar het ander vanuit actieve regel

[Robert Smidt]

Beste Helpmij'ers,

Mijn probleem is vaak behandeld, echter mijn specifieke scenario heb ik hier helaas niet kunnen vinden.

Het is mijn bedoeling om vanuit Werkblad "Uitgaven" de data vanuit kolom A van de actieve regel te kopiëren naar de eerst volgende lege rij in kolom A van werkblad "Afschrijving"

    If Not IsError(Application.Match(Cells(Target.Row, 6), [Duurzamebedrijfsmiddelen], 0)) And Range("J" & Target.Row) > 450 Then
        MsgBox "Het betreft hier een duurzaam bedrijfsmiddel waarop afgeschreven moet worden! Het programma leidt je naar het afschrijvingsmenu, vul deze verder in!"
        Application.Goto Sheets("Afschrijving").[A1].End(xlDown).Offset(1)
        Sheets("Uitgaven").Select
        Cells(rij, 1) = Range("Uitgaven!("A" & Target.Row")
    End If

Ik krijg de foutmelding: Compileerfout Verwacht lijstscheidingsteken of) bij: Cells(rij, 1) = Range("Uitgaven!("A" & Target.Row")

Wat doe ik fout?

Alvast heel hartelijk bedankt.

Robert

 

[Leotaxi]

Range("A" & ActiveCell.Row).Copy Sheets("Afschrijving").Range("A" & Rows.Count).End(xlUp).Offset(1)

mvg
Leo

 

[Robert Smidt]

De code werkt, echter kopieert deze ook de celeigenschappen mee, is het ook mogelijk dat hij alleen de waarde kopieert?

 

[Leotaxi]

alleen de waarden

Range("A" & ActiveCell.Row).Copy
With Sheets("Afschrijving").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False

Proost
Leo

 

[Robert Smidt]

De code werkt perfect, mijn dank hiervoor.

Ik heb nog één klein verzoekje. Omdat ik meerdere gegevens wil kopiëren worden het veel regels (zie onder) wellicht dat ik die kan inkorten. Mocht dat lastig zijn, dan vind ik het prima hoor, ik ben hier nl. ook al heel blij mee.

Range("A" & ActiveCell.Row).Copy 'Datum
With Sheets("Afschrijving").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
        
Range("C" & ActiveCell.Row).Copy 'Omschrijving
With Sheets("Afschrijving").Range("B" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
        
Range("F" & ActiveCell.Row).Copy 'Grootboekrek.
With Sheets("Afschrijving").Range("C" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
        
Range("J" & ActiveCell.Row).Copy 'Grootboekrek.
With Sheets("Afschrijving").Range("D" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With

Nogmaal heel erg bedankt.

Robert

 

[Leotaxi]

bv zo

Sheets("Afschrijving").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Array _
    (Range("A" & ActiveCell.Row), Range("B" & ActiveCell.Row), Range("F" & ActiveCell.Row), Range("J" & ActiveCell.Row))

mvg
Leo

 

[Robert Smidt]

Heel hartelijk bedankt. De code werkt perfect.