View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default Inserting a new table row without copying formats

the default formating would be General. You could make the entire new row
General and then change columns 3 to numeric and column 4&5 to date like this

with Sheets(ToSheet).Range(ToTable)
.Rows(CursorTableRowNum).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
.Rows(CursorTableRowNum).numberformat = "General"
.Cells(CursorTableRowNum,"C").Numberformat = "0.00"
.Cells(CursorTableRowNum,"D").Numberformat = "mm/dd/yy"
.Cells(CursorTableRowNum,"E").Numberformat = "mm/dd/yy"
End with

"John" wrote:

I'm using the following code to insert a new row in a table.
Sheets(ToSheet).Range(ToTable).Rows(CursorTableRow Num) _
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
This copies all formating from the above row to the new row.

How do I change/add code to avoid copying any row format info and just set
cols 1,2,6 & 7 to General format, col 3 to numeric, no decimals, and col 4&5
to date mm/dd/yy format, while everything else sets to a default cell format.

I appreciate your help, -John