Hi Guys
I need a simple code to extract a bolded word from a string in a cell.It then places this text in column b and the entire string in column C.Then it moves to next cell in range.
Eg:
Column A
extract THIS
skip thisand this
HERE is done
Should like this:
Columnn B Column C
THIS extract THIS
HERE HERE is done
To prove im not one of those 'script-kiddies' ive added my code.
Since im not familiar with split function,I use characters ppt instead.
Thanks in advance!
I need a simple code to extract a bolded word from a string in a cell.It then places this text in column b and the entire string in column C.Then it moves to next cell in range.
Eg:
Column A
extract THIS
skip thisand this
HERE is done
Should like this:
Columnn B Column C
THIS extract THIS
HERE HERE is done
To prove im not one of those 'script-kiddies' ive added my code.
Since im not familiar with split function,I use characters ppt instead.
Code:
Dim rng as Range,counter as integer
Set rng = Range("a1:a4")
counter = 0
For each cell in rng
For i = 1 to len(cell.text)
If cell.font.character(i,1).bold = True Then
Cells(counter + 1,2).value = [U][I]'Extracted word/chars'[/I][/U]
Cells(counter + 1,3).value = Cell.value
End If
Next i
counter = counter + 1
Next cell
Thanks in advance!