The following code works but formats change and that cause me problems
I'd like to copy Values and keep Number formats. I tried the following but I get Error 13 Type Mismatch. I tried Value instead of Value2 first but same result. How can I get the desired result?
Rich (BB code):
Workbooks(MacroBook$).Worksheets("Control").Range("TranB4ChgA").Value = Workbooks(MacroBook$).Worksheets("Control").Range("TranNowA").Value
I'd like to copy Values and keep Number formats. I tried the following but I get Error 13 Type Mismatch. I tried Value instead of Value2 first but same result. How can I get the desired result?
VBA Code:
Workbooks(MacroBook$).Worksheets("Control").Range("TranB4ChgA").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False = Workbooks(MacroBook$).Worksheets("Control").Range("TranNowA").Value2