VBA to keep format when concatenating

[isasa74]

Hi Samt

Ok regarding SAP I need to talk to my line manager , to be honest I'm doing this tool with you only to help out my team that right now has to check all the value one by one. I doubt my managers investing money to help us with this issue



PLEASE NOTE : I have all the four subs in only one module, is that ok?
(BTW I now managed to copy everything in a NON Personal file using the Project Explorer as you taught me.)



Regarding the Main sub and Sheet1NumberFormats()

After I changed some settings as you suggested (most of them were already ok), when I run either the Main or Sheet1NumberFormats()sub I
have the debug highlighting in yellow .ClearContents in the following part of Sheet1NumberFormats() (please see below and Attachment )

'Import Duties Column
With .Range("F" & rw)
If .Value = "" Or .Value = 0 Then
.ClearContents
.Interior.ColorIndex = 3 'Turn the cell Red, Missing import duty.
End If
End With
End With
Next

Regarding the Sheet2NumberFormats()
Please let's fix first Sheet1NumberFormats otherwise I will make confusion..is that ok with you too please?


THANKS!!!!!!