1. Est PRICE postavchika.
Sostoit iz kolonok -KOD_TOVARA|NAZAVANIE_TOVARA|PROIZVODITEL|CENA_TOVARA|NALOG
2. Est spisok kodov tovarov kotorie ne bili vvedeni v sistemu.
SPISOK kodov - Sheet1
PRICE - Sheet2

Hochu videlit cvetom v PRICE'e postavchika nevvedennie pozicii.

Sub not_update_raznica()
Application.ScreenUpdating = False
Dim Check, i, j
i = 0
j = 0
Do ' VNESHNIY po neudachnim kodam
i = i + 1
Check = False
Do While j < 5426 And Check = False ' VNUTRENNIY po PRICE'u postavchika
j = j + 1 'nomer stroki v PRICE'e postavchika
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then
Check = True
Worksheets("Sheet2").Cells(j, A).Font.Color = Red
Exit Do ' Vihozhu iz VNUTRENNEGO cikla
End If
Loop
Loop Until i > 2687 ' VIHOZHU iz vneshnego cikla
Application.ScreenUpdating = True
End Sub


NA eto pishet - Runtime error 9 Subscript out of range
Pri nazhatii na debug - videlyayet stroku -
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then

Pozhaluysta, pomogite razobratsya. Lubaya pomosch privetstvuyetsya. Zaranee spasibo.

1. Est PRICE postavchika.
Sostoit iz kolonok -KOD_TOVARA|NAZAVANIE_TOVARA|PROIZVODITEL|CENA_TOVARA|NALOG
2. Est spisok kodov tovarov kotorie ne bili vvedeni v sistemu.
SPISOK kodov - Sheet1
PRICE - Sheet2

Hochu videlit cvetom v PRICE'e postavchika nevvedennie pozicii.

Sub not_update_raznica()
Application.ScreenUpdating = False
Dim Check, i, j
i = 0
j = 0
Do ' VNESHNIY po neudachnim kodam
i = i + 1
Check = False
Do While j < 5426 And Check = False ' VNUTRENNIY po PRICE'u postavchika
j = j + 1 'nomer stroki v PRICE'e postavchika
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then
Check = True
Worksheets("Sheet2").Cells(j, A).Font.Color = Red
Exit Do ' Vihozhu iz VNUTRENNEGO cikla
End If
Loop
Loop Until i > 2687 ' VIHOZHU iz vneshnego cikla
Application.ScreenUpdating = True
End Sub


NA eto pishet - Runtime error 9 Subscript out of range
Pri nazhatii na debug - videlyayet stroku -
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then

Pozhaluysta, pomogite razobratsya. Lubaya pomosch privetstvuyetsya. Zaranee spasibo. Eto moi pervie shagi......

1. Est PRICE postavchika (5425 strok).
Sostoit iz kolonok -KOD_TOVARA|NAZAVANIE_TOVARA|PROIZVODITEL|CENA_TOVARA|NALOG
2. Est spisok kodov tovarov(2687 strok) kotorie ne bili vvedeni v sistemu.
SPISOK kodov - Sheet1
PRICE - Sheet2

Hochu videlit cvetom v PRICE'e postavchika nevvedennie pozicii.

Sub not_update_raznica()
Application.ScreenUpdating = False
Dim Check, i, j
i = 0
j = 0
Do ' VNESHNIY po neudachnim kodam
i = i + 1
Check = False
Do While j < 5426 And Check = False ' VNUTRENNIY po PRICE'u postavchika
j = j + 1 'nomer stroki v PRICE'e postavchika
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then
Check = True
Worksheets("Sheet2").Cells(j, A).Font.Color = Red
Exit Do ' Vihozhu iz VNUTRENNEGO cikla
End If
Loop
Loop Until i > 2687 ' VIHOZHU iz vneshnego cikla
Application.ScreenUpdating = True
End Sub


NA eto pishet - Runtime error 9 Subscript out of range
Pri nazhatii na debug - videlyayet stroku -
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then

Pozhaluysta, pomogite razobratsya. Lubaya pomosch privetstvuyetsya. Zaranee spasibo. Eto moi pervie shagi......

1. Est PRICE postavchika (5425 strok).
Sostoit iz kolonok -KOD_TOVARA|NAZAVANIE_TOVARA|PROIZVODITEL|CENA_TOVARA|NALOG
2. Est spisok kodov tovarov(2687 strok) kotorie ne bili vvedeni v sistemu.
SPISOK kodov - Sheet1
PRICE - Sheet2

Hochu videlit cvetom v PRICE'e postavchika nevvedennie pozicii.

Sub not_update_raznica()
Application.ScreenUpdating = False
Dim Check, i, j
i = 0
j = 0
Do ' VNESHNIY po neudachnim kodam
i = i + 1
Check = False
Do While j < 5426 And Check = False ' VNUTRENNIY po PRICE'u postavchika
j = j + 1 'nomer stroki v PRICE'e postavchika
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then
Check = True
Worksheets("Sheet2").Cells(j, A).Font.Color = Red
Exit Do ' Vihozhu iz VNUTRENNEGO cikla
End If
Loop
Loop Until i > 2687 ' VIHOZHU iz vneshnego cikla
Application.ScreenUpdating = True
End Sub


NA eto pishet - Runtime error 9 Subscript out of range
Pri nazhatii na debug - videlyayet stroku -
If Worksheets("Sheet1").Cells(i, A) = Worksheets("Sheet2").Cells(j, A) Then

Pozhaluysta, pomogite razobratsya. Lubaya pomosch privetstvuyetsya. Zaranee spasibo. Eto moi pervie shagi......