Expand|Select|Wrap|Line Numbers
- Sub mcopy()
- a = Worksheets("CRM").Cells(Rows.Count, 1).End(xlUp).Row
- Dim myModule As String
- myModule = Application.InputBox("Enter a Module")
- For i = 2 To a
- If Worksheets("CRM").Cells(i, 4).Value = myModule Then
- Worksheets("CRM").Rows(i).Copy
- Worksheets("MODCRM").Activate
- b = Worksheets("MODCRM").Cells(Rows.Count, 1).End(xlUp).Row
- Worksheets("MODCRM").Cells(b + 1, 1).Select
- ActiveSheet.Paste
- Worksheets("CRM").Activate
- End If
- Next
- Application.CutCopyMode = False
- 'ThisWorkbook.Worksheets("CRM").Cells(1, 1).Select
- End Sub
Pl guide me in the matter.