Run-time error 424 в Excel / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Run-time error 424 в Excel

13 сообщений из 13, страница 1 из 1

Run-time error 424 в Excel

#37224086

Андрей_В1

Гость

Здравствуйте!

При выполнении макроса в Excel возникает ошибка "Run-time error 424" (нет объекта, к которому применяет код). Я начинающий в VBA. Пример сравнения ячеек взял в Инете и переделал под себя.Подскажите, кто может. Извините, что код большой.

Sub compare5()

Dim k As Integer
k = 1

Set Target = ThisWorkbook.Sheets(1).UsedRange.Columns(6).Cells

For Each cc In Target 'цикл по используемым ячейкам втрой колонки
a = cc.Rows.Row 'номер ряда анализируемй ячейки
flag = 0 'флаг совпадения

Set x = ThisWorkbook.Sheets(2).Columns(6).Find(ThisWorkbook.Sheets(1).Cells(a, 6), _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) 'поиск полного совпадения _
по 6-ой колонке значения из 6-ой колонки 2-го листа

If x Is Nothing Then ' если не нашли, уходим на след.поиск
GoTo goout
Else
iFirstAddress = x.Address 'запоминаем адрес первого совпадения

If Cells(a, 6).Value = Cells(x.Rows.Row, 6).Value Then
flag = 1 'если пара совпадает, ставим пометку

' Set nach01 = Cells(a, 8).Value
' Set nach02 = Cells(x.Rows.Row, 8).Value
Dim x1 As Range
Set x1 = [Cells(a, 8):Cells(a, 100)].Find(1, LookAt:=xlWhole)
If Not x1 Is Nothing Then nc1 = x1.Next.Value
Dim x2 As Range
Set x2 = [Cells(a, 8):Cells(a, 100)].Find(2, LookAt:=xlWhole)
If Not x2 Is Nothing Then nc2 = x2.Next.Value
Dim x3 As Range
Set x3 = [Cells(a, 8):Cells(a, 100)].Find(3, LookAt:=xlWhole)
If Not x3 Is Nothing Then nc3 = x3.Next.Value
Dim x4 As Range
Set x4 = [Cells(a, 8):Cells(a, 100)].Find(4, LookAt:=xlWhole)
If Not x4 Is Nothing Then nc4 = x4.Next.Value
Dim x5 As Range
Set x5 = [Cells(a, 8):Cells(a, 100)].Find(5, LookAt:=xlWhole)
If Not x5 Is Nothing Then nc5 = x5.Next.Value
Dim x6 As Range
Set x6 = [Cells(a, 8):Cells(a, 100)].Find(6, LookAt:=xlWhole)
If Not x6 Is Nothing Then nc6 = x6.Next.Value
Dim x7 As Range
Set x7 = [Cells(a, 8):Cells(a, 100)].Find(7, LookAt:=xlWhole)
If Not x7 Is Nothing Then nc7 = x7.Next.Value
Dim x8 As Range
Set x8 = [Cells(a, 8):Cells(a, 100)].Find(8, LookAt:=xlWhole)
If Not x8 Is Nothing Then nc8 = x8.Next.Value
Dim x9 As Range
Set x9 = [Cells(a, 8):Cells(a, 100)].Find(9, LookAt:=xlWhole)
If Not x9 Is Nothing Then nc9 = x9.Next.Value
Dim x10 As Range
Set x10 = [Cells(a, 8):Cells(a, 100)].Find(10, LookAt:=xlWhole)
If Not x10 Is Nothing Then nc10 = x10.Next.Value
Dim x11 As Range
Set x11 = [Cells(a, 8):Cells(a, 100)].Find(11, LookAt:=xlWhole)
If Not x11 Is Nothing Then nc11 = x11.Next.Value
Dim x12 As Range
Set x12 = [Cells(a, 8):Cells(a, 100)].Find(12, LookAt:=xlWhole)
If Not x12 Is Nothing Then nc12 = x12.Next.Value

