Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to delete first and last row
I need to delete the first and last row of a file everytime before
continuing on with the macro. Can anyone provide any tips? The first line will always contain the same text, but the last line will vary since the file is an export and the exported date/time is always appended (i.e. 'Exported on 12/21/2006 3:05pm). I found this code on the net to delete a line, but I modified it to try and get it to use multiple conditions to delete: Sub OpDivTickets() Workbooks.Open Filename:= _ "C:\Documents and Settings\me\My Documents\Projects & Proposals\ABC\Ticket Prioritization Meetings\Request Search Results.xls" Dim rng As Range Dim what As String what = "Request Search Results" Do Set rng = ActiveSheet.UsedRange.Find(what) If rng Is Nothing Then Exit Do Else Rows(rng.Row).Delete End If Dim rng As Range Dim what As String what like "Exported on" Do Set rng = ActiveSheet.UsedRange.Find(what) If rng Is Nothing Then Exit Do Else Rows(rng.Row).Delete End If Loop Any help is appreciated |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming |