копирование таблиц надо решение на ВБА

[kievlyanin]

Сообщение от kievlyanin

кстати единственное что я бы еще тут хотел изменить - так это гиперссылки ... неудобно .. курсор на них западает ... если бы это как-то перевести на обычную клавишу.

Sub Ìàêðîñ1()
ActiveSheet.Shapes(1).TopLeftCell.S elect
End Sub


Sub Ìàêðîñ1()
ActiveSheet.Shapes(1).BottomRightCe ll.Select
End Sub

вот!

[kievlyanin]

Sub Макрос1()
ActiveSheet.Shapes(Application.Call er).BottomRightCell.Select
End Sub


Sub Макрос2()
ActiveSheet.Shapes(Application.Call er).TopLeftCell.Select
End Sub

ыы-ы-ы--ыы-ыыыыыы

[kievlyanin]

блин!

если удалять строки например с 5-й по 10-ю и где-то посередине есть кнопка, то она не удаляется!!! ... как заставить удалять и кнопку???

код на удаление:

Range(Rows(r), Rows(i + 1)).Delete

[SAS888]

Чтобы кнопка удалялась, в контекстном меню нужной кнопки войти в Формат объекта->Свойства и выбрать опцию "Перемещать и изменять объект вместе с ячейками".
Средствами VBA это делается так:

ActiveSheet.Shapes("Button 1").Placement = xlMoveAndSize

[kievlyanin]

Сообщение от SAS888

Чтобы кнопка удалялась, в контекстном меню нужной кнопки войти в Формат объекта->Свойства и выбрать опцию "Перемещать и изменять объект вместе с ячейками".
Средствами VBA это делается так:

ActiveSheet.Shapes("Button 1").Placement = xlMoveAndSize

так и есть - но все равно при удалении ячеек кнопки остаются.

[SAS888]

Что значит остаются?
Если все так, то кнопки не будет видно на экране. После удаления строки (ячейки) к которой "прикреплена" кнопка, остается "нулевой" объект. Т.е. он существует, но его не видно. Для полного удаления объекта нужно обращаться к нему по имени, или по порядковому номеру. Что при Вашей организации рабочего листа невозможно.
Именно поэтому, я предложил такой вариант, недостаток которого то, что количество этих "нулевых" объектов будет расти, и, следовательно, будет расти и объем файла. Через некоторое время работы (при значительном увеличении размера файла), его можно "почистить" вручную, т.е. выделить все Shapes листа и удалить ненужные.
Есть еще вариант с доп. столбцом (лучше скрытым), в соответствующую строку которого будет записываться, например, Name или Index создаваемого объекта. Тогда при удалении соответствующих строк можно будет считывать имя (номер) объекта и удалять его корректно.
Если такой вариант устроит - прикрепите файл (фрагмент файла) с уже существующими макросами.

[kievlyanin]

нашел тут один примерчик и пытаюсь его передалть для своих целей. но что-то напутал в лгических функиях - чтото там не контачит:

Sub testme3()
Dim myCell As Range, myShape As Shape
Set myCell = Range(Rows(1), Rows(50))
For Each myShape In ActiveSheet.Shapes
If Intersect(myShape.TopLeftCell, myCell) Then myShape.Delete
Next
End Sub

[kievlyanin]

Сообщение от SAS888

Что значит остаются?
Если все так, то кнопки не будет видно на экране. После удаления строки (ячейки) к которой "прикреплена" кнопка, остается "нулевой" объект. Т.е. он существует, но его не видно. Для полного удаления объекта нужно обращаться к нему по имени, или по порядковому номеру. Что при Вашей организации рабочего листа невозможно.
Именно поэтому, я предложил такой вариант, недостаток которого то, что количество этих "нулевых" объектов будет расти, и, следовательно, будет расти и объем файла. Через некоторое время работы (при значительном увеличении размера файла), его можно "почистить" вручную, т.е. выделить все Shapes листа и удалить ненужные.
Есть еще вариант с доп. столбцом (лучше скрытым), в соответствующую строку которого будет записываться, например, Name или Index создаваемого объекта. Тогда при удалении соответствующих строк можно будет считывать имя (номер) объекта и удалять его корректно.
Если такой вариант устроит - прикрепите файл (фрагмент файла) с уже существующими макросами.

да вот с этим я и пытаюсь побороться - есть тут один вариант:

For Each z In ActiveSheet.Shapes
z.Delete
Next

это удаляет все кнопки на листе .. я сейчас хочу удалять только в области таблицы (область у меня известна) .. т.е. первым действием удалить кнопки, вторымсаму таблицу.

[SAS888]

Можно еще так:
Если все кнопки ссылаются на один и тот же макрос, то в начале этого макроса поместить:

Dim Sh As Shape, MyShName As String
    MyShName = Application.Caller

Это позволит запомнить Characters.Text кнопки, которая вызвала макрос.
В конце макроса вставить

For Each Sh In ActiveSheet.Shapes
        Sh.Select
        If Selection.Characters.Text = MyShName Then
            Sh.Delete: Exit For
        End If
    Next

Что удалит объект с таким Characters.Text.
Т.е. какую кнопку нажали - та и удалится после выполнения макроса.

[kievlyanin]

"" Т.е. какую кнопку нажали - та и удалится после выполнения макроса ""


не пойдет.

мне надо не 1 кнопку удалить а группу кнопок расположенную в области Range(Rows(r), Rows(i + 1))

тах их будет пять и нажата будет только одна из них.