Прорисовка линий макрасом

[konistra]

Здравствуйте.
На вкладке текущие заявки, формы с заполняемой информацией при проставлении + и нажатии на кнопку Комплектация. Отмеченные строки копируются на вкладку Комплектация и выстраивается таблица но без прорисовки границ(Черных линий). Могли бы вы сделать что бы эти границы прорисовывались на нужно количество строк.
И врорая просьба, что бы на вкладке Комплектация все строки заканчивались с Надписью Итого и подсчета одного столбца. Во влажении конкретно показано как нужно.
Спасибо.

[KOSTIK1]

Вот попробуйте, но правда только рисует линии, без "Итога".

[konistra]

Перезалейте пожалуйста. Excel говорит VBA потеряно.

[KOSTIK1]

Странно, но у меня на обоих компах работает без проблем, ну вот этот попробуйте.

[konistra]

не хочет работать. =(

Cetka Ìàêðîñ

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0 На этой строке выдает ошибку. (Run-Time error "438"  )
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
End Sub

[KOSTIK1]

Попробуй этот.

[The_Prist]

Ну что же Вы такие большие коды пишите для простой обводки рамки?
Достаточно одной строки:

Selection.Borders.Color  = xlBlack

[konistra]

этот работает, только бы Итого строку добавлял=)

[KOSTIK1]

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

Ну что же Вы такие большие коды пишите для простой обводки рамки?
Достаточно одной строки:

Selection.Borders.Color  = xlBlack

Спасибо за подсказку. Но это писал не я, а как Вы наверняка заметили, это был макрорекордер, т.к. этому делу я только обучаюсь. И конечно ценю поэтому любую критику. Спасибо.

P.S. Так не работает (2007)

Selection.Borders.Color  = xlBlack

а работает так

Selection.Borders.Color  = xlBlanks

[KOSTIK1]

По тестируйте!