Dim y1 As Range
Set y1 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(1, LookAt:=xlWhole)
If Not y1 Is Nothing Then ns1 = y1.Next.Value
Dim y2 As Range
Set y2 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(2, LookAt:=xlWhole)
If Not y2 Is Nothing Then ns2 = y2.Next.Value
Dim y3 As Range
Set y3 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(3, LookAt:=xlWhole)
If Not y3 Is Nothing Then ns3 = y3.Next.Value
Dim y4 As Range
Set y4 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(4, LookAt:=xlWhole)
If Not y4 Is Nothing Then ns4 = y4.Next.Value
Dim y5 As Range
Set y5 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(5, LookAt:=xlWhole)
If Not y5 Is Nothing Then ns5 = y5.Next.Value
Dim y6 As Range
Set y6 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(6, LookAt:=xlWhole)
If Not y6 Is Nothing Then ns1 = y6.Next.Value
Dim y7 As Range
Set y7 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(7, LookAt:=xlWhole)
If Not y7 Is Nothing Then ns7 = y7.Next.Value
Dim y8 As Range
Set y8 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(8, LookAt:=xlWhole)
If Not y8 Is Nothing Then ns8 = y8.Next.Value
Dim y9 As Range
Set y9 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(9, LookAt:=xlWhole)
If Not y9 Is Nothing Then ns9 = y9.Next.Value
Dim y10 As Range
Set y10 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(10, LookAt:=xlWhole)
If Not y10 Is Nothing Then ns1 = y10.Next.Value
Dim y11 As Range
Set y11 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(11, LookAt:=xlWhole)
If Not y11 Is Nothing Then ns11 = y11.Next.Value
Dim y12 As Range
Set y12 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(12, LookAt:=xlWhole)
If Not y12 Is Nothing Then ns12 = y12.Next.Value

If nc1 = ns1 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "1"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc1
k = k + 1

If nc2 = ns2 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "2"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc2
k = k + 1
If nc3 = ns3 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "3"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc3
k = k + 1
If nc4 = ns4 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "4"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc4
k = k + 1

If nc5 = ns5 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "5"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc5
k = k + 1

If nc6 = ns6 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "6"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc6
k = k + 1

If nc7 = ns7 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "7"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc7
k = k + 1

If nc8 = ns8 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "8"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc8
k = k + 1

If nc9 = ns9 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "9"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc9
k = k + 1

If nc10 = ns10 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "10"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc10
k = k + 1

If nc11 = ns11 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "11"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc11
k = k + 1

If nc12 = ns12 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "12"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc12
k = k + 1

GoTo goout ' уходим на след.поиск
End If

Do ' запускаемся на поиск след.совпадений
Set x = ThisWorkbook.Sheets(1).Columns(6).FindNext(x)
iSecondAddress = x.Address 'запоминаем адрес следующего совпадения

If Cells(a, 6).Value = Cells(x.Rows.Row, 6).Value Then
flag = 1
'Set nach01 = Cells(a, 8).Value
'Set nach02 = Cells(x.Rows.Row, 8).Value

