Search for a value in column and copy to different sheet
Solved/Closed
raghuprabhu
raghuprabhu
- Posts
- 4
- Registration date
- Thursday April 27, 2017
- Status
- Member
- Last seen
- May 23, 2017
raghuprabhu
- Posts
- 4
- Registration date
- Thursday April 27, 2017
- Status
- Member
- Last seen
- May 23, 2017
Related:
- Search for a value in column and copy to different sheet
- Excel - Search for duplicate in adjacent columns - How-To - Excel
- Macro to Search/Replace Text from another Column ✓ - Forum - Excel
- How to copy and paste a column in excel to another sheet - Guide
- Comparing columns in two different excel sheets and if they match copying third column ✓ - Forum - Excel
- How to copy an entire column in excel to another sheet ✓ - Forum - Excel
1 reply
TrowaD
May 23, 2017 at 12:05 PM
- Posts
- 2886
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- June 27, 2022
May 23, 2017 at 12:05 PM
Hi Raghuprabhu,
You say:
'copy the whole record into another worksheet'
I interpreted whole record as whole row.
Put the name of 'another worksheet' on code line 5 (=Sheet2 now)
You also didn't specify the column where the EID's are located. Adjust the column letter in code line 6.
Apply changes and give the following code a try:
Best regards,
Trowa
You say:
'copy the whole record into another worksheet'
I interpreted whole record as whole row.
Put the name of 'another worksheet' on code line 5 (=Sheet2 now)
You also didn't specify the column where the EID's are located. Adjust the column letter in code line 6.
Apply changes and give the following code a try:
Sub RunMe()
Dim fValue As Range
Dim sColumn, ShName As String
ShName = "Sheet2"
sColumn = "A"
svalue = InputBox("What is the EID to look for?:")
Set fValue = Columns(sColumn).Find(svalue)
If fValue Is Nothing Then
MsgBox "No EID found"
Else
fValue.EntireRow.Copy _
Sheets(ShName).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
End Sub
Best regards,
Trowa
May 23, 2017 at 07:06 PM
May 23, 2017 at 07:07 PM