| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Locate a value in a cell and delete rows above
Hi,
I need a piece of code and I cannot work out how to write it in VBA. I want the code to look for a static piece of code "Invoice Month" which will always appear in column A, but could be in any row between 1-30. When it locates it, I want it to delete all the rows above it but not the one it is on. Is this possible and if so can anyone help me with the code I would need? Many Thanks in advance for your help... |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Locate a value in a cell and delete rows above
Try the below macro
Sub Macro() Dim lngRow As Long lngRow = Range("A1:A30").Find(What:="Invoice Month", _ SearchDirection:=xlPrevious, SearchOrder:=xlRows).Row Rows("1:" & lngRow).Delete End Sub If this post helps click Yes --------------- Jacob Skaria "Louise" wrote: Hi, I need a piece of code and I cannot work out how to write it in VBA. I want the code to look for a static piece of code "Invoice Month" which will always appear in column A, but could be in any row between 1-30. When it locates it, I want it to delete all the rows above it but not the one it is on. Is this possible and if so can anyone help me with the code I would need? Many Thanks in advance for your help... |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Locate a value in a cell and delete rows above
It should be
Sub Macro() Dim lngRow As Long lngRow = Range("A1:A30").Find(What:="Invoice Month", _ SearchDirection:=xlPrevious, SearchOrder:=xlRows).Row Rows("1:" & lngRow - 1).Delete End Sub If this post helps click Yes --------------- Jacob Skaria "Louise" wrote: Hi, I need a piece of code and I cannot work out how to write it in VBA. I want the code to look for a static piece of code "Invoice Month" which will always appear in column A, but could be in any row between 1-30. When it locates it, I want it to delete all the rows above it but not the one it is on. Is this possible and if so can anyone help me with the code I would need? Many Thanks in advance for your help... |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Locate a value in a cell and delete rows above
Hi Jacob,
This works a treat! :) Thank you SO much! Kind regards, Louise "Jacob Skaria" wrote: It should be Sub Macro() Dim lngRow As Long lngRow = Range("A1:A30").Find(What:="Invoice Month", _ SearchDirection:=xlPrevious, SearchOrder:=xlRows).Row Rows("1:" & lngRow - 1).Delete End Sub If this post helps click Yes --------------- Jacob Skaria "Louise" wrote: Hi, I need a piece of code and I cannot work out how to write it in VBA. I want the code to look for a static piece of code "Invoice Month" which will always appear in column A, but could be in any row between 1-30. When it locates it, I want it to delete all the rows above it but not the one it is on. Is this possible and if so can anyone help me with the code I would need? Many Thanks in advance for your help... |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Locate duplicates in column A, then, delete the row | Excel Worksheet Functions | |||
| locate positive numbers and delete rows containing | Excel Discussion (Misc queries) | |||
| Delete Rows if any cell in Column H is blank but do not Delete Fir | Excel Programming | |||
| How can I delete links (I can't locate) from one file to another? | Excel Discussion (Misc queries) | |||
| Locate and delete specific cells | Excel Discussion (Misc queries) | |||
Linear Mode