Dim z1 As Range
Set z1 = [Cells(a, 8):Cells(a, 100)].Find(1, LookAt:=xlWhole)
If Not z1 Is Nothing Then nc1 = x1.Next.Value
Dim z2 As Range
Set z2 = [Cells(a, 8):Cells(a, 100)].Find(2, LookAt:=xlWhole)
If Not z2 Is Nothing Then nc2 = x2.Next.Value
Dim z3 As Range
Set z3 = [Cells(a, 8):Cells(a, 100)].Find(3, LookAt:=xlWhole)
If Not z3 Is Nothing Then nc3 = x3.Next.Value
Dim z4 As Range
Set z4 = [Cells(a, 8):Cells(a, 100)].Find(4, LookAt:=xlWhole)
If Not z4 Is Nothing Then nc4 = x4.Next.Value
Dim z5 As Range
Set z5 = [Cells(a, 8):Cells(a, 100)].Find(5, LookAt:=xlWhole)
If Not z5 Is Nothing Then nc5 = x5.Next.Value
Dim z6 As Range
Set z6 = [Cells(a, 8):Cells(a, 100)].Find(6, LookAt:=xlWhole)
If Not z6 Is Nothing Then nc6 = x6.Next.Value
Dim z7 As Range
Set z7 = [Cells(a, 8):Cells(a, 100)].Find(7, LookAt:=xlWhole)
If Not z7 Is Nothing Then nc7 = x7.Next.Value
Dim z8 As Range
Set z8 = [Cells(a, 8):Cells(a, 100)].Find(8, LookAt:=xlWhole)
If Not z8 Is Nothing Then nc8 = x8.Next.Value
Dim z9 As Range
Set z9 = [Cells(a, 8):Cells(a, 100)].Find(9, LookAt:=xlWhole)
If Not z9 Is Nothing Then nc9 = x9.Next.Value
Dim z10 As Range
Set z10 = [Cells(a, 8):Cells(a, 100)].Find(10, LookAt:=xlWhole)
If Not z10 Is Nothing Then nc10 = x10.Next.Value
Dim z11 As Range
Set z11 = [Cells(a, 8):Cells(a, 100)].Find(11, LookAt:=xlWhole)
If Not z11 Is Nothing Then nc11 = x11.Next.Value
Dim z12 As Range
Set z12 = [Cells(a, 8):Cells(a, 100)].Find(12, LookAt:=xlWhole)
If Not x12 Is Nothing Then nc12 = x12.Next.Value

Dim v1 As Range
Set v1 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(1, LookAt:=xlWhole)
If Not v1 Is Nothing Then ns1 = y1.Next.Value
Dim v2 As Range
Set v2 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(2, LookAt:=xlWhole)
If Not v2 Is Nothing Then ns2 = y2.Next.Value
Dim v3 As Range
Set v3 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(3, LookAt:=xlWhole)
If Not v3 Is Nothing Then ns3 = y3.Next.Value
Dim v4 As Range
Set v4 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(4, LookAt:=xlWhole)
If Not v4 Is Nothing Then ns4 = y4.Next.Value
Dim v5 As Range
Set v5 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(5, LookAt:=xlWhole)
If Not v5 Is Nothing Then ns5 = y5.Next.Value
Dim v6 As Range
Set v6 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(6, LookAt:=xlWhole)
If Not v6 Is Nothing Then ns1 = y6.Next.Value
Dim v7 As Range
Set v7 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(7, LookAt:=xlWhole)
If Not v7 Is Nothing Then ns7 = y7.Next.Value
Dim v8 As Range
Set v8 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(8, LookAt:=xlWhole)
If Not v8 Is Nothing Then ns8 = y8.Next.Value
Dim v9 As Range
Set v9 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(9, LookAt:=xlWhole)
If Not v9 Is Nothing Then ns9 = y9.Next.Value
Dim v10 As Range
Set v10 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(10, LookAt:=xlWhole)
If Not v10 Is Nothing Then ns1 = y10.Next.Value
Dim v11 As Range
Set v11 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(11, LookAt:=xlWhole)
If Not v11 Is Nothing Then ns11 = y11.Next.Value
Dim v12 As Range
Set v12 = [Cells(x.Rows.Row, 8):Cells(a, 100)].Find(12, LookAt:=xlWhole)
If Not v12 Is Nothing Then ns12 = y12.Next.Value

If nc1 = ns1 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "1"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc1
k = k + 1

If nc2 = ns2 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "2"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc2
k = k + 1
If nc3 = ns3 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "3"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc3
k = k + 1
If nc4 = ns4 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "4"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc4
k = k + 1

If nc5 = ns5 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "5"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc5
k = k + 1

If nc6 = ns6 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "6"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc6
k = k + 1

If nc7 = ns7 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "7"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc7
k = k + 1

If nc8 = ns8 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "8"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc8
k = k + 1

If nc9 = ns9 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "9"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc9
k = k + 1

If nc10 = ns10 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "10"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc10
k = k + 1

If nc11 = ns11 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "11"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc11
k = k + 1

