Страницы: 1
RSS
Копирование диапазона ячеек из книги в книгу с переменной в адресах ячеек!
 
Существует такая задача: из файла А.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  
 
Всем заранее спасибо!
 
Замените  "C"&m:"L"&m+6  
 
на  "C" & m & ":L" & m + 6
 
Спасибо! Действительно помогло! А можно ли как то оптимизировать код?!
Страницы: 1
Читают тему
Наверх