Emma has attended:
Excel VBA Intro Intermediate course
Loop - Copy & Paste
I am trying to do a Macro that looks at column G, if the cell value is "Yes" or "No" it copies the whole line and pastes in the relevant sheet "Approved/Rejected".
I have managed to get it to do this, but my formula always pastes into row 2. This is a report that I will want to start at row 2, but also, run and start the next available line if line 2 is full.
I remember doing this on the course, but my notes don't cover how to do this
Sub FindYesNo()
Sheets("Buyer accepted").Select
Range("G2").Select
Do Until ActiveCell = ""
If ActiveCell = "Yes" Then
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Buyer Approved").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Buyer accepted").Select
ActiveCell.Offset(0, 6).Select
ElseIf ActiveCell = "No" Then
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Buyer Rejected").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Buyer accepted").Select
ActiveCell.Offset(0, 6).Select
Else
ActiveCell.Font.Color = RGB(128, 0, 128)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Many Thanks
Emma
RE: Loop - Copy & Paste
Hi Emma
Thanks for getting in touch. The key lines in your code that does this is:
Sheets("Buyer Approved").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
and
Sheets("Buyer Rejected").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
These will both always go to A1 and then down one cell into A2.
If you replace those lines with
Sheets("Buyer Rejected").Select
Range("a1").End(xlDown).Offset(1, 0).Select
That will jump to the next available row. Do watch out that if row 2 is empty it will jump all the way to the end of the sheet.
Kind regards
Gary Fenn
Microsoft Office Specialist Trainer
Tel: 0207 987 3777
Best STL - https://www.stl-training.co.uk
98%+ recommend us
London's leader with UK wide delivery in Microsoft Office training and management training to global brands, FTSE 100, SME's and the public sector