If nc12 = ns12 Then ThisWorkbook.Sheets(3).Range("A" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 1).Value
ThisWorkbook.Sheets(3).Range("B" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 2).Value
ThisWorkbook.Sheets(3).Range("C" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 3).Value
ThisWorkbook.Sheets(3).Range("D" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 4).Value
ThisWorkbook.Sheets(3).Range("E" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 5).Value
ThisWorkbook.Sheets(3).Range("F" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 6).Value
ThisWorkbook.Sheets(3).Range("G" & Str(k)).Value = ThisWorkbook.Sheets(1).Cells(a, 7).Value
ThisWorkbook.Sheets(3).Range("H" & Str(k)).Value = "12"
ThisWorkbook.Sheets(3).Range("I" & Str(k)).Value = nc12
k = k + 1

'если пара совпадает, ставим пометку и
Exit Do ' выходим в итоге совсем из поиска
End If

Loop While iFirstAddress <> iSecondAddress 'ищем, пока не вернёмся на первое совпадение

End If

goout: 'процедура выхода из цикла поиска
'If flag = 0 Then

Next

'если нет результата поиска или пара не совпадает, тогда пишем пометку в 4-ю ячейку
'следующая ячейка

End Sub

...

Рейтинг:

0 / 0

20.04.2011, 11:26

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224090

Shamanus

Участник

Откуда: мы пришли, кто мы, куда идем?

Сообщения: 6 294

Рейтинг: 0 / 0

Андрей_В1,

а как же теги SRC и SPOILER

Вы бы хотябы указали место где ошибка возникает

...

Рейтинг:

0 / 0

20.04.2011, 11:27

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224124

Андрей_В1

Гость

Shamanus,

Строку, где ошибка не показывает.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
416.
417.
418.
419.
420.
421.
422.
423.
424.
425.
426.
427.
428.
429.
430.
431.
432.
433.
434.
435.
436.
437.
438.
439.
440.
441.
442.
443.
444.
445.
446.
447.
448.
449.
450.
451.
452.
453.
454.
455.
456.
457.
458.
459.
460.
461.
462.
463.
464.
465.
466.
467.
468.
469.

Sub compare5()

 Dim k As Integer
    k =  1 

Set Target = ThisWorkbook.Sheets( 1 ).UsedRange.Columns( 6 ).Cells

For Each cc In Target 'цикл по используемым ячейкам втрой колонки
a = cc.Rows.Row 'номер ряда анализируемй ячейки
flag =  0  'флаг совпадения

Set x = ThisWorkbook.Sheets( 2 ).Columns( 6 ).Find(ThisWorkbook.Sheets( 1 ).Cells(a,  6 ), _
    LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) 'поиск полного совпадения _
    по  6 -ой колонке значения из  6 -ой колонки  2 -го листа
    
