Здравствуйте, участники форума. Сделал макрос, который работ на 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
|
