Data to another worsheet in excel based on...
Closed
jessen
Posts
1
Registration date
Tuesday July 24, 2012
Status
Member
Last seen
July 24, 2012
-
Jul 24, 2012 at 06:52 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jul 26, 2012 at 10:10 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jul 26, 2012 at 10:10 AM
Related:
- Data to another worsheet in excel based on...
- Transfer data from one excel worksheet to another automatically - Guide
- Number to words in excel - Guide
- How to take screenshot in excel - Guide
- Tmobile data check - Guide
- Dd-mm-yyyy format in excel - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
Jul 26, 2012 at 10:10 AM
Jul 26, 2012 at 10:10 AM
Hi Jessen,
Assuming that the times are in Column A and that the first row is used as header.
Your destination sheet is referred to as Sheet2 in the code.
Adjust the following code to match your situation:
Best regards,
Trowa
Assuming that the times are in Column A and that the first row is used as header.
Your destination sheet is referred to as Sheet2 in the code.
Adjust the following code to match your situation:
Sub MoveData()
Dim lRow, lRow2 As Integer
Dim cValue As Date
lRow = Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Range("A2:A" & lRow)
cValue = cell.Value
If Right(cValue, 1) = 0 Then
lRow2 = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
cell.EntireRow.Copy Sheets("Sheet2").Range("A" & lRow2)
End If
Next
End Sub
Best regards,
Trowa