If x Is Nothing Then ' если не нашли, уходим на след.поиск
GoTo goout
Else
    iFirstAddress = x.Address 'запоминаем адрес первого совпадения
    
            If Cells(a,  6 ).Value = Cells(x.Rows.Row,  6 ).Value Then
            flag =  1  'если пара совпадает, ставим пометку
            
           ' Set nach01 = Cells(a, 8).Value
           ' Set nach02 = Cells(x.Rows.Row, 8).Value
            Dim x1 As Range
    Set x1 = [Cells(a,  8 ):Cells(a,  100 )].Find( 1 , LookAt:=xlWhole)
    If Not x1 Is Nothing Then nc1 = x1.Next.Value
     Dim x2 As Range
    Set x2 = [Cells(a,  8 ):Cells(a,  100 )].Find( 2 , LookAt:=xlWhole)
    If Not x2 Is Nothing Then nc2 = x2.Next.Value
     Dim x3 As Range
    Set x3 = [Cells(a,  8 ):Cells(a,  100 )].Find( 3 , LookAt:=xlWhole)
    If Not x3 Is Nothing Then nc3 = x3.Next.Value
     Dim x4 As Range
    Set x4 = [Cells(a,  8 ):Cells(a,  100 )].Find( 4 , LookAt:=xlWhole)
    If Not x4 Is Nothing Then nc4 = x4.Next.Value
     Dim x5 As Range
    Set x5 = [Cells(a,  8 ):Cells(a,  100 )].Find( 5 , LookAt:=xlWhole)
    If Not x5 Is Nothing Then nc5 = x5.Next.Value
     Dim x6 As Range
    Set x6 = [Cells(a,  8 ):Cells(a,  100 )].Find( 6 , LookAt:=xlWhole)
    If Not x6 Is Nothing Then nc6 = x6.Next.Value
     Dim x7 As Range
    Set x7 = [Cells(a,  8 ):Cells(a,  100 )].Find( 7 , LookAt:=xlWhole)
    If Not x7 Is Nothing Then nc7 = x7.Next.Value
     Dim x8 As Range
    Set x8 = [Cells(a,  8 ):Cells(a,  100 )].Find( 8 , LookAt:=xlWhole)
    If Not x8 Is Nothing Then nc8 = x8.Next.Value
     Dim x9 As Range
    Set x9 = [Cells(a,  8 ):Cells(a,  100 )].Find( 9 , LookAt:=xlWhole)
    If Not x9 Is Nothing Then nc9 = x9.Next.Value
      Dim x10 As Range
    Set x10 = [Cells(a,  8 ):Cells(a,  100 )].Find( 10 , LookAt:=xlWhole)
    If Not x10 Is Nothing Then nc10 = x10.Next.Value
     Dim x11 As Range
    Set x11 = [Cells(a,  8 ):Cells(a,  100 )].Find( 11 , LookAt:=xlWhole)
    If Not x11 Is Nothing Then nc11 = x11.Next.Value
     Dim x12 As Range
    Set x12 = [Cells(a,  8 ):Cells(a,  100 )].Find( 12 , LookAt:=xlWhole)
    If Not x12 Is Nothing Then nc12 = x12.Next.Value
    
     Dim y1 As Range
    Set y1 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 1 , LookAt:=xlWhole)
    If Not y1 Is Nothing Then ns1 = y1.Next.Value
        Dim y2 As Range
    Set y2 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 2 , LookAt:=xlWhole)
    If Not y2 Is Nothing Then ns2 = y2.Next.Value
    Dim y3 As Range
    Set y3 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 3 , LookAt:=xlWhole)
    If Not y3 Is Nothing Then ns3 = y3.Next.Value
    Dim y4 As Range
    Set y4 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 4 , LookAt:=xlWhole)
    If Not y4 Is Nothing Then ns4 = y4.Next.Value
    Dim y5 As Range
    Set y5 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 5 , LookAt:=xlWhole)
    If Not y5 Is Nothing Then ns5 = y5.Next.Value
    Dim y6 As Range
    Set y6 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 6 , LookAt:=xlWhole)
    If Not y6 Is Nothing Then ns1 = y6.Next.Value
    Dim y7 As Range
    Set y7 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 7 , LookAt:=xlWhole)
    If Not y7 Is Nothing Then ns7 = y7.Next.Value
    Dim y8 As Range
    Set y8 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 8 , LookAt:=xlWhole)
    If Not y8 Is Nothing Then ns8 = y8.Next.Value
    Dim y9 As Range
    Set y9 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 9 , LookAt:=xlWhole)
    If Not y9 Is Nothing Then ns9 = y9.Next.Value
    Dim y10 As Range
    Set y10 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 10 , LookAt:=xlWhole)
    If Not y10 Is Nothing Then ns1 = y10.Next.Value
    Dim y11 As Range
    Set y11 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 11 , LookAt:=xlWhole)
    If Not y11 Is Nothing Then ns11 = y11.Next.Value
    Dim y12 As Range
    Set y12 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 12 , LookAt:=xlWhole)
    If Not y12 Is Nothing Then ns12 = y12.Next.Value
    
   
    
    If nc1 = ns1 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "1"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc1
                    k = k +  1 
                    
    If nc2 = ns2 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "2"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc2
                    k = k +  1 
    If nc3 = ns3 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "3"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc3
                    k = k +  1 
   If nc4 = ns4 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "4"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc4
                    k = k +  1 
                    
 If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "5"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc5
                    k = k +  1 
                    
