|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.08.2015, 13:30 | #1 |
Регистрация: 10.08.2015
Сообщений: 5
|
Как изменить ячейку копирования
Добрый день. Подскажите пожалуйста как скопировать строки в разные листы, но только в определенную строку. На данном этапе все работает, но не могу прописать копирование строк в 90-ю строку.
Sub Copy() ' Dim i As Long, ws As Worksheet, aws As Worksheet Application.ScreenUpdating = False: Set aws = Sheets("Îò÷åò") For i = aws.Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 If aws.Cells(i, 1) <> "" Then On Error Resume Next: Set ws = ThisWorkbook.Sheets(CStr(aws.Cells( i, 1))) If Err <> 0 Then Set ws = Sheets.Add: ActiveSheet.Name = aws.Cells(i, 1): On Error GoTo 0 aws.Cells.Copy ws.Cells.PasteSpecial Paste:=xlPasteColumnWidths ws.Cells.PasteSpecial Paste:=xlPasteColumnWidths End If aws.Rows(i).Copy ws.Cells(Rows.Count, 1).End(xlUp).Offset(1) End If: Next End Sub |
31.08.2015, 13:47 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
worksheets(X).cells(90,1).paste
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изменить путь копирования файлов | volchek3 | Общие вопросы Delphi | 0 | 08.07.2012 00:24 |
Макрос для копирования значений из нескольких файлов в один общий с определенным условием копирования | zenner | Microsoft Office Excel | 0 | 21.03.2011 14:48 |
как защитить документ xls от копирования | soulstrong | Microsoft Office Excel | 1 | 07.06.2009 11:51 |
При вводе значения в ячейку нужно изменить ее размер | skobarka | Microsoft Office Excel | 2 | 26.09.2008 16:35 |
Как защитить программу от копирования | 1234 | Общие вопросы Delphi | 5 | 24.07.2008 21:30 |