About Us

Steve[_4_]

Awesome. Thanks Per!!

On Jun 15, 12:18*pm, Per Jessen wrote:
On 15 Jun., 18:26, Steve wrote:

Hi All,

With the code below:
Dim rng As Range
Dim cell As Range
Dim start_str As Integer
Dim FindText As Range
Dim Length As Integer

On Error Resume Next
* * Set FindText = Application.InputBox(prompt:= _
* * * * * * "Select Cell with Contents to Find", Type:=8)
* * * * If FindText Is Nothing Then
* * * * * * Exit Sub
* * * * End If
On Error GoTo 0

* * Set rng = Selection
* * Length = Len(FindText)

* * For Each cell In rng
* * * * start_str = InStr(cell.Value, FindText)
* * * * If start_str Then
* * * * * * cell.Characters(start_str, Length).Font.Bold = True
* * * * * * cell.Characters(start_str, Length).Font.Color = 192
* * * * End If
* * Next

I have an input box that alolows me to select a cell, which becomes
the "find" criteria to change the font in the selection. *Is there a
way to modify the code to allow me to select several cells via the
inputbox, and loop through each cell to do the "find and replace" on
the selection in one swoop?

Thanks!

Try this:

Dim rng As Range
Dim cell As Range
Dim start_str As Integer
Dim FindTextCells As Range
Dim Length As Integer
Dim FindText As String

Application.Screenupdating = False
On Error Resume Next
* * Set FindTextCells = Application.InputBox(prompt:= _
* * * * * * "Select Cell with Contents to Find" & vbLf & _
* * * * * * vbLf & "Press CTRL for multi-select", Type:=8)
* * * * If FindTextCells Is Nothing Then
* * * * * * Exit Sub
* * * * End If
On Error GoTo 0
Set rng = Selection

For Each txt In FindTextCells
* * FindText = txt
* * Length = Len(FindText)
* * For Each cell In rng
* * * * start_str = InStr(cell.Value, FindText)
* * * * If start_str Then
* * * * * * cell.Characters(start_str, Length).Font.Bold = True
* * * * * * cell.Characters(start_str, Length).Font.Color = 192
* * * * End If
* * Next
Next

Regards,
Per- Hide quoted text -

- Show quoted text -

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
returning back to loop check condition without completing the loop	ashish128	Excel Programming	13	April 3rd 08 12:53 PM
Loop to Filter, Name Sheets. If Blank, Exit Loop	ryguy7272	Excel Programming	3	February 5th 08 03:41 PM
(Complex) Loop within loop to create worksheets	klysell	Excel Programming	1	March 20th 07 12:03 AM
Advancing outer Loop Based on criteria of inner loop	ExcelMonkey	Excel Programming	1	August 15th 05 05:23 PM
Problem adding charts using Do-Loop Until loop	Chris Bromley[_2_]	Excel Programming	2	May 23rd 05 01:31 PM

Menu

About Us