Copying a row to another sheet with a trigger

Closed
Zav - Jan 20, 2015 at 01:11 AM
TrowaD
Posts
2880
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 2, 2022
- Jan 22, 2015 at 10:45 AM
Hi All,

I was preparing an excel workbook, based on the sales pipeline.
To simpify,
The first sheet has company name and contact column. Titled "Leads"
The second sheet has Company name, pic and contact column. Titled "Visited"
The person will key in the needed extra info as it moves to another sheet.

Is there a way with a click (button, check box, etc) where the selected row from the first sheet will be copied to the second sheet to the next available row?

Thanks ^_^
Zav

1 reply

TrowaD
Posts
2880
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
May 2, 2022
510
Jan 22, 2015 at 10:45 AM
Hi Zav,

First create a button:
Developer ribbon > insert > command button (ActiveX)

Right-click the button and select View code.
Paste the following in between the two already existing code lines:
Dim Check As String

Check = MsgBox("The selected row will be copied to the 'Visited' sheet.", vbOKCancel, "Copying row")

If Check = vbCancel Then Exit Sub

Selection.Copy Sheets("Visited").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)


Best regards,
Trowa
1