Существует такая задача: из файла А.xls в файл B.xls скопировать диапазон ячеек выбранных по условию. Всё бы хорошо, но ругается на: Range("C"&m:"L"&m+6)
Кто знает, как это исправить?!
Пишу так:
For i = 2 To 20000 Step 24
If Workbooks("A.xls").Sheets("Лист1").Range("A" & i) = Workbooks("B.xls").Sheets("Лист1").Range("A2") Then
m = i
GoTo 700
End If
Next i
700
m=i
Set Chtocopy = Workbooks("A.xls").Sheets("лист1").Range("C"&m:"L"&m+6)
Set Kudacopy = Workbooks("B.xls").Sheets("Лист2").Range("C" & m)
Сhtocopy.Copy Destination:=Kudacopy
Всем заранее спасибо!
Кто знает, как это исправить?!
Пишу так:
For i = 2 To 20000 Step 24
If Workbooks("A.xls").Sheets("Лист1").Range("A" & i) = Workbooks("B.xls").Sheets("Лист1").Range("A2") Then
m = i
GoTo 700
End If
Next i
700
m=i
Set Chtocopy = Workbooks("A.xls").Sheets("лист1").Range("C"&m:"L"&m+6)
Set Kudacopy = Workbooks("B.xls").Sheets("Лист2").Range("C" & m)
Сhtocopy.Copy Destination:=Kudacopy
Всем заранее спасибо!