Add text to multiple cells in Excel

Dev Shed Forums Sponsor:

February 29th, 2012, 05:31 PM

kumba

Contributing User

Join Date: Jun 2008

Posts: 32

Time spent in forums: 7 h 30 m 52 sec
Reputation Power: 5

Add text to multiple cells in Excel

I'm trying to write simple macros to add xml/html tags to cells in Excel. What I would like to have is that the user literally selects multiple cells in the same column, then fires the macro and it automatically adds the information before and after the text in the cells.

I've accomplished this part but it only adds it to the first (Active) cell in the selected cells. I can't seem to figure out how to make all the cells active so it knows to add text to the other selected cells as well.

Here is what I have for the macro so far:

Code:

Sub format2()

FormulaR1C1 = _
        "<headline><![CDATA[<p><font color=""#00ffff"">"
FormulaR1C2 = _
        "</font>]]></headline>"
ActiveCell = FormulaR1C1 & ActiveCell & FormulaR1C2
With ActiveCell.Characters(Start:=1, Length:=19).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

End Sub

I'm VERY new to VB so any and all help is greatly appreciated!

Thanks,
Kumba

March 1st, 2012, 05:37 PM

medialint

Type Cast Exception

Dev Shed God 20th Plane (14500 - 14999 posts)

Join Date: Apr 2004

Location: OAKLAND CA | Adam's Point (Fairyland)

Posts: 14,938

Folding Points: 319635 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 6 Months 2 Weeks 2 Days 13 m 33 sec
Reputation Power: 8490

Code:

    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

This will apply your formatting to the current selection

To select a range you can do something like

Code:

    ActiveSheet.Range("A1:C33").Select

__________________
medialint.com

“Today you are You, that is truer than true. There is no one alive who is Youer than You.” - Dr. Seuss

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Add text to multiple cells in Excel

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump