copy on the next available row
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 |
copy on the next available row
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 -- HTH... Jim Thomlinson " wrote: 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 |
copy on the next available row
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 -- Regards, Tom Ogilvy " wrote: 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 |
copy on the next available row
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 -- Regards, Tom Ogilvy " wrote: 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 |
All times are GMT +1. The time now is 11:06 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com