|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
01.02.2009, 20:25 | #1 |
Пользователь
Регистрация: 25.01.2009
Сообщений: 81
|
Помогите с копированием столбцов.
В кратце: необходимо скопировать столбец на другой лист и расположить значения в определенные строки, по наименованию.
Все написано в архиве... Огромное спасибо..... |
01.02.2009, 20:50 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Так подойдёт?
|
01.02.2009, 21:40 | #3 |
Пользователь
Регистрация: 25.01.2009
Сообщений: 81
|
огромное спасибо...
Так подойдет.... Но еще вопросик..что мне изменить в макросе что бы все это можно было делать еще на одной кнопке и на другой лист (допусти 1234)??? Спасибо... |
01.02.2009, 21:49 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Вот, собственно, весь макрос:
Код:
Dim Источник As Worksheet: Set Источник = ThisWorkbook.Worksheets("Печать") Dim СК As Worksheet: Set СК = ThisWorkbook.Worksheets("ск") определяются листы - с какого листа и на какой копировать данные. В строке Set Столбец = СК.Cells(5, СК.Columns.Count).End(xlToLeft).Nex t.EntireColumn цифра 5 определяет, по какой строке производится поиск последнего заполненного столбца. Будет проще, если Вы прикрепите к сообщению пример файла с этими листами, и также подробно укажите, что и куда надо копировать. |
01.02.2009, 21:59 | #5 |
Пользователь
Регистрация: 25.01.2009
Сообщений: 81
|
Этот же файл... просто там будет еще 6 листов и для каждого листа будет своя кнопка.
Не всегда значения будут копироваться на один и тот же лист... |
01.02.2009, 22:07 | #6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Ну так создайте несколько копий этого макроса - одну за другой.
В этих копиях изменяйте названия макроса (обязательно, например, ПереносДанных, ПереносДанных2, ПереносДанных3 и т.п.), и, при необходимости, названия листов. Каждой кнопке назначьте соответствующий макрос. Если первую строку макроса: Код:
Код:
Тогда не нужно будет изменять имя этого листа. По идее, можно сделать запрос листа, на который требуется копировать данные - тогда макрос получится универсальным (один для всех листов). Но проще сделать 2 - 3 копии исходного макроса. |
01.02.2009, 22:11 | #7 |
Пользователь
Регистрация: 25.01.2009
Сообщений: 81
|
Я уже разобрался... и даже сделал еще лист...
Все очень подробно.. описано.... Огромное спасибо за советы.... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дан двухмерный массив из 20 столбцов. Вставить в него столбец из чисел 10 после всех четных столбцов. | Дмитрий142 | Помощь студентам | 9 | 07.06.2012 19:32 |
помогите с копированием | Romuald | Microsoft Office Excel | 5 | 11.01.2009 21:27 |
помогите с копированием фаилов | 1234 | Общие вопросы Delphi | 4 | 12.09.2008 17:00 |
Помогите пожалуйста с копированием файла | ==Spider== | Общие вопросы Delphi | 2 | 21.05.2008 10:54 |
Проблема с копированием | Ronni10 | Операционные системы общие вопросы | 1 | 29.04.2008 09:39 |