Доброго времени суток!
Работаю над файлом и на виндоусе, и на маке. На двух листах есть две умные таблицы. Необходимо копировать определенные диапазоны из одной таблицы в другую. По примерам набросал следующий макрос:
На маке макрос не работает. Прошу помощи с интеграцией оного под мак.
И сопутствующий вопрос: как можно улучшить данный код для того, чтобы во второй умной таблице, куда будут копироваться данные, автоматически увеличивалось кол-во строк, равное количеству строк в первой таблице?
Работаю над файлом и на виндоусе, и на маке. На двух листах есть две умные таблицы. Необходимо копировать определенные диапазоны из одной таблицы в другую. По примерам набросал следующий макрос:
| Код |
|---|
Sub Copy_To_Sale()
Worksheets("Delivery" ;) .Range("B4:F4" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Worksheets("Sale" ;) .Range("B4:F4" & Cells(Rows.Count, 1).End(xlUp).Row)
Worksheets("Delivery" ;) .Range("L4:L4" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Worksheets("Sale" ;) .Range("N4:N4" & Cells(Rows.Count, 1).End(xlUp).Row)
Worksheets("Delivery" ;) .Range("R4:R4" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Worksheets("Sale" ;) .Range("H4:H4" & Cells(Rows.Count, 1).End(xlUp).Row)
End Sub |
На маке макрос не работает. Прошу помощи с интеграцией оного под мак.
И сопутствующий вопрос: как можно улучшить данный код для того, чтобы во второй умной таблице, куда будут копироваться данные, автоматически увеличивалось кол-во строк, равное количеству строк в первой таблице?
Изменено: - 20.05.2013 13:22:05
