copy on the next available row

[mboileau]

Here is my macro now:


Private Sub Worksheet_Change(ByVal Target As Range)


If Intersect(Target, Range("A33:O49")) Is Nothing Then Exit Sub
If Range("O" & Target.Row) = "" Then Exit Sub
Target.EntireRow.Copy
Application.EnableEvents = False


taddress = (1, Target.Column).End(xlDown).Address


With Sheets("Rapport des transactions")
.Range(taddress).PasteSpecial xlPasteAll
End With


Application.EnableEvents = True


End Sub


I'm trying to copy my info in the first empty row of sheet "Rapport des

Transactions" in the same column as the target. What should i change
because it doesn't work?


Thank you
MP

 

[Jim Thomlinson]

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A33:O49")) Is Nothing Then Exit Sub
If Range("O" & Target.Row) = "" Then Exit Sub

Application.EnableEvents = False
Target.EntireRow.Copy _
Destination:=Sheets("Rapport des transactions").Cells(rows.count, _
"A").end(xlUp).offset(1,0)
Application.EnableEvents = True
End Sub

 

[Tom Ogilvy]

With Sheets("Rapport des transactions")
taddress = .Cells((rows.count, Target.Column).End(xlup).Offset(1,0).row
.Range("A" & taddress).PasteSpecial xlPasteAll
End With


or
With Sheets("Rapport des transactions")
.Cells(.Cells(rows.count, Target.Column).End(xlup) _
.Offset(1,0).row,1).PasteSpecial xlPasteAll
End With

 

[mboileau]

thanks it is working

MP

Tom Ogilvy a écrit :

With Sheets("Rapport des transactions")
taddress = .Cells((rows.count, Target.Column).End(xlup).Offset(1,0).row
.Range("A" & taddress).PasteSpecial xlPasteAll
End With


or
With Sheets("Rapport des transactions")
.Cells(.Cells(rows.count, Target.Column).End(xlup) _
.Offset(1,0).row,1).PasteSpecial xlPasteAll
End With