Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
OBender
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 6
1

Excel копирование определенных ячеек и строк на другой лист

05.12.2016, 09:24. Просмотров 3508. Ответов 6
Метки нет (Все метки)

Здравствуйте. Имеется лист с которого нужно при нажатии кнопки скопировать определенные данные на другой лист построчно в определенные ячейки и после очистить от этих данных сам лист(т.е. переместить данные). Столкнулся с проблемой копирования несколько строк и ячеек на другой лист, и при этом задятся они не туда куда хотелось бы. прошу помощи в этом разобраться, так как с макросами опыта почти нет.
0
Вложения
Тип файла: xls программа учёта.xls (82.5 Кб, 15 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2016, 09:24
Ответы с готовыми решениями:

Копирование ячеек столбца одного листа и переноса на другой лист
Доброго времени суток всем вам, уважаемые форумчане. В виду рабочей необходимости, я начал...

Копирование данных из разных ячеек одного листа на другой лист
Ребят, доброго всем вечера. Требуется помощь. VBA в рамках предмета под названием "информатика",...

Копирование строк в другой лист
Всем привет. Просьба помочь с задачей: В документе есть 12 листов (кол-во месяцев в году)....

Копирование данных на другой лист при условии определенных данных
Добрый день! Нужна помощь чайнику при формировании картотеки сотрудников. Есть общая база данных ,...

Экономное копирование из одного листа в другой (добавление готовых накладных на лист для печати в excel)
Здравствуйте, подскажите, пожалуйста макрос который будет компактно копировать подготовленные...

6
toiai
3182 / 937 / 216
Регистрация: 29.05.2010
Сообщений: 2,044
05.12.2016, 11:58 2
Может так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ButtonPredZakaz_Click()
 
    Dim vrngFrom As Variant
    vrngFrom = Range("C10:H10")
 
    With Sheets("предзаказ")
        Dim fc As Long
        fc = .Cells(Rows.Count, 3).End(xlUp).Row + 1
        .Cells(fc, 2) = Sheets("накладная").[a1]
        .Cells(fc, 3) = Sheets("накладная").[d3]
        .Cells(fc, 6).Resize(1, UBound(vrngFrom, 2)) = vrngFrom
    End With
 
End Sub
1
OBender
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 6
05.12.2016, 18:27  [ТС] 3
вот этакие значение должны отправляться из 1 листа во 2 при этом при следующем нажатии кнопки будет переходить на следующую строку

лист 1 D3 = лист 2 С
лист 1 B4 = лист 2 D лист лист 1 C5 = лист 2 E лист 1 D5 = лист 2 F лист 1 E5 = лист 2 G
лист 1 B6 = лист 2 B

лист 1 Range (B10:G10), если было Выбрано и так далее может быть хоть 10 строк
при этом на 2 листе тоже записывалось товары на каждой строке и бралась дата номер накладной,
заказчик и контакты = лист 2 Range(H:M)


лист 1 Range (B18:G18) если было Выбрано и так далее может быть хоть 10 строк = лист 2 Range (P:T)

лист 1 H26 = лист 2 V
лист 1 H30 = лист 2 W
0
Вложения
Тип файла: xls программа учёта.xls (82.5 Кб, 11 просмотров)
OBender
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 6
05.12.2016, 18:33  [ТС] 4
да что то в этом духе, правда у тебя почему то они отправляются после всего а они должны между названиями падать и итого и само расширятся... при этом как я написал выше куда значения заносяться может быть 1 запись в накладной по товарам и услугам а может быть и 10 типа список заказа тоже само расширяется спс за прошлый ответ
0
OBender
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 6
06.12.2016, 00:18  [ТС] 5
нужно вот перенести еще заказчика, Менеджера и дату... и каким то образом сделать цикл... у меня пока еще не до конца получается + данные не туда заносятся они должны подряд снизу вверх идти, но между заголовками и Итоговой суммой
0
Вложения
Тип файла: xls программа учёта.xls (90.0 Кб, 25 просмотров)
toiai
3182 / 937 / 216
Регистрация: 29.05.2010
Сообщений: 2,044
06.12.2016, 15:47 6
А где в накладной стоимость единицы материала?
0
OBender
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 6
06.12.2016, 17:33  [ТС] 7
она в накладной не нужна она с другого листа берется...
0
06.12.2016, 17:33
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2016, 17:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поиск по значению и вывод строк из таблицы на другой лист Excel
Люди, хелп!!! Срочно! Нужно в Excel или дописать модуль или что-то с формулами нахимичить. Есть...

Копирование ячеек с листа на лист по условию одной ячейки
Уважаемые специалисты Excel, прошу Вашей помощи в написании макроса. Сам на просторах интернета...

Поиск значения и копирование на другой лист
Плиз помогите, нужен макрос чтобы искал на одном листе и копировал на другой лист но там нюанс -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.