|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2016, 15:02 | #1 |
Регистрация: 14.11.2016
Сообщений: 4
|
копирование и сохранение определенных ячеек на отдельный лист
Добрый день!Помогите пожалуйста разобраться с кодом на копирование определенных ячеек.Строго не судите,сама ни как не соображу, ибо не сильна в VBA.Имеется код,но он копирует ячейки с цифрами 1,2, а подчиненные строки с цифрами 2,1;2,2 не копирует.
Sub () n = ActiveWorkbook.Name Workbooks.Open ("C:\Users\User\Saved Games\Desktop\май2016.xlsx") Workbooks(n).Activate Sheets("Source").Select y = 3 For Each rr In Sheets("Source").Range("E2:E500") If rr.Value = "1" Then r = rr.Row dat = dat + 1 Sheets("Source").Cells(r, 7).Copy Workbooks("май2016.xlsx").Activate Workbooks("май2016.xlsx").Sheets("Л ист1").Cells(dat, y).PasteSpecial Paste:=xlPasteValues Workbooks(n).Activate Sheets("Source").Cells(r, 8).Copy Workbooks("май2016.xlsx").Activate Workbooks("май2016.xlsx").Sheets("Л ист1").Cells(dat, y + 1).PasteSpecial Paste:=xlPasteValues Workbooks(n).Activate Sheets("Source").Cells(r, 9).Copy Workbooks("май2016.xlsx").Activate Workbooks("май2016.xlsx").Sheets("Л ист1").Cells(dat, y + 2).PasteSpecial Paste:=xlPasteValues Workbooks(n).Activate y = y + 3 End If |
15.11.2016, 15:46 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
без макросов, на словах
что, куда, в каком случае нужно копировать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
15.11.2016, 16:00 | #3 |
Регистрация: 14.11.2016
Сообщений: 4
|
При создании нового файла надо,определенный текст со стороннего документа скопировать и сохранить.Во вложении файл ексель,там показано какие ячейки требуется скопировать
|
15.11.2016, 16:04 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Каким образом показано?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
15.11.2016, 16:09 | #5 |
Регистрация: 14.11.2016
Сообщений: 4
|
Желтым цветом выделены те ячейки которые требуется скопировать!
|
15.11.2016, 16:18 | #6 | |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Цитата:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
15.11.2016, 16:25 | #7 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
как Вы думаете велики Ваши шансы зайти именно в тот супермаркет и купить инструмент который мне нужен??? как Вы думаете, каковы мои шансы понять что и куда копировать после того как я прочитал Ваши обьяснения?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
15.11.2016, 16:26 | #8 |
Регистрация: 14.11.2016
Сообщений: 4
|
Я извиняюсь за неточность!Спасибо Вам большое.Помогли
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
копирование ячеек на лист 2 и по условию копирование строки в буфер | FiataliS | Microsoft Office Excel | 7 | 11.05.2020 18:19 |
Копирование строк таблицы по условию одной ячейки из Лист 1 в Лист 2 | Людвиг | Microsoft Office Excel | 5 | 25.10.2014 11:46 |
Копирование ячеек с листа на лист | Sleg777 | Microsoft Office Excel | 2 | 21.08.2013 15:42 |
Копирование определенных ячеек из многих книг одной папки | faz | Microsoft Office Excel | 5 | 09.03.2012 19:22 |
копирование одного и того же набор ячеек со всеx существующиx листов на 1ый лист книги | skapitan | Microsoft Office Excel | 6 | 25.03.2010 20:40 |