Здравствуйте, участники форума. Сделал макрос, который работ на PC, но не работает на Маке.
Макрос копирует умные таблицы "Table01", "Table02" на листах "01", "02" и вставляет на третий лист "vspom2" и делает из объединенной таблицы умную с названием "AllTables".
На Маке выделяется первая строчка макроса желтым и появляется сообщение "Эта команда приведет к остановке отладчика". Не пойму в чем проблема
Макрос копирует умные таблицы "Table01", "Table02" на листах "01", "02" и вставляет на третий лист "vspom2" и делает из объединенной таблицы умную с названием "AllTables".
На Маке выделяется первая строчка макроса желтым и появляется сообщение "Эта команда приведет к остановке отладчика". Не пойму в чем проблема
Код |
---|
Sub ForAllTables() Dim XYZ As Long Dim iLastRowXYZ As Long Worksheets("Vspom2").Activate Worksheets("Vspom2").Cells.Select Selection.Delete Shift:=xlUp ThisWorkbook.Worksheets("01").Select ThisWorkbook.Worksheets("01").ListObjects("Table01").Range.Select Selection.Copy ThisWorkbook.Worksheets("Vspom2").Range("A1").PasteSpecial xlPasteValues ThisWorkbook.Worksheets("Vspom2").Range("A1").PasteSpecial xlPasteColumnWidths ThisWorkbook.Worksheets("Vspom2").Range("A1").PasteSpecial xlPasteFormats ThisWorkbook.Worksheets("02").Select ThisWorkbook.Worksheets("02").ListObjects("Table02").DataBodyRange.Select Selection.Copy iLastRowXYZ = Worksheets("Vspom2").Cells(Rows.Count, 2).End(xlUp).Row ThisWorkbook.Worksheets("Vspom2").Cells(iLastRowXYZ + 2, 1).PasteSpecial xlPasteValues ThisWorkbook.Worksheets("Vspom2").Cells(iLastRowXYZ + 2, 1).PasteSpecial xlPasteColumnWidths ThisWorkbook.Worksheets("Vspom2").Cells(iLastRowXYZ + 2, 1).PasteSpecial xlPasteFormats Worksheets("Vspom2").Activate XYZ = Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$P$" & XYZ), , xlYes).Name = "AllTables" End Sub |