Related:
- How to generate a table in excel
- Number to words in excel - Guide
- How to delete part of a table in word - Guide
- How to take screenshot in excel - Guide
- How to change date format in excel - Guide
- Gif in excel - Guide
2 responses
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Sep 22, 2011 at 09:55 AM
Sep 22, 2011 at 09:55 AM
Hi Paul,
Try this code:
Is this what you were looking for?
Best regards,
Trowa
Try this code:
Sub test() Dim MR Dim x As Integer Set MR = Range("A1:A20") x = 10 For Each cell In MR If cell.Value >= 40756 And cell.Offset(0, 1).Value = "Soap" Then cell.Copy Sheets("Sheet3").Range("D" & x) Range(cell.Offset(0, 2), cell.Offset(0, 4)).Copy Sheets("Sheet3").Range("E" & x) x = x + 1 End If Next End Sub
Is this what you were looking for?
Best regards,
Trowa