Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Visual Basic ( VB ) (http://www.go4expert.com/forums/visual-basic/)
-   -   Excel rows removal, if not bewteen two given dates of a column (http://www.go4expert.com/forums/excel-rows-removal-bewteen-dates-column-t26957/)

pt88john 18Oct2011 19:04

Excel rows removal, if not bewteen two given dates of a column
 
Hi,
i have a excel file named user_data.xls, in this I have a column which holds Date and time in 10/8/08 5:20:29 PM GMT format. Now I want to keep the data between two specific dates and remove remaining all rows from excel, how can i do it through a script.
Below is the script I came up to, could someone please help on how can i proceed from here onwards...
************************************************** *************************
Dim dStartDate As Date
Dim dEndDate As Date
'Collect Start & End Dates
dStartDate = 10/1/11 5:20:29 PM GMT
dEndDate = 10/30/11 5:20:29 PM GMT

'Find Dates Between Start Date & End Date
Sheet1.Activate
'Assume column C contains the dates
Application.Range("C1").Select
'Look at every row in column C until it finds an empty cell.
Do Until ActiveCell.Value = vbNullString
'Verify that the date is between the Start Date & End Date
If ActiveCell.Value > dStartDate And ActiveCell.Value < dEndDate Then
************************************************** *************************


All times are GMT +5.5. The time now is 21:47.