find a cell, jump to next roll and clear all cells
Hello,
Does anyone know how to write a macro to find a specific text, then say go to next row and clear everything below. Thanks Lai |
find a cell, jump to next roll and clear all cells
Lai
without a bit more detailed information, the simple answer is yes, I'm sure lots of people know how to write a macro to do this. Try something similar to the following: Sub DeleteRowsBelowXXX() Dim SearchRow As String SearchRow = Cells.Find(What:="xxx", _ After:=ActiveCell, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False).Row Range("A" & SearchRow + 1 & ":A65536").EntireRow.Delete End Sub Regards Trevor "jigsaw2" wrote in message ... Hello, Does anyone know how to write a macro to find a specific text, then say go to next row and clear everything below. Thanks Lai |
All times are GMT +1. The time now is 12:10 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com