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

[kievlyanin]

во блин.. спасибо .. а почему скрипту не пофиг как там что формулы вычисляют??

[kievlyanin]

и по всей видимости предпоследнее!

как заставить If ... Then выполнять 2 действия при соблюдении одного условия?? и соответсвенно их не выполнять в случае несоблюдения.

предметно:

есть строка -
If Cells(i - 6, "B") <> "Додати упаковку (+)" Then Rows(i - 2).Delete

мне надодо чтобы было два делита - Rows(i - 2).Delete и еще один .. вот как он определяется:

For u = ActiveCell.Row To 2000
If Cells(u, "A") = "транспортировка 2" Then Exit For
Next
Rows(u - 1).Delete

как теперь это совместить ??

по отдельности работатет, а вместе че-то не получается

[kievlyanin]

сделал так:

If Cells(i - 6, "B") <> "Додати упаковку (+)" Then
Rows(i - 2).Delete
For u = ActiveCell.Row To 2000
If Cells(u, "A") = "транспортировка 2" Then Exit For
Next
Rows(u - 1).Delete
End If
End If


работатет .. но почему два End If ???? .. что за заморочка??

[SAS888]

Один лишний.
Если без него компилятор "ругается" - ищите в другом месте. Где-то значит есть If без End If.

[kievlyanin]

вот весь абзац с моим редактированием:

If ActiveCell.Column = 4 And ActiveCell = "Видалити упаковку (-)" Then
For i = ActiveCell.Row To 2000
If Cells(i, "A") = "упаковка 2" Then Exit For
Next
If Cells(i - 6, "B") <> "Додати упаковку (+)" Then
Rows(i - 2).Delete
For u = ActiveCell.Row To 2000
If Cells(u, "A") = "транспортировка 2" Then Exit For
Next
Rows(u - 1).Delete
End If
End If


до того он был таким:

If ActiveCell.Column = 4 Then
For i = ActiveCell.Row To 2000
If Cells(i, "A") = "упаковка 2" Then Exit For
Next
If Cells(i - 6, "B") <> "Додати упаковку (+)" Then Rows(i - 2).Delete
End If



П.С.

оба варианта рабочие.

[SAS888]

Ну, так все ж правильно. Чего вы хотите?
Советую писать код со смещением по блокам. Сразу все видно. Вот, например, Ваш код:

    If ActiveCell.Column = 4 And ActiveCell = "Видалити упаковку (-)" Then
        For i = ActiveCell.Row To 2000
            If Cells(i, "A") = "упаковка 2" Then Exit For
        Next
        If Cells(i - 6, "B") <> "Додати упаковку (+)" Then
            Rows(i - 2).Delete
            For u = ActiveCell.Row To 2000
                If Cells(u, "A") = "транспортировка 2" Then Exit For
            Next
            Rows(u - 1).Delete
        End If
    End If

[kievlyanin]

хочу понимать почему заработало ... а то я сделать сделал но чисто на интуиции ...

а во втором варианте End If закрывает первую строку ... но в середине то есть еще одно If !! .. :

If Cells(i - 6, "B") <> "Додати упаковку (+)" Then Rows(i - 2).Delete

почему тут не требуется второго End If ??

[jungo]

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

хочу понимать почему заработало ... а то я сделать сделал но чисто на интуиции ...

а во втором варианте End If закрывает первую строку ... но в середине то есть еще одно If !! .. :

If Cells(i - 6, "B") <> "Додати упаковку (+)" Then Rows(i - 2).Delete

почему тут не требуется второго End If ??

Толко что как раз вычитал, если на одной строке написанно не нужно End If

[kievlyanin]

короче вот что получилось

это не финальный файл - тут только 99,9% отработаны все ВБАшные прибамбасы - самих формул нет.

значит есть таблица (это отдельное физлицо/юрлицо) в которой есть 2 подтаблицы - виды упаковки (различны формулы по которым будет выводится стоимость и т.д. и т.п.) каждый из этих видов еще имеет "в нагрузку" под_под_таблицу с рассчетом стоимости транспортировки которая зеркальное отражение первой подтаблицы.

значит работает так - если добавляем новую упаковку вида 1 то паралельно добавляется к ней транспортировка в соответсвующей подтаблице. соответсвенно с упаковкой вида 2.

при этом сами таблицы автоматически копируются /удаляются ... т.е. количество юрлиц по которым ведется учет ограничен только высотой листа.

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

вот.

еще раз большая благодарность SAS888 за идею и техническую поддержку.

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

[kievlyanin]

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