gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,341
- Office Version
- 365
- Platform
- Windows
This filters and copies then errors where it should be pasting.
Sheets("CMOPUpload").Range("B" & lstrw).Paste
Sheets("CMOPUpload").Range("B" & lstrw).Paste
Code:
Private Sub CommandButton1_Click()
'Dim CMOP As Worksheet
Dim lstrw As Long
'Set CMOP = Worksheets("Sheet9")
Set lstwr = Sheets("CMOPUpload").Range("B" & Rows.Count).End(xlUp).Offset(1)
ActiveSheet.Range("A4").AutoFilter Field:=6, Criteria1:="Yes", Operator:=xlFilterValues
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown).Offset(0, 4)).Copy
Sheets("CMOPUpload").Range("B" & lstrw).Paste
Worksheets("ItemIDList").AutoFilterMode = False
Application.CutCopyMode = False
End Sub