Vba: проблема с функцией
Добавлено: 12 дек 2006, 16:04
Макрос должен по двум заданным значениям найти ячейку и скопировать
Но во втором цикле перебор не происходит
Sheets("Лист1").Select
Range("B1").Activate
For i = 1 To 100
If Range("B" & i) = Sheets("Лист2").Range("B2") Then
Sheets("Лист1").Select
For j = i To 40
If Range("J" & j) = "20.11.2006" Then
Range("J" & j).Copy
Sheets("CHERNOUS.KRD").Select
Range("a11").Activate
ActiveSheet.Paste
End If
Next j
End If
Next i
Но во втором цикле перебор не происходит
Sheets("Лист1").Select
Range("B1").Activate
For i = 1 To 100
If Range("B" & i) = Sheets("Лист2").Range("B2") Then
Sheets("Лист1").Select
For j = i To 40
If Range("J" & j) = "20.11.2006" Then
Range("J" & j).Copy
Sheets("CHERNOUS.KRD").Select
Range("a11").Activate
ActiveSheet.Paste
End If
Next j
End If
Next i