Dummy Excel
Well-known Member
- Joined
- Sep 21, 2005
- Messages
- 1,004
- Office Version
- 2019
- 2010
- 2007
- Platform
- Windows
Hi All,
I need to find a unique cell in my summary worksheet and then copy to a new worksheet
I have had a go to try and do this although the header row (row 1) copies fine, although the rest of the data pastes in the last row 1 of the spreadsheet. can anyone help?
The unique data is (G512, G515, G521, G532, S313, VL362). as this is a daily report, the unique data may not always be in the summary worksheet.
your help is greatly appreciated
thanks
Sam
I need to find a unique cell in my summary worksheet and then copy to a new worksheet
I have had a go to try and do this although the header row (row 1) copies fine, although the rest of the data pastes in the last row 1 of the spreadsheet. can anyone help?
The unique data is (G512, G515, G521, G532, S313, VL362). as this is a daily report, the unique data may not always be in the summary worksheet.
Code:
Sub VIC_Report()
Sheets("Sheet3").Name = "VIC Report"
Rows("1:1").Copy
Sheets("VIC Report").Range("A1").PasteSpecial
'FIltering VIC Locos
Cells.Find(What:="G532", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlToRight).Offset(0, 9)).Copy
Sheets("VIC Report").Select
Cells(Rows.Count, "A").End(xlDown).PasteSpecial
End Sub
your help is greatly appreciated
thanks
Sam