Добрый день! РЕбят помогите плиззз....

[Mikki556]

Вру работает, спасибо огромное, но вот общее число санаторных путевок считает не так....он посчитал, что их 29, хотя в таблице их всего 8..

[valerij]

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

что их 29, хотя в таблице их всего 8..

Mikki556
Вы, в задаче, указали на общее число путевок, а не по типу путевок

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

VBA рассчитывающую общее количество и общую стоимость

[Mikki556]

так чтобы считало только санаторные я разобрался , [J1] = экс + сан + обр убрал экс и обр....а вот с суммой

[Mikki556]

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

прикладываю таблицу..

в столбце D2 - D30 указан тип путевки, санаторная, образовательная и экскурсионная, в ячейке E2-E30 указаны цены на эти путевки, нужно написать программу на VBA рассчитывающую общее количество и общую стоимость санаторных путевок.

санаторных общее количество я исправил, а вот общую сумму

[valerij]

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

..а вот с суммой

Sub zxc()
For i = 2 To 30
If Cells(i, "D") = "санаторная" Then сан = сан + 1: isum = isum + Cells(i, "E")
next
[J1] = сан 
[J2] = isum
End Sub

[lazy_tom_cat]

Не понимаю я, зачем писать макросы, если есть стандартные функции Excel?

1. СЧЁТЕСЛИ
2. ПРОМЕЖУТОЧНЫЕ.ИТОГИ (для автофильтра)