Есть такое одно большое задание... кое-что уже получилось, осталось доделать 3 и 4 пункт... но что-то совсем не знаю как делать(((( пожалуйста, помогите кто чем может(((

1. Нажатие кнопки Регистрация заказа и оплаты автомобиля приводит к отображанию на экране окна Регистрация заказа и оплаты автомобиля с элементами управления, необходимыми для заполнения соответствующих полей листа Рабочий журнал: поля для ввода Фамилия, Имя, Отчество, Телефон покупателя, Дата заказа, Дата оплаты, Отметка об оплате и список для выбора автомобиля, заполненный из листа Автомобили, у которых отсутствует отметка о продаже. Дата оплаты может быть указана после текущей даты. При нажатии кнопки Сохранить окна Регистрация в лист Рабочий журнал добавляется новая запись.
2. Нажатие кнопки Информация об имеющихся автомобилях приводит к отображанию на экране окна Информация об имеющихся автомобилях. В верхней части окна Информация об имеющихся автомобилях находится поле с выпадающим списом для выбора марки автомобиля и кнопка Выберите марку. После выбора из поля с выпадающим списом и нажатия на кнопку Выберите марку в нижней части окна в интерфейсном элементе Список по-являются записи об автомобилях указанной марки с листа Автомобили.
3. Нажатие кнопки Информация о должниках приводит к отображанию на экране окна Информация о должниках. В верхней части окна Информация о должниках находится поле, в которое необходимо занести дату переучета (с использованием элемента Календарь), и кнопка Дата выбрана. При нажатии на кнопку Дата выбрана, в нижней части окна в интерфейсном элементе Список появляются записи о клиентах с листа Рабочий журнал, у которых нет отметки об оплате и в поле Дата оплаты указана дата ранее Даты переучета.
4. Нажатие кнопки Самые популярные марки автомобилей приводит к отображанию на экране окна Самые популярные марки автомобилей. В окне Самые популярные марки автомобилей находится элемент список, в котором выводится информация о марках автомобилей и количестве продан-ных штук каждой марки автомобиля, в порядке убывания. Эта информация подсчитывается по данным листа Рабочий журнал.
5. Нажатие кнопки Поступление на склад нового автомобиля приводит к отображанию на экране окна Поступление на склад нового автомобиля, в котором содержатся интерфейсные элементы для ввода данных об автомобиле для заполнения новой записи на листе Автомобили: марка, модель, год выпуска, цвет кузова, цена.

хм) этого я не знаю... а это важно?)

Нет, сортировка, как я понимаю, идет только по маркам и по прадажам внутри марки...

Плиз-плиз-плиз-плиз)) осталась только 4-ая кнопочка)

Private Sub UserForm_Initialize()
Dim a, i, q As Integer
ListBox1.Clear
For a = 2 To Application.CountA(Range("A:A"))
If Cells(a, 5).Value <> Cells(q, 5).Value Then
For i = 2 To Application.CountA(Range("A:A"))
If Cells(a, 5).Value = Cells(i, 5).Value Then
c = c + 1
End If
Next
ListBox1.AddItem (Cells(a, 5).Value & " " & c)
c = 0
End If
Next
End Sub

каким должно быть q, чтобы цикл не рассматривал повторяющиеся значения???