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

[SAS888]

А чем вариант с гиперссылками не устроил?

[kievlyanin]

ес-с-с--ссс!!!!!

вот так:


Dim myshape As Shape
Range(Rows(1), Rows(50)).Select
For Each myshape In ActiveSheet.Shapes
If Intersect(myshape.TopLeftCell, _
Selection) Is Nothing Then
'do nothing
Else
myshape.Delete
End If
Next myshape
End Sub

[kievlyanin]

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

А чем вариант с гиперссылками не устроил?

та класно все, тока курсор на гиперссылку западает .. когда надо десять-двадцвть добавлений сделать 100% западет и перестанет работать - надо выбрать ячейку рядом и опять клацать на ссылку чтобы запустить макрос ..

а кнопка такого недостатка лишена полностью

[kievlyanin]

блин .. опять че-то не то.


сам по себе работает:


Dim myshape As Shape
Range(Rows(r), Rows(i + 1)).Select
For Each myshape In ActiveSheet.Shapes
If Intersect(myshape.TopLeftCell, _
Selection) Is Nothing Then
'do nothing
Else
myshape.Delete
End If
Next myshape
End Sub


вставляю в блок в которм он должен рыботать - выдает ошибку:

If ActiveCell.Column = 6 And ActiveCell.Row <> (Range("Base").Row + 6) Then
        r = ActiveCell.Row - 6
        For i = ActiveCell.Row To 2000
            If Cells(i, "A").Borders(xlEdgeBottom).LineStyle = xlNone Then Exit For
        Next
                       
        Range(Rows(r), Rows(i + 1)).Select
        For Each myshape In ActiveSheet.Shapes
        If Intersect(myshape.TopLeftCell, _
                 Selection) Is Nothing Then
            'do nothing
        Else
            myshape.Delete
        End If
    Next myshape
         
        Range(Rows(r), Rows(i + 1)).Delete
    End If

ошибку выдает тут:

If Intersect(myshape.TopLeftCell, _
Selection) Is Nothing Then

при этом таки удаляет кнопки в области ! и потом выдает ошику( ошибка 1004)

[kievlyanin]

вообще бред какой-то .. то выдает ошибку сразу, то удаляет все как надо (один раз было! ) .. то удаляет кнопки и потом выдает ошибку ... ..

засек когда собирлся прикрепить файл - сделал примечание к кнопке - код начал работать !! ... удалилась таблица с примечанием -вставил через кнопку новую - уже выдает ошибку при автоматическом удалении ... шоза??

[kievlyanin]

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

вобщем вот файл.

[kievlyanin]

если кому интерсно разобратьсся ради интересу - можете попробовать, но лично я ужу все порешал .. преписал код на удаление заново - работает .. хотя по сути никаких изменнеий особых там нет .. в чем проблема так и не понял но ну и фиг на него .. удаление работает