About Us

puiuluipui

Hi, it's working great!
Thanks allot!

"Dave Peterson" wrote:

I would still limit my changes to cells in the selection that are not formulas
and non-numeric:

Option Explicit
Sub testme()

Dim myRng As Range
Dim myCell As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "Please select a range with text values"
Exit Sub
End If

For Each myCell In myRng.Cells
With myCell
.Value = .Value & " (anul)"
.Characters(Start:=Len(.Value) - 5, Length:=6).Font.ColorIndex = 3
End With
Next myCell

End Sub

puiuluipui wrote:

It's working! But i forgot to say that i need "(anul)" to be red. Can the
text that i need to appear "(anul)", be red?
Thanks allot!

"Dave Peterson" a scris:

Option Explicit
Sub testme()

Dim myRng As Range
Dim myCell As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "Please select a range with text values"
Exit Sub
End If

For Each myCell In myRng.Cells
With myCell
.Value = .Value & " (anul)"
End With
Next myCell

End Sub

puiuluipui wrote:

Hi, i need to add some text to some cells, but i need a macro linked to a
button to do this. If i select a cell and than i click the macro button, then
"(anul)" to appear in that cell, at the end of the text.

ex:-without button
a
John C
John C (ed)

Ex:-with button
a
John C (anul)
John C (ed) (anul)

Can this be done?
Thanks!

--

Dave Peterson

--

Dave Peterson

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
Macro - Fixed text code needs replacing with variable text	steven.holloway	Excel Discussion (Misc queries)	3	July 22nd 08 03:57 PM
Macro - Inserting text to a cell already containg text	Dileep Chandran	Excel Worksheet Functions	5	December 7th 06 03:42 PM
Macro - Inserting text to a cell already containg text	Dileep Chandran	Excel Discussion (Misc queries)	6	December 7th 06 03:42 PM
Need a macro to insert text in a cell that already has text.Excel	go1angel	Excel Discussion (Misc queries)	2	October 5th 05 10:32 PM
Macro or Function to make text size to suite text Length?	lbbss	Excel Discussion (Misc queries)	4	December 14th 04 07:53 PM

Menu

About Us