Sum tables keeping the same format

[glottis]

Hi,

I am trying to create a new table starting from three others (that are in the 3 previous sheet). I succeeded but unfortunately the resulting table is not keeping the same format. Could you advise please?

Set cell_range = Range("A4:Z50")

                              SheetCount = .Worksheets.Count
                 
                        If WorksheetFunction.CountA(Cells) <> 0 Then
                      
                       .Worksheets.Add After:=.Worksheets(SheetCount)
                         End If
                         
                         SheetCount = .Worksheets.Count
                         
                        For Each Cell In cell_range
                        
                        If IsNumeric(.Worksheets(SheetOne).Range(Cell.Address).Value) Then
                        
                        
                        .Worksheets(SheetCount).Range(Cell.Address).Value = .Worksheets(SheetThree).Range(Cell.Address).Value + .Worksheets(SheetOne).Range(Cell.Address).Value + .Worksheets(SheetTwo).Range(Cell.Address).Value
                        
                        Else
                        
                        .Worksheets(SheetCount).Range(Cell.Address).Value = .Worksheets(SheetThree).Range(Cell.Address).Value
                        
                        End If
                        
                        Next Cell
                        
                        
                        
                        End With

 

[jasonb75]

Format can mean many things, which do you want?

Number format?
Fill colour?
Font?
Border?
Conditional format?
Something else that I missed?

Several, or all of the above?

 

[glottis]

Thanks for the reply Jason. Basically I want to keep the cell merged as per word. Here below as it's the word doc:

and here's the actual outcome:

AS you can spot, the actual script is reporting wrongly 1-4 as a date (4-Jan) and the cell below <1 is splitted in two. About colour and font I don't care. Thank you!!!

 

[Fluff]

Duplicate to: Format error

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.