Copying a row to another sheet with a trigger

Closed
Zav - Jan 20, 2015 at 01:11 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - 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 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 544
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