If nc6 = ns6 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "6"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc6
                    k = k +  1 
                    
If nc7 = ns7 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "7"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc7
                    k = k +  1 
                    
 If nc8 = ns8 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "8"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc8
                    k = k +  1 
                    
 If nc9 = ns9 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "9"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc9
                    k = k +  1 
                    
If nc10 = ns10 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "10"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc10
                    k = k +  1 
                    
If nc11 = ns11 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "11"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc11
                    k = k +  1 
            
  If nc12 = ns12 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "12"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc12
                    k = k +  1 
            
            GoTo goout  ' уходим на след.поиск
            End If
            
    Do ' запускаемся на поиск след.совпадений
    Set x = ThisWorkbook.Sheets( 1 ).Columns( 6 ).FindNext(x)
    iSecondAddress = x.Address 'запоминаем адрес следующего совпадения
    
        If Cells(a,  6 ).Value = Cells(x.Rows.Row,  6 ).Value Then
        flag =  1 
        'Set nach01 = Cells(a, 8).Value
        'Set nach02 = Cells(x.Rows.Row, 8).Value
        
                 Dim z1 As Range
    Set z1 = [Cells(a,  8 ):Cells(a,  100 )].Find( 1 , LookAt:=xlWhole)
    If Not z1 Is Nothing Then nc1 = x1.Next.Value
     Dim z2 As Range
    Set z2 = [Cells(a,  8 ):Cells(a,  100 )].Find( 2 , LookAt:=xlWhole)
    If Not z2 Is Nothing Then nc2 = x2.Next.Value
     Dim z3 As Range
    Set z3 = [Cells(a,  8 ):Cells(a,  100 )].Find( 3 , LookAt:=xlWhole)
    If Not z3 Is Nothing Then nc3 = x3.Next.Value
     Dim z4 As Range
    Set z4 = [Cells(a,  8 ):Cells(a,  100 )].Find( 4 , LookAt:=xlWhole)
    If Not z4 Is Nothing Then nc4 = x4.Next.Value
     Dim z5 As Range
    Set z5 = [Cells(a,  8 ):Cells(a,  100 )].Find( 5 , LookAt:=xlWhole)
    If Not z5 Is Nothing Then nc5 = x5.Next.Value
     Dim z6 As Range
    Set z6 = [Cells(a,  8 ):Cells(a,  100 )].Find( 6 , LookAt:=xlWhole)
    If Not z6 Is Nothing Then nc6 = x6.Next.Value
     Dim z7 As Range
    Set z7 = [Cells(a,  8 ):Cells(a,  100 )].Find( 7 , LookAt:=xlWhole)
    If Not z7 Is Nothing Then nc7 = x7.Next.Value
     Dim z8 As Range
    Set z8 = [Cells(a,  8 ):Cells(a,  100 )].Find( 8 , LookAt:=xlWhole)
    If Not z8 Is Nothing Then nc8 = x8.Next.Value
     Dim z9 As Range
    Set z9 = [Cells(a,  8 ):Cells(a,  100 )].Find( 9 , LookAt:=xlWhole)
    If Not z9 Is Nothing Then nc9 = x9.Next.Value
      Dim z10 As Range
    Set z10 = [Cells(a,  8 ):Cells(a,  100 )].Find( 10 , LookAt:=xlWhole)
    If Not z10 Is Nothing Then nc10 = x10.Next.Value
     Dim z11 As Range
    Set z11 = [Cells(a,  8 ):Cells(a,  100 )].Find( 11 , LookAt:=xlWhole)
    If Not z11 Is Nothing Then nc11 = x11.Next.Value
     Dim z12 As Range
    Set z12 = [Cells(a,  8 ):Cells(a,  100 )].Find( 12 , LookAt:=xlWhole)
    If Not x12 Is Nothing Then nc12 = x12.Next.Value
    
     Dim v1 As Range
    Set v1 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 1 , LookAt:=xlWhole)
    If Not v1 Is Nothing Then ns1 = y1.Next.Value
        Dim v2 As Range
    Set v2 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 2 , LookAt:=xlWhole)
    If Not v2 Is Nothing Then ns2 = y2.Next.Value
    Dim v3 As Range
    Set v3 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 3 , LookAt:=xlWhole)
    If Not v3 Is Nothing Then ns3 = y3.Next.Value
    Dim v4 As Range
    Set v4 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 4 , LookAt:=xlWhole)
    If Not v4 Is Nothing Then ns4 = y4.Next.Value
    Dim v5 As Range
    Set v5 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 5 , LookAt:=xlWhole)
    If Not v5 Is Nothing Then ns5 = y5.Next.Value
    Dim v6 As Range
    Set v6 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 6 , LookAt:=xlWhole)
    If Not v6 Is Nothing Then ns1 = y6.Next.Value
    Dim v7 As Range
    Set v7 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 7 , LookAt:=xlWhole)
    If Not v7 Is Nothing Then ns7 = y7.Next.Value
    Dim v8 As Range
    Set v8 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 8 , LookAt:=xlWhole)
    If Not v8 Is Nothing Then ns8 = y8.Next.Value
    Dim v9 As Range
    Set v9 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 9 , LookAt:=xlWhole)
    If Not v9 Is Nothing Then ns9 = y9.Next.Value
    Dim v10 As Range
    Set v10 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 10 , LookAt:=xlWhole)
    If Not v10 Is Nothing Then ns1 = y10.Next.Value
    Dim v11 As Range
    Set v11 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 11 , LookAt:=xlWhole)
    If Not v11 Is Nothing Then ns11 = y11.Next.Value
    Dim v12 As Range
    Set v12 = [Cells(x.Rows.Row,  8 ):Cells(a,  100 )].Find( 12 , LookAt:=xlWhole)
    If Not v12 Is Nothing Then ns12 = y12.Next.Value
    
    
    
    
    If nc1 = ns1 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "1"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc1
                    k = k +  1 
                    
    If nc2 = ns2 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "2"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc2
                    k = k +  1 
    If nc3 = ns3 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "3"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc3
                    k = k +  1 
   If nc4 = ns4 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "4"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc4
                    k = k +  1 
                    
 If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "5"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc5
                    k = k +  1 
                    
