ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Почему не видит If
13 сообщений из 13, страница 1 из 1
Почему не видит If
    #37260437
Андрей_В1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей_В1
Гость
Здравствуйте!
Макрос по поиску и сравнениию ячеек. Ругается на 169 строчку "End If without block if" на блоке
 

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "5"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc5
                    k = k +  1 
                    End If

На предыдущие такие же блоки не ругается.

Полный текст макроса.
Код: 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.
470.
471.
472.
473.
474.
475.
476.
477.
478.
479.
480.
481.
482.
483.
484.
485.
486.
487.
488.
489.
490.
491.
492.
493.
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 'запоминаем адрес первого совпадения
    
    ThisWorkbook.Sheets( 1 ).Activate
            If ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value = ThisWorkbook.Sheets( 2 ).Cells(x.Rows.Row,  6 ).Value Then
            flag =  1  'если пара совпадает, ставим пометку
     '       MsgBox (Cells(a, 6).Value)
            
           ' Set nach01 = Cells(a, 8).Value
           ' Set nach02 = Cells(x.Rows.Row, 8).Value
             ThisWorkbook.Sheets( 1 ).Activate
            Dim x1 As Range
    Set x1 = Worksheets("Лист1").Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(Cells(a,  8 ), Cells(a,  100 )).Find( 12 , LookAt:=xlWhole)
    If Not x12 Is Nothing Then nc12 = x12.Next.Value
    
    ThisWorkbook.Sheets( 2 ).Activate
      
      Dim y1 As Range
    Set y1 = Worksheets("Лист2").Range(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 = Worksheets("Лист2").Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(Cells(x.Rows.Row,  8 ), Cells(a,  100 )).Find( 6 , LookAt:=xlWhole)
    If Not y6 Is Nothing Then ns6 = y6.Next.Value
    Dim y7 As Range
    Set y7 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(Cells(x.Rows.Row,  8 ), Cells(a,  100 )).Find( 10 , LookAt:=xlWhole)
    If Not y10 Is Nothing Then ns10 = y10.Next.Value
    Dim y11 As Range
    Set y11 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(Cells(x.Rows.Row,  8 ), Cells(a,  100 )).Find( 12 , LookAt:=xlWhole)
    If Not y12 Is Nothing Then ns12 = y12.Next.Value
    
   ThisWorkbook.Sheets( 3 ).Activate
    
    If nc1 = ns1 Then
    
    ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "1"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc1
                    k = k +  1 
                    End If
                    
                    
    If nc2 = ns2 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "2"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc2
                    k = k +  1 
                    End If
                    
                    
    If nc3 = ns3 Then
    ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "3"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc3
                    k = k +  1 
                    End If
   If nc4 = ns4 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "4"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc4
                    k = k +  1 
                    End If
                    
  If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "5"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc5
                    k = k +  1 
                    End If
                    
 
                 
If nc6 = ns6 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "6"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc6
                    k = k +  1 
                 
If nc7 = ns7 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "7"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc7
                    k = k +  1 
                    
 If nc8 = ns8 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "8"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc8
                    k = k +  1 
                    
 If nc9 = ns9 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "9"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc9
                    k = k +  1 
                    
If nc10 = ns10 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "10"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc10
                    k = k +  1 
                    
If nc11 = ns11 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "11"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc11
                    k = k +  1 
            
  If nc12 = ns12 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "12"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc12
                    k = k +  1 
            
            GoTo goout  ' уходим на след.поиск
            
            
    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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 1 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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 = ThisWorkbook.Sheets( 2 ).Range(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" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "1"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc1
                    k = k +  1 
                    End If
    If nc2 = ns2 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "2"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc2
                    k = k +  1 
                     
    If nc3 = ns3 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "3"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc3
                    k = k +  1 
                    
   If nc4 = ns4 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "4"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc4
                    k = k +  1 
                    
                    
 If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "5"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc5
                    k = k +  1 
                    
                    
If nc6 = ns6 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "6"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc6
                    k = k +  1 
                    
If nc7 = ns7 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "7"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc7
                    k = k +  1 
                    
                    
 If nc8 = ns8 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "8"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc8
                    k = k +  1 
                    
 If nc9 = ns9 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "9"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc9
                    k = k +  1 
                    
If nc10 = ns10 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "10"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc10
                    k = k +  1 
                    
If nc11 = ns11 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "11"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc11
                    k = k +  1 
            
  If nc12 = ns12 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "12"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(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
14.05.2011, 10:06
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260503
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андрей_В1Здравствуйте!
Макрос по поиску и сравнениию ячеек. Ругается на 169 строчку "End If without block if" на блоке
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "5"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc5
                    k = k +  1 
                    End If


Изучай синтаксис If
Строка
Код: plaintext
If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets
есть законченное условие, не требующее End If
Строка
Код: plaintext
ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
и последующие выполнятся ВСЕГДА, вне зависимости от условия nc5 = ns5
Строка
Код: plaintext
End If
Ни к какому If-у не относится, поэтому компилятор на нее ругается

авторНа предыдущие такие же блоки не ругается.
они не такие же
найди самостоятельно одно отличие
...
Рейтинг: 0 / 0
14.05.2011, 11:32
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260506
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А вообще, как раньше тебе советовали, давно пора поизучать циклы.
Что будет, если условий будет не 12, а 100. Ты сто раз напишешь одно и то же?

весь этот код можно ужать до одного экрана
...
Рейтинг: 0 / 0
14.05.2011, 11:34
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260535
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
ОФФ:
 
Плакалъ. От зависти. Это же сколько трудолюбия уТС! Зависть гложет не по-детски.
...
Рейтинг: 0 / 0
14.05.2011, 12:24
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260543
Андрей_В1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей_В1
Гость
Что не так в синтаксисе? И отличий в циклах не нашел. Копировал с предыдущего и менял цифры. Ошибка оставалась.
...
Рейтинг: 0 / 0
14.05.2011, 12:37
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260555
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андрей_В1Что не так в синтаксисе? И отличий в циклах не нашел. Копировал с предыдущего и менял цифры. Ошибка оставалась.

Прочитай внимательно:
а) мое сообщение о том, где расписано, что не так в синтаксисе
б) хелп по синтаксису If

Конечно, я могу разжевать совсем до конца, но надо ж учиться думать самостоятельно. Я еще в прошлый раз обратил внимание на то, что многие строки выполняются безусловно, не находясь "внутри" if, думал, когда же ты увидишь, что программа работает не так как надо....
...
Рейтинг: 0 / 0
14.05.2011, 13:04
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260558
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Андрей_В1,
присмотритесь
 
Код: 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.
For Each cc In Target 'цикл по используемым ячейкам втрой колонки
	' команды без ветвлений
	If x Is Nothing Then ' если не нашли, уходим на след.поиск
		GoTo goout
	Else
	' команды без ветвлений
		If ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value = ThisWorkbook.Sheets( 2 ).Cells(x.Rows.Row,  6 ).Value Then
		' команды без ветвлений. Ну почти без
		If nc1 = ns1 Then
			' команды без ветвлений.
		End If
		' команды без ветвлений. Ну почти без
	End If
                    
                    
	If nc3 = ns3 Then
			' команды без ветвлений.
	End If

	' команды без ветвлений. Ну почти без
	End If	' первый потерянный End If
						
	' команды без ветвлений. Ну почти без
	End If	' второй потерянный End If

	' команды без ветвлений. Ну почти без
            GoTo goout  ' уходим на след.поиск
            
            
	Do ' запускаемся на поиск след.совпадений
	   
		' команды без ветвлений. Ну почти без
		End If	' третий потерянный End If

		' команды без ветвлений. Ну почти без        
		
		'если пара совпадает, ставим пометку и
			Exit Do ' выходим в итоге совсем из поиска
			
	Loop While iFirstAddress <> iSecondAddress 'ищем, пока не вернёмся на первое совпадение
 
goout: 'процедура выхода из цикла поиска
Next
...
Рейтинг: 0 / 0
14.05.2011, 13:06
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260588
Андрей_В1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей_В1
Гость
скукотища,

Ну объясните, пожалуйста.
...
Рейтинг: 0 / 0
14.05.2011, 13:30
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260589
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
А еще 100500 ThisWorkbook.Sheets(3) и Sheets(1) делают скрипт раза в три-четыре медленнее, чем он мог бы быть.
...
Рейтинг: 0 / 0
14.05.2011, 13:31
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260721
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
[quot Андрей_В1 Ну объясните, пожалуйста.[/quot]
Код портянка - очень большой страшно смотреть
Макрос по поиску и сравнениию ячеек. Ругается на 169 строчку "End If without block if" на блоке
Ну да есть такие форумы где слева от кода идёт счёт строк, здесь нет, то есть надо посчитать??
Вич Энд Вич, где???
Ощутите разницу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("B" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  2 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("C" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  3 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("D" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  4 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("E" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  5 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("F" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  6 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("G" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  7 ).Value
                    ThisWorkbook.Sheets( 3 ).Range("H" & CStr(k)).Value = "5"
                    ThisWorkbook.Sheets( 3 ).Range("I" & CStr(k)).Value = nc5
                    k = k +  1 
                    End If
и
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
                If nc5 = ns5 Then
With ThisWorkbook
                     .Sheets( 3 ).Range("A" & CStr(k)).Value = .Sheets( 1 ).Cells(a,  1 ).Value
                    .Sheets( 3 ).Range("B" & CStr(k)).Value = .Sheets( 1 ).Cells(a,  2 ).Value
                    .Sheets( 3 ).Range("C" & CStr(k)).Value = .Sheets( 1 ).Cells(a,  3 ).Value
                    .Sheets( 3 ).Range("D" & CStr(k)).Value = .Sheets( 1 ).Cells(a,  4 ).Value
                   .Sheets( 3 ).Range("E" & CStr(k)).Value = .Sheets( 1 ).Cells(a,  5 ).Value
                    .Sheets( 3 ).Range("F" & CStr(k)).Value = .Sheets( 1 ).Cells(a,  6 ).Value
                    .Sheets( 3 ).Range("G" & CStr(k)).Value = .Sheets( 1 ).Cells(a,  7 ).Value
                   .Sheets( 3 ).Range("H" & CStr(k)).Value = "5"
                   .Sheets( 3 ).Range("I" & CStr(k)).Value = nc5
                    k = k +  1 
End With
                    End If
А вообще правильно Вам говорят циклы, циклы и ещё раз циклы
...
Рейтинг: 0 / 0
14.05.2011, 16:27
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260806
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Андрей_В1скукотища,

Ну объясните, пожалуйста.У вас в поцедуре три "безголовые" инструкции End If. Я бы на месте компиллятора тоже ругался.
...
Рейтинг: 0 / 0
14.05.2011, 18:47
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260827
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Андрей_В1,
"безголовые" инструкции End If - то есть в процедуре каждому If должен быть свой End If
Иначе не прёт!!!!!!!!!
...
Рейтинг: 0 / 0
14.05.2011, 19:21
| Ответить | Цитировать | Написать  
Почему не видит If
    #37260828
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
забыл сказать каждому кроме такого
Код: plaintext
If nc5 = ns5 Then ThisWorkbook.Sheets( 3 ).Range("A" & CStr(k)).Value = ThisWorkbook.Sheets( 1 ).Cells(a,  1 ).Value
то есть в одну строку
...
Рейтинг: 0 / 0
14.05.2011, 19:23
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Почему не видит If
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37260588&tid=2158720]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 103ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 14ms
total:  214ms
созд. / загр.: 214ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]