Недавнее содержимое от alina_9

Помогите найти ошибку следующая процедура для ComoBox заполняет список Данные с листа"Прейскурант": Private Sub ComoBox1_Enter() ComoBox1.Clear Sheets("Прейскурант").Select Dim i As Integer, j As Integer i = 2 Do i = i + 1 If Cells(i, 1) = "" Then j = i Exit Do End...