Макрос суммы

[and150382]

Вроде все работает как надо.
Спасибо всем за помощь!!!

Подскажите как сумму промежуточного итога и общего выделить жирным?

[and150382]

И подскажите пожалуйста как сделать чтобы общий итог ставился в конце записей. А то сейчас он ставится нипонятно где

[VictorK]

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

Подскажите как сумму промежуточного итога и общего выделить жирным?

Если без VBA, то так:
После выполнения макроса нажать клавишу F5, откроется окно "Переход", в котором нужно нажать кнопку "Выделить...". В следующем окне выбрать "Формулы" и нажать "ОК". Ячейки с формулами выделены, осталось нажать Ctrl+B или кнопку на панели для жирного шрифта.

[and150382]

Нет нужно макросом это сделать. Т.к. данные каждый раз вставляются через копирование с другой программы.
Нужно сделать чтобы сумма промежуточного итога и общего выделялись жирным шрифтом, и общий итог ставился после последней заполненной строки.
И еще, как убрать макросом группировку( сейчас при вставке новых данных, в строке где коды жирным были выделены, другие становятся тоже выделенными)

[and150382]

Может кто то знает как сделать , чтобы общий итог вставился после последней заполненной строки?

[and150382]

Итог ставиться всегда в разных строках. А как сделать чтобы ставился после последней заполненной строки?

[RAN.]

Я вам сделал рабочий макрос в соответствии с выложенной хотелкой.
Вместо того, чтобы привести макрос в соответствие с новой хотелкой (удалить строки, убирающие итоги, и добавить строку, делающую текст жирным) вы
1. изменили макрос, сделав его не работоспособным
2. выбрали другой

При этом то, что вам хочется, осталось за семью печатями.

Мяу

[and150382]

Сделал как написал RAN.
Перед разбиением нужно произвести сортировку столбца ( выделил желтым) по возрастанию. Попробовал написать рекордером, но при повторном нажатии на кнопку неправильно все делает. Нужно заблокировать повторное нажатие на кнопку или чтобы ничего не происходило.
И помогите сделать общий итог после последней заполненной строки.

[RAN.]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    With Range("A1").CurrentRegion
    If Application.WorksheetFunction.CountBlank(.Resize(, 2)) Then Exit Sub
        .Sort Range("I1"), 1, , , , , , xlYes
        .Sort Range("A1"), 1, , , , , , xlYes
        .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _
                  Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    End With
    With Range("A1").CurrentRegion
        .Value = .Value
        .ClearOutline
        With .Resize(, 1)
            .AutoFilter Field:=1, Criteria1:="=*тог*", Operator:=xlAnd
            .EntireRow.Font.Bold = True
            ' .Rows(.Count).EntireRow.Font.Bold = True
            .AutoFilter
        End With
    End With
    Application.ScreenUpdating = True
End Sub

[and150382]

Спасибо RAN. , все работает нормально. Плотнее протестирую, если что-то не так то отпишусь.