Now sending values from cells they goes in text-format (to cells F and G). Need to be numeric values, because these values have to import to the other system.
How to do this?
How to do this?
VBA Code:
Set wbGood = ThisWorkbook
Set wbGood = Workbooks("Import.xlsx")
Set wsCopy = ThisWorkbook.Worksheets("Import")
Set wsDest = Workbooks("Import.xlsx").Worksheets("Sheet1")
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "F").End(xlUp).Offset(1).Row
wsCopy.Range("A2:M" & lCopyLastRow).Copy
wsDest.Range("A" & lDestLastRow).Resize(lCopyLastRow - 1, 13).Value = wsCopy.Range("A2:M" & lCopyLastRow).Value
Application.CutCopyMode = False