Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find Replace
But you could use Edit|find to search through the comments. If you find it in
the comment, replace it there. If you have lots of comments and few get changed, it might be quicker: Option Explicit Sub testme01() Dim FoundCell As Range Dim FindWhat As String Dim WithWhat As String FindWhat = "ASDF" WithWhat = "qwer" Do Set FoundCell = ActiveSheet.Cells.Find(What:=FindWhat, _ After:=ActiveCell, _ LookIn:=xlComments, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=True) If FoundCell Is Nothing Then Exit Do Else FoundCell.Comment.Text _ application.substitute(FoundCell.Comment.Text, _ FindWhat, WithWhat) End If Loop End Sub And I used application.substitute. Chip used Replace. Replace will work in xl2k and above. (be aware that both Replace and application.substitute are case sensitive--so it's probably a good idea to match case in the .Find.) wrote: Is there a way to use this code and have it apply to Comments only? I am trying to use the MatchCase and LookAt options. tia rngMyCell.Cells(xlCellTypeComments).Replace _ What:=strEdit_Find, Replacement:=strEdit_Replace, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=True -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find & Replace: find part cell, replace whole cell | Excel Worksheet Functions | |||
Find and Replace - Replace with Blank Space | Excel Discussion (Misc queries) | |||
Find and replace results can the appearance of find be different? | Excel Discussion (Misc queries) | |||
where to put results of find operation in find and replace functio | Excel Worksheet Functions | |||
find and replace - replace data in rows to separated by commas | Excel Worksheet Functions |