nog een vraag over het kopieren

[ronnie123]

beste forum leden
hoe laat ik deze code naar een tweede blad kopieren en waar moet ik veranderingen in brengen om de hele rij te kopieren?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Value = "Ja" Then
        Union(Target.Offset(, 1).Resize(, 3), Target.Offset(, 8).Resize(, 2)).Copy _
            ['poule samenstelling'!A65536].End(xlUp).Offset(1)
    End If
End Sub

bvd ronnie

 

[Hoornvan]

ronnie123,

Ik denk dat dit is wat je bedoel.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 And Target.Value = "Ja" Then
    Target.EntireRow.Copy ['poule samenstelling'!A65536].End(xlUp).Offset(1)
  End If
End Sub

Je moet wel in het blad waar naar je de kopie wil hebben zorgen dat er in de kolom A wat staat anders overschrijft hij de oude regel.
Hij zoekt immers naar een lege regel in Kolom A.

 

[ronnie123]

hallo wim
bedankt voor je reactie
het is niet helemaal wat ik bedoel
hetgeen wat ik nu heb kopieert kolom D,E,F,K en L naar tabblad poule samenstelling en nu wil ik in de zelfde opdracht dat hij kolom D t/m M naar tabblad betalingen kopieerd
groetjes ronnie

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Value = "Ja" Then
        Union(Target.Offset(, 1).Resize(, 3), Target.Offset(, 8).Resize(, 2)).Copy ['poule samenstelling'!A65536].End(xlUp).Offset(1)
        Range("D" & Target.Row & ":M" & Target.Row).Copy ['betalingen'!A65536].End(xlUp).Offset(1)
        
    End If
End Sub

Met vriendelijke groet,


Roncancio

 

[ronnie123]

hallo roncancio
dit is wat ik bedoelde, werkt prima!
bedankt hiervoor.
groetjes ronnie