Копирование из строки определенного листа нужные ячейки и вставить в другую книгу в следующую свободную строку

@Phoenix201 · Регистрация: 14.01.2020

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

Здравствуйте. Подскажите пожалуйста, очень нужна Ваша помощь!!! У меня есть макрос, который копирует из книги (под названием "Заполнение") определенную строку и и вставляет в другую книгу (под названием Хранение) в следующую свободную строку, нужно тоже самое, только, чтобы копировал из определенной строки нужные ячейки ("A2", "C2", ""E2","F2", "H2").

@Phoenix201 · 14.01.2020, 22:52 **[ТС]**

В примере два макроса, может понадобиться

@Zeroman · 14.01.2020, 22:56

Del

@Phoenix201 · 14.01.2020, 23:13 **[ТС]**

Zeroma, а что это значит?

@Zeroman · 14.01.2020, 23:14

попробуйте в файле Заполнение заменить макрос transponir этим кодом:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub transponir() ' переносим файлы в общий отчет
Application.ScreenUpdating = False
Dim x1 As Long, rn As Range
Set rn = Range("A2", "E2")
Workbooks.Open Filename:="D:\Данные\Хранение.xlsm" ' открываем файл
x1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(x1, 1), Cells(x1 + rn.Rows.Count - 1, 1)).NumberFormat = "@"
Range(Cells(x1, 1), Cells(x1 + rn.Rows.Count - 1, rn.Columns.Count)).Value = rn.Value
Range(Cells(x1, 9), Cells(x1 + rn.Rows.Count - 1, 25)).ClearContents
Range(Cells(x1, 2), Cells(x1 + rn.Rows.Count - 1, 2)).ClearContents
Range(Cells(x1, 4), Cells(x1 + rn.Rows.Count - 1, 4)).ClearContents
Range(Cells(x1, 7), Cells(x1 + rn.Rows.Count - 1, 7)).ClearContents
ActiveWorkbook.Close 1 'закрываем с сохранением
Application.ScreenUpdating = True
End Sub

@Phoenix201 · 14.01.2020, 23:20 **[ТС]**

То, что я и хотел, только почему то он не копирует "F2", "H2"

@Zeroman · 14.01.2020, 23:26

Попробуйте заменить строку

Visual Basic
1
Set rn = Range("A2", "E2")

на строку

Visual Basic
1
Set rn = Range("A2", "H2")

А вообще-то мудрённый коТ.
Можно и без открытия нужные значения копировать

@Phoenix201 · 14.01.2020, 23:30 **[ТС]**

Уже дошло, но не успел ответить. А если не мудреный, то как будет выглядеть?

Добавлено через 1 минуту
Извините, забыл Вам выразить большую благодарность!!!

@Zeroman · 14.01.2020, 23:30

Сегодня уже устал. завтра, если будет время напишу

@Phoenix201 · 14.01.2020, 23:37 **[ТС]**

Спасибо, буду ждать

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Phoenix201 0 / 0 / 0 Регистрация: 14.01.2020 Сообщений: 7

	Копирование из строки определенного листа нужные ячейки и вставить в другую книгу в следующую свободную строку 14.01.2020, 22:48. Показов 1938. Ответов 9 Метки нет (Все метки) Здравствуйте. Подскажите пожалуйста, очень нужна Ваша помощь!!! У меня есть макрос, который копирует из книги (под названием "Заполнение") определенную строку и и вставляет в другую книгу (под названием Хранение) в следующую свободную строку, нужно тоже самое, только, чтобы копировал из определенной строки нужные ячейки ("A2", "C2", ""E2","F2", "H2"). 0

@Zeroman 3 / 2 / 1 Регистрация: 05.01.2019 Сообщений: 29
	14.01.2020, 22:56
	Del 0

@Phoenix201 0 / 0 / 0 Регистрация: 14.01.2020 Сообщений: 7
	14.01.2020, 23:13 [ТС]
	Zeroma, а что это значит? 0

@Phoenix201 0 / 0 / 0 Регистрация: 14.01.2020 Сообщений: 7
	14.01.2020, 23:20 [ТС]
	То, что я и хотел, только почему то он не копирует "F2", "H2" 0

@Phoenix201 0 / 0 / 0 Регистрация: 14.01.2020 Сообщений: 7
	14.01.2020, 23:30 [ТС]
	Уже дошло, но не успел ответить. А если не мудреный, то как будет выглядеть? Добавлено через 1 минуту Извините, забыл Вам выразить большую благодарность!!! 0

@Zeroman 3 / 2 / 1 Регистрация: 05.01.2019 Сообщений: 29
	14.01.2020, 23:30
	Сегодня уже устал. завтра, если будет время напишу 0

@Phoenix201 0 / 0 / 0 Регистрация: 14.01.2020 Сообщений: 7
	14.01.2020, 23:37 [ТС]
	Спасибо, буду ждать 0