423,350 Members | 2,519 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 423,350 IT Pros & Developers. It's quick & easy.

Copy past on multiple criteria like dates and center

P: 1
I have used following code and run successfully.

Expand|Select|Wrap|Line Numbers
  1. Sub mcopy()
  2.  
  3. a = Worksheets("CRM").Cells(Rows.Count, 1).End(xlUp).Row
  4.  
  5. Dim myModule As String
  6. myModule = Application.InputBox("Enter a Module")
  7.  
  8. For i = 2 To a
  9.     If Worksheets("CRM").Cells(i, 4).Value = myModule Then
  10.  
  11.         Worksheets("CRM").Rows(i).Copy
  12.         Worksheets("MODCRM").Activate
  13.         b = Worksheets("MODCRM").Cells(Rows.Count, 1).End(xlUp).Row
  14.  
  15.         Worksheets("MODCRM").Cells(b + 1, 1).Select
  16.         ActiveSheet.Paste
  17.         Worksheets("CRM").Activate
  18.     End If
  19. Next
  20.  
  21. Application.CutCopyMode = False
  22. 'ThisWorkbook.Worksheets("CRM").Cells(1, 1).Select
  23.  
  24. End Sub
I have use input box in the code, but i want to use cell address where i have dropdown list at "CRM" sheet at Cell Addree(D1).

Pl guide me in the matter.
2 Weeks Ago #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.