If nc6 = ns6 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "6"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc6
                    k = k +  1 
                    
If nc7 = ns7 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "7"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc7
                    k = k +  1 
                    
 If nc8 = ns8 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "8"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc8
                    k = k +  1 
                    
 If nc9 = ns9 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "9"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc9
                    k = k +  1 
                    
If nc10 = ns10 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "10"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc10
                    k = k +  1 
                    
If nc11 = ns11 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "11"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc11
                    k = k +  1 
            
  If nc12 = ns12 Then ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & Str(k)).Value = "12"
                    ThisWorkbook.Sheets( 3 ).Range("I" & Str(k)).Value = nc12
                    k = k +  1 
        
        
        'если пара совпадает, ставим пометку и
        Exit Do ' выходим в итоге совсем из поиска
        End If
        
    Loop While iFirstAddress <> iSecondAddress 'ищем, пока не вернёмся на первое совпадение
    
End If

goout: 'процедура выхода из цикла поиска
'If flag = 0 Then

Next

        'если нет результата поиска или пара не совпадает, тогда пишем пометку в 4-ю ячейку
 'следующая ячейка

End Sub

...

Рейтинг:

0 / 0

20.04.2011, 11:44

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224150

Shamanus

Участник

Откуда: мы пришли, кто мы, куда идем?

Сообщения: 6 294

Рейтинг: 0 / 0

Хватить пихать код в каждое сообщение
У меня код отрабатывает без ошибок

Выложите Ваш файл или его часть где проявляется ошибка

...

Рейтинг:

0 / 0

20.04.2011, 11:57

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224293

Андрей_В1

Гость

Shamanus,

Выкладываю тестовый файл.

...

Рейтинг:

0 / 0

20.04.2011, 12:45

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224327

Shamanus

Участник

Откуда: мы пришли, кто мы, куда идем?

Сообщения: 6 294

Рейтинг: 0 / 0

Андрей_В1,

во первых перенесите это в код модуля из кода листа, чтобы мониторить местоположение ошибки.
А во вторых VBA не понимает

Код: plaintext

Set x1 = [Cells(a,  8 ):Cells(a,  100 )].Find( 1 , LookAt:=xlWhole)

переделайте на

Код: plaintext

 Set x1 = Range(Cells(a,  8 ), Cells(a,  100 )).Find( 1 , LookAt:=xlWhole)

и будет Вам счастье

и в третьих, поучите массивы, код сократится в десятки раз.

...

Рейтинг:

0 / 0

20.04.2011, 12:55

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224532

Андрей_В1

Гость

Shamanus,

Спасибо, исправил. Сейчас на последний Next ругается "Next without For". Может подскажите, где ошибка в цикле.

...

Рейтинг:

0 / 0

20.04.2011, 13:55

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224561

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Андрей_В1Shamanus,

Спасибо, исправил. Сейчас на последний Next ругается "Next without For". Может подскажите, где ошибка в цикле.

Ошибка скорее всего не в цикле, а в IF-е - где-то он не закрыт End If-ом

...

Рейтинг:

0 / 0

20.04.2011, 14:10

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224564

Shamanus

Участник

Откуда: мы пришли, кто мы, куда идем?

Сообщения: 6 294

Рейтинг: 0 / 0

Андрей_В1Shamanus,

Спасибо, исправил. Сейчас на последний Next ругается "Next without For". Может подскажите, где ошибка в цикле.
Вы знаете, код очень непонятен мне по своему назначению, поэтому я затрудняюсь понять, что именно должен делать этот некст, но сложилось впечатление что он вне If-а поэтому и ругается.

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

...

Рейтинг:

0 / 0

20.04.2011, 14:12

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224760

Андрей_В1

Гость

Shamanus,

Да, ищет следущие, за,в которых,1,2,3... на 1-ом и 2-ом листе. Если хотя бы одна пара совпадает, строку с 1-го на 3 лист.

...

Рейтинг:

0 / 0

20.04.2011, 15:42

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224838

Андрей_В1

Гость

Next вроде бы прошел. Теперь ругается на строчку

Код: plaintext

ThisWorkbook.Sheets( 3 ).Range("A" & Str(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value

"Run_time error 1004: Application-defined or object-defined error"

...

Рейтинг:

0 / 0

20.04.2011, 16:08

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37224863

Shamanus

Участник

Откуда: мы пришли, кто мы, куда идем?

Сообщения: 6 294

Рейтинг: 0 / 0

Андрей_В1,

Вы техзадание невнятно объяснили (для меня по крайней мере)
какая часть с какой сравнивается

...

Рейтинг:

0 / 0

20.04.2011, 16:18

| Ответить | Цитировать | Написать

Run-time error 424 в Excel

#37225193

Андрей_В1

Гость

Shamanus,

Ищет построчно ячейку в которой есть цифра 1( или 2,3...) на листе 1 и 2. Номера поиска строк одинаковые в листах 1 и 2. Переменной присваивается значение следующей ячейки после найденного 1( или 2,3...) на 1-ом листе и сравнивается по переменной с найденным после 1( или 2,3...) на втором листе. Если найденное после 1 на 1-ом листе совпадает с найденным после 1 на 2-ом листе (или 2,3...), то вся строчка с 1-го листа копируется на 3-й.

...

Рейтинг:

0 / 0

20.04.2011, 18:12

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Run-time error 424 в Excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=103&tid=2158788]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	39ms
get topic data:	11ms
get forum data:	2ms
get page messages:	57ms
get tp. blocked users:	2ms
others:	354ms

total:	497ms