MariaJohnson88
New Member
- Joined
- Feb 20, 2023
- Messages
- 8
- Office Version
- 2010
- Platform
- Windows
Hi
I am looking for a macro that will assist me in copying active cell in column A, as well as corresponding 3 columns (B:D) to a different sheet
I also have a message box that prompts who is pulling the stock
What I have so far:
Dim i As String
ActiveCell.copy
Sheets("Stock tracking").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Do
i = Application.InputBox("Enter Name", "Name Box", , , , , , 2)
Sheets("Stock tracking").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = i
If i = vbNullString Then
MsgBox "Invalid Entry ", vbExclamation
End If
Loop While i = vbNullString
ActiveCell.Clear
End Sub
I am looking for a macro that will assist me in copying active cell in column A, as well as corresponding 3 columns (B:D) to a different sheet
I also have a message box that prompts who is pulling the stock
What I have so far:
Dim i As String
ActiveCell.copy
Sheets("Stock tracking").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Do
i = Application.InputBox("Enter Name", "Name Box", , , , , , 2)
Sheets("Stock tracking").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = i
If i = vbNullString Then
MsgBox "Invalid Entry ", vbExclamation
End If
Loop While i = vbNullString
ActiveCell.Clear
End Sub