insert new row at end of sheet in different font

[rickmeister]

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]

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]

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]

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>

[rickmeister]

thanks! that would be sufficient for me

[Debraj Roy]

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..

Range(col_rk & ligne).Value = ""
Range(col_rk & ligne).Font.Color = vbRed
Range(col_slct & ligne).Select

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

[dilipandey]

Cheers




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