Добрый день уважаемые специалисты по экселю! Помогите советом по следующему вопросу: Дано Таблица которая содержит рисунок, Как? Удалить содержимое таблицы в диапазоне А1: F19 вместе с рисунком средствами VBA Ексель 2010 х64 Пробывал:
Юрий М, да все работает! таблица, значения и картинка на первом листе удаляются и копируются на второй лист! но, мне не нужно удалять данные с первого листа мне нужно на ВТОРОМ листе удалить таблицу с картинкой ваш первый макрос копирует содержимое с первого листа на второй
Код
Range("E17:J34").Copy Sheets("Лист2").Range("A1")
мне нужен второй макрос! который очищает данные на втором листе для нового копирования
Dmitriywu, или если я правильно Вас понял, другого выхода, как вырезать содержимое на ненужный лист, с последующей его полной очисткой - нет? как то не по феншую...
Sub Macro2()
Dim iShape As Shape
For Each iShape In Sheets("Лист2").Shapes
If Not Intersect(iShape.TopLeftCell, Sheets("Лист2").Range("E17:J34")) Is Nothing Then
iShape.Delete
End If
Next
End Sub
Юрий М, Спасибо огромное! Все работает! Без Вашего наглядного примера, написать подобное самому сложновато, функцию "Not Intersect" вообще вижу в первые