Retrieving Current Row,Columns & copying Format from Row,Columns a
 

Currently I manually insert a new line of data into a worksheet from an
external source then using a macro I reformat the fill,font & alignment of
the row.

Within the inserted row at columns H & I - I want to copy the format of the
of the inserted row minus one's columns H & I (ie highlight current Row
-1(H:I) and paste special the format into inserted row (H:I)

Thank You

Retrieving Current Row,Columns & copying Format from Row,Columns a
 

May be

rownr = ActiveCell.Row
Cells(rownr - 1, "H").Resize(, 2).Copy
Cells(rownr, "H").Resize(, 2).PasteSpecial xlPasteFormats

"Chris Maddogz" wrote in message
...
Currently I manually insert a new line of data into a worksheet from an
external source then using a macro I reformat the fill,font & alignment of
the row.

Within the inserted row at columns H & I - I want to copy the format of
the
of the inserted row minus one's columns H & I (ie highlight current Row
-1(H:I) and paste special the format into inserted row (H:I)

Thank You

Retrieving Current Row,Columns & copying Format from Row,Colum
 

Worked fine Thanks You

"KC" wrote:

May be

rownr = ActiveCell.Row
Cells(rownr - 1, "H").Resize(, 2).Copy
Cells(rownr, "H").Resize(, 2).PasteSpecial xlPasteFormats

"Chris Maddogz" wrote in message
...
Currently I manually insert a new line of data into a worksheet from an
external source then using a macro I reformat the fill,font & alignment of
the row.

Within the inserted row at columns H & I - I want to copy the format of
the
of the inserted row minus one's columns H & I (ie highlight current Row
-1(H:I) and paste special the format into inserted row (H:I)

Thank You