Code for Find? (Excel 2000)

Topic

New Reply

Good Afternoon,

Could someone tell me what the code is for “Find” and or “Find and Replace”.

Thanks.

Reply | Quote

Replies

Use the Find Method and the Replace Method

Here is an example from the HELP for find
This example finds all cells in the range A1:A500 that contain the value 2 and makes those cells gray.

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.Pattern = xlPatternGray50
            Set c = .FindNext©
        Loop While Not c Is Nothing And c.Address  firstAddress
    End If
End With

Here is an extract for replace:
This example replaces every occurrence of the function SIN with the function COS. The replacement range is column A on Sheet1.

Worksheets("Sheet1").Columns("A").Replace _
	What:="SIN", Replacement:="COS", _
	SearchOrder:=xlByColumns, MatchCase:=True

Steve

Reply | Quote

(Edited by WebGenii on 28-Feb-03 12:25. to add links. Linking to posts is easy, just put square brackets around the following: post#=yourpostnumber)

Roberta,

You might find what you are looking for in post 227113, or you might wish to check out the Flexfind Utility by Jan (post 229625)

Hope this helps,
Chuck

Reply | Quote