|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.02.2014, 07:00 | #1 |
Пользователь
Регистрация: 12.10.2010
Сообщений: 66
|
не переходит на другой лист
Добрый день!
Подскажите, пожалуйста, не могу понять почему у меня выпол-ся только на одном листе((( Dim i As Integer For i = 1 To Sheets.Count With Sheets(i) Range("C14").Select ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)" Range("C14").Select ...................... ........................... Selection.AutoFill Destination:=Range("C128:K128"), Type:=xlFillDefault Range("C8").Select ActiveCell.FormulaR1C1 = _ "=SUM(R[6]C,R[12]C,R[18]C,R[24]C,R[30]C,R[36]C,R[42]C,R[48]C,R [54]C,R[60]C,R[66]C,R[72]C,R[78]C,R[84]C,R[90]C,R[96]C,R[102]C,R[108]C,R[114]C,R[120]C,R[121]C)" Selection.AutoFill Destination:=Range("C8:K8"), Type:=xlFillDefault End With Next i End Sub |
18.02.2014, 08:20 | #2 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
Потому что вот это:
Код:
А вот это: Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перенос данных на другой лист | tgm | Microsoft Office Excel | 0 | 06.08.2012 21:43 |
Перенос данных на другой лист | milavski | Microsoft Office Excel | 12 | 26.07.2012 15:20 |
Не переходит на другой список | mavl | Microsoft Office Access | 3 | 20.10.2011 15:03 |
Перенос данных на другой лист | Palomnik1096 | Microsoft Office Excel | 5 | 20.12.2010 15:12 |
копирование в другой лист | nisan | Microsoft Office Excel | 1 | 28.10.2010 19:44 |