IMHO.WS - Показать сообщение отдельно

Alex Dark · 27.05.2009, 09:59

Извините был напуган (из анекдота)

Подправь две строки выделенные красным.

Код:

            If ok = Sheets(1).Cells(i, Columns.Count).End(xlToLeft).Column Then
                'Совпадение
                Sheets(4).Select
                Rows(i4).Delete
                i3 = i3 + 1
                ok2 = -1
                Exit Do
            Else
...

        If Not ok2 = -1 Then
            Sheets(3).Select
            Rows(i3).Delete
            i4 = i4 + 1
        End If

27.05.2009, 09:59	# 610
Alex Dark КОТовский Регистрация: 12.03.2003 Адрес: ОренБюргер Пол: Male Сообщения: 1 569	Извините был напуган (из анекдота) Подправь две строки выделенные красным. Код: If ok = Sheets(1).Cells(i, Columns.Count).End(xlToLeft).Column Then 'Совпадение Sheets(4).Select Rows(i4).Delete i3 = i3 + 1 ok2 = -1 Exit Do Else ... If Not ok2 = -1 Then Sheets(3).Select Rows(i3).Delete i4 = i4 + 1 End If __________________ Все мы финансовые гении и эффективные менеджеры, только не у всех одногруппник или сосед по даче - президент.