ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Run-time error '1004'
7 сообщений из 7, страница 1 из 1
Run-time error '1004'
    #37231447
Андрей_В1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей_В1
Гость
Здравствуйте!

В макросе по поиску и сравнению ячеек ругается на строчку
Код: 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

Текст макроса:
Код: 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.
Attribute VB_Name = "Module6"
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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = Range(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 = 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 = 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 = 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 = 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 = 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 = Range(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 = 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 = 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 = 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 = Range(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 = 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 = 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" & 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 
                    End If
                    
                    
    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 
                    End If
                    
                    
    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 
                    End If
   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  ' уходим на след.поиск
            
            
    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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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 = 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" & 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 
                    End If
    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
25.04.2011, 10:05
| Ответить | Цитировать | Написать  
Run-time error '1004'
    #37231490
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андрей_В1,

чему по-твоему равно выражение Str(k)?
...
Рейтинг: 0 / 0
25.04.2011, 10:29
| Ответить | Цитировать | Написать  
Run-time error '1004'
    #37231528
Андрей_В1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей_В1
Гость
Shocker.Pro,

К "к" присвоена единичка в начале.
...
Рейтинг: 0 / 0
25.04.2011, 10:45
| Ответить | Цитировать | Написать  
Run-time error '1004'
    #37231540
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андрей_В1Shocker.Pro,

К "к" присвоена единичка в начале.

однако, ты не ответил на вопрос.
Так чему равно выражение Str(k)?
...
Рейтинг: 0 / 0
25.04.2011, 10:50
| Ответить | Цитировать | Написать  
Run-time error '1004'
    #37231715
Андрей_В1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей_В1
Гость
Shocker.Pro,

Тестовый макросик выводит "1"

Код: plaintext
1.
2.
3.
4.
Sub compare6()
 Dim k As Integer
    k =  1 
MsgBox (Str(k))
End Sub
...
Рейтинг: 0 / 0
25.04.2011, 12:10
| Ответить | Цитировать | Написать  
Run-time error '1004'
    #37231777
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андрей_В1Shocker.Pro,

Тестовый макросик выводит "1"

Неа
Вот так нагляднее будет:
Код: plaintext
1.
2.
3.
4.
5.
Sub compare6()
 Dim k As Integer
    k =  1 
MsgBox "A" & Str(k)
MsgBox "A" & CStr(k)
End Sub
...
Рейтинг: 0 / 0
25.04.2011, 12:45
| Ответить | Цитировать | Написать  
Run-time error '1004'
    #37231806
Андрей_В1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей_В1
Гость
Shocker.Pro,

Большое спасибо!

Тема закрыта.
...
Рейтинг: 0 / 0
25.04.2011, 13:01
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Run-time error '1004'
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=103&tid=2158769]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 55ms
total:  165ms
созд. / загр.: 165ms
x
x
Закрыть


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