Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows based on criteria in Column A (not working)
I am trying to put additional functionality in this code to delete row with "3/25/2005" or "12/31/2004" in column A. This doesn't work, yet it doesn't give any errors. When i check my sheet, it deletes duplicate rows but not the rows wit "3/25/2005" or "12/31/2004". Please can anyone take a look? Thanks Code ------------------- 'DELETE DUPLICATE ROWS AND DELETE ROWS WITH CRITERIA Dim i As Long Dim cursheet As Worksheet Set cursheet = Worksheets("DataTable") For i = cursheet.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If WorksheetFunction.CountIf(cursheet.Range(cursheet. Cells(2, 1), cursheet.Cells(i, 1)), cursheet.Cells(i, 1)) 1 Or _ Cells(i, "A").Value = "3/25/2005" Or _ Cells(i, "A").Value = "12/31/2004" Then cursheet.Cells(i, 1).EntireRow.Delete End If Next i ------------------- -- Mslad ----------------------------------------------------------------------- Mslady's Profile: http://www.excelforum.com/member.php...fo&userid=2777 View this thread: http://www.excelforum.com/showthread.php?threadid=48024 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows based on criteria in Column A (not working)
I wonder if you don't need to put the dates in between # signs, ie #3/25/2005#
"Mslady" wrote: I am trying to put additional functionality in this code to delete rows with "3/25/2005" or "12/31/2004" in column A. This doesn't work, yet it doesn't give any errors. When i check my sheet, it deletes duplicate rows but not the rows with "3/25/2005" or "12/31/2004". Please can anyone take a look? Thanks Code: -------------------- 'DELETE DUPLICATE ROWS AND DELETE ROWS WITH CRITERIA Dim i As Long Dim cursheet As Worksheet Set cursheet = Worksheets("DataTable") For i = cursheet.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If WorksheetFunction.CountIf(cursheet.Range(cursheet. Cells(2, 1), cursheet.Cells(i, 1)), cursheet.Cells(i, 1)) 1 Or _ Cells(i, "A").Value = "3/25/2005" Or _ Cells(i, "A").Value = "12/31/2004" Then cursheet.Cells(i, 1).EntireRow.Delete End If Next i -------------------- -- Mslady ------------------------------------------------------------------------ Mslady's Profile: http://www.excelforum.com/member.php...o&userid=27776 View this thread: http://www.excelforum.com/showthread...hreadid=480242 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows based on criteria in Column A (not working)
Hi Kleev, I tried again, still no luck. It works when i put it in my module, but not when i put it in my sheet Any ideas -- Mslad ----------------------------------------------------------------------- Mslady's Profile: http://www.excelforum.com/member.php...fo&userid=2777 View this thread: http://www.excelforum.com/showthread.php?threadid=48024 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete Rows based on criteria in excel | Excel Discussion (Misc queries) | |||
Code help, delete rows based on column criteria | Excel Discussion (Misc queries) | |||
How can I delete rows programmatically based on certain criteria? | Excel Worksheet Functions | |||
Delete rows based on criteria | Excel Discussion (Misc queries) | |||
Delete rows based on certain criteria | Excel Discussion (Misc queries) |