Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and clearcontent
maybe???
Option Explicit Sub testme() Dim FoundCell As Range With ActiveSheet Set FoundCell = .Cells.Find(what:="end of report", _ after:=.Cells(.Cells.Count), LookIn:=xlValues, _ lookat:=xlWhole, searchorder:=xlByRows, _ searchdirection:=xlNext, MatchCase:=False) If FoundCell Is Nothing Then 'do nothing Else .Range(FoundCell, .Cells(.Rows.Count, "A")).EntireRow.ClearContents End If End With End Sub xl-end-database means row 65536????? Rui wrote: Hi, I´m trying to clearcontent from my imported database the rows from "End of Report" cell to "xl-end-database". i've done the finding "End of Report" cell (cell.find( ... )) but can´t put it in a range to the end of database to clear. i thought of make it a variable, but still no results! (excel xp) -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find First Non blank cell than find column header and return that value | Excel Worksheet Functions | |||
where to put results of find operation in find and replace functio | Excel Worksheet Functions | |||
Despite data existing in Excel 2002 spreadsheet Find doesn't find | Excel Discussion (Misc queries) | |||
How do I find a file/spreadsheet that Excel says is Already open but I can't find it? | Excel Discussion (Misc queries) | |||
backwards find function to find character in a string of text | Excel Programming |