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

@OBender · Регистрация: 03.12.2016

Студворк — интернет-сервис помощи студентам

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

toiai · 05.12.2016, 11:58

Может так:

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

@OBender · 05.12.2016, 18:27 **[ТС]**

вот этакие значение должны отправляться из 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

@OBender · 05.12.2016, 18:33 **[ТС]**

да что то в этом духе, правда у тебя почему то они отправляются после всего а они должны между названиями падать и итого и само расширятся... при этом как я написал выше куда значения заносяться может быть 1 запись в накладной по товарам и услугам а может быть и 10 типа список заказа тоже само расширяется спс за прошлый ответ

@OBender · 06.12.2016, 00:18 **[ТС]**

нужно вот перенести еще заказчика, Менеджера и дату... и каким то образом сделать цикл... у меня пока еще не до конца получается + данные не туда заносятся они должны подряд снизу вверх идти, но между заголовками и Итоговой суммой

toiai · 06.12.2016, 15:47

А где в накладной стоимость единицы материала?

@OBender · 06.12.2016, 17:33 **[ТС]**

она в накладной не нужна она с другого листа берется...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@OBender 0 / 0 / 0 Регистрация: 03.12.2016 Сообщений: 6
	05.12.2016, 18:33 [ТС]
	да что то в этом духе, правда у тебя почему то они отправляются после всего а они должны между названиями падать и итого и само расширятся... при этом как я написал выше куда значения заносяться может быть 1 запись в накладной по товарам и услугам а может быть и 10 типа список заказа тоже само расширяется спс за прошлый ответ 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	06.12.2016, 15:47
	А где в накладной стоимость единицы материала? 0

@OBender 0 / 0 / 0 Регистрация: 03.12.2016 Сообщений: 6
	06.12.2016, 17:33 [ТС]
	она в накладной не нужна она с другого листа берется... 0