Hello all,
i have a Macro prepared in Excel 2013 for PC and need help to edit it to work in Mac.
I would appreciate anyone's help.
i made Bold the part which does not work.
Thank you.
====================================================================================
Sub Edit_New_Data()
Dim lastRow As Long
Application.ScreenUpdating = False
Application.CutCopyMode = False
With Sheets("Edit File")
.Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'Copy over data
Sheets("M_1").Range("B1:L1").Copy .Range("A1")
'Fill in formula
lastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
.Range("F2:F" & lastRow).FormulaR1C1 = "=RC[-2]&RC[-1]"
.Columns("G:G").Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Adjust formatting
With .Cells.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Application.Goto .Range("A1")
End With
Application.ScreenUpdating = True
End Sub
i have a Macro prepared in Excel 2013 for PC and need help to edit it to work in Mac.
I would appreciate anyone's help.
i made Bold the part which does not work.
Thank you.
====================================================================================
Sub Edit_New_Data()
Dim lastRow As Long
Application.ScreenUpdating = False
Application.CutCopyMode = False
With Sheets("Edit File")
.Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'Copy over data
Sheets("M_1").Range("B1:L1").Copy .Range("A1")
'Fill in formula
lastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
.Range("F2:F" & lastRow).FormulaR1C1 = "=RC[-2]&RC[-1]"
.Columns("G:G").Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Adjust formatting
With .Cells.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Application.Goto .Range("A1")
End With
Application.ScreenUpdating = True
End Sub