insert new row at end of sheet in different font

**rickmeister** · 07-08-2013, 07:19 AM

Dear,

Could someone please help out? My macro should insert a new line with red font for all values to be completed.
This macro hereunder works already fine but injects a new row in BLACK...

Could anyone advise?

Thanks,

Erik

----------------------------

Sub Add_step()
Dim ligne
Dim colonne
Dim last_ligne
Dim col_rk
Dim boucle

ligne = 13
col_slct = "C"
colonne = "A"
col_rk = "K"

Cell = Range(colonne & ligne).Value
While Cell <> ""
ligne = ligne + 1
Cell = Range(colonne & ligne).Value
Wend

Rows(ligne & ":" & ligne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range(colonne & ligne).Value = "=" & colonne & (ligne - 1) & "+1"
Range(col_rk & ligne).Value = ""
Range(col_slct & ligne).Select

Application.CutCopyMode = False

End Sub

**dilipandey** · 07-08-2013, 07:47 AM

Hi rick,

where in the code you instructed for different font ?
can you upload a sample workbook along with this code? Thanks.

Regards,
DILIPandey
<click on below * if this helps>

**rickmeister** · 07-08-2013, 08:10 AM

Dillipandey,

I did not yet indicate the font as I am unsure how to include it.
My aim is that when running the macro a new line should be inserted at the bottom with red font

Thanks in advance

**dilipandey** · 07-08-2013, 08:28 AM

Not sure if you wish to insert a cell or an entire row but use introduce below code:-
Range(colonne & ligne).Font.ColorIndex = 3
before
Range(col_rk & ligne).Value = ""

Regards,
DILIPandey
<click on below * if this helps>

**Debraj Roy** · 07-08-2013, 08:32 AM

Hi Rickmeister!

Unfortunately.. XLS file will not able to store your "UAT template.xls'!Add_step" macro..

still a blind shot

In between these two lines add one more line..

Please Login or Register  to view this content.

Please let us know.. if you also need to remove BLACK background (if already there)

**rickmeister** · 07-08-2013, 08:41 AM

thanks! that would be sufficient for me

**dilipandey** · 07-08-2013, 08:53 AM

Cheers

Regards,
DILIPandey
<click on below * if this helps>

insert new row at end of sheet in different font

LinkBack

Thread Tools

Rate This Thread

Display

insert new row at end of sheet in different font

Re: insert new row at end of sheet in different font

Re: insert new row at end of sheet in different font

Re: insert new row at end of sheet in different font

Re: insert new row at end of sheet in different font

Re: insert new row at end of sheet in different font

Re: insert new row at end of sheet in different font

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions