Related:
- How to generate a table in excel
- How to delete part of a table in word - Guide
- Back alley table - Download - Adult games
- Excel mod apk for pc - Download - Spreadsheets
- How to open excel file in notepad - Guide
- How to convert number to words in excel - Guide
2 responses
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Contributor
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