SDI SDI (Все сообщения пользователя)

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

SDI SDI Пользователь Сообщений: 4 Регистрация: 08.07.2020	# 13.08.2020 21:00:15 Спасибо за помощь! Первый и второй макрос работают как надо. Но вот третий, хоть и самый лаконичный, но при изменении положения известных слов - уже не работает.
	Перейти

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

SDI SDI

Пользователь

Сообщений: 4 Регистрация: 08.07.2020

13.08.2020 17:48:46

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

Желаемый результат на листе "Желаемый результат".

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

Код

Sub Макрос2()
Dim ms$, iCell$, i As Range
   Sheets("Данные").Select
   ms1 = "Начало"
    Set iCell1 = Cells.Find(What:=ms1, SearchFormat:=False)
   ms2 = "Конец"
    Set iCell2 = Cells.Find(What:=ms2, SearchFormat:=False)
    Range(iCell1, iCell2).Select
    Selection.Copy
    Sheets("Результат").Select
    Range("A1").Select
    ActiveSheet.Paste
 
    MsgBox "Ок"
End Sub

Изменено: SDI SDI - 13.08.2020 19:35:08

Перейти

Формирование реестра по информации из ячеек соседнего листа, Реестр

SDI SDI Пользователь Сообщений: 4 Регистрация: 08.07.2020	# 23.07.2020 17:40:22 Ответил
	Перейти

Формирование реестра по информации из ячеек соседнего листа, Реестр

SDI SDI

Пользователь

Сообщений: 4 Регистрация: 08.07.2020

23.07.2020 15:36:22

Добрый день!
Нужен макрос для формирования реестра по информации из ячеек соседнего листа.
Краткое описание.
1. Вся исходная информация находится на листе "АОСР"
2. Реестр необходимо сформировать на листе "Реестр"
3. Для формирования реестра берутся только строки , у которых в столбце "А" стоит значение "ok"
4. Требование по формирование реестра во вложении.

Для строки 2
1. Из лист "АОСР", столбца D2, H2 на лист "Реестр" в столбец B4 (="Акт освидетельствования скрытых работ №"&АОСР!D2&"_"&АОСР!H2)
2. Из лист "АОСР", столбца E2, F2, G2 на лист "Реестр" в столбец С4 (=АОСР!E2&"."&АОСР!F2&"."&АОСР!G2)
3. Из лист "АОСР", столбцa T2 на лист "Реестр": наименование в столбец B4, даты столбец С4.

Далее аналогично по всем строкам на листе, где стоит "ok"

Количество строк может быть отлично от примера

Бюджет: 1 000

Изменено: SDI SDI - 23.07.2020 15:37:45

Перейти