Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows Prior to Last Month
Hi
This macro should delete rows from an imported txt for all entries that are prior to last month. It is not doing this. How does the macro know what the current date is in order to keep all entries for the month prior, and to delete all other entries. I know zero about VBA and have copied the macro below. Delete rows prior to last month Sub DeleteRowsPriorLastMonth() Dim LResult As String Range("U1").Select ' may have to revert to T2 Do While Trim(ActiveCell.Value) < "" Application.StatusBar = "Deleting SIFT rows where TXN_DATE older than last month - count: " & g_lngDeletedRowCount 'job 1 - Replace dots with dashes in the TXN_DATE column LResult = Replace(ActiveCell.Offset(1, 0).Value, ".", "/") ActiveCell.Offset(1, 0).Value = Trim(LResult) ' Delete row If Month(ActiveCell.Offset(1, 0).Value) < Month(Date) - 1 Then ActiveCell.Offset(1, 0).EntireRow.Delete g_lngDeletedRowCount = g_lngDeletedRowCount + 1 'count deleted row Else: ActiveCell.Offset(1, 0).Select 'count row not deleted g_lngRowCount = g_lngRowCount + 1 End If Loop End Sub Regards Alison |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
15th of prior month | Excel Worksheet Functions | |||
dates, 1 month prior | Excel Worksheet Functions | |||
formula for month(s) prior to actual | Excel Worksheet Functions | |||
formula for month that is prior to actual | Excel Worksheet Functions | |||
Prior Month | Excel Discussion (Misc queries) |