Поправить макрос по сбору данных с листов и упорядочивание по формату

@Irina753 · Регистрация: 19.08.2021

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

Доброго времени суток!
Есть общий документ (Реестр счетов в данном случае).
На каждом листе документа вносит свою информацию сотрудник.
Необходимо на общий лист собирать эту информацию и упорядочить по формату (нужно отделить услуги от материала).
Что то не так прописываю, работает "криво".
Файл во вложении (без поддержки макросов), посмотрите пожалуйста.

@Narimanych · 12.10.2021, 13:44

Irina753,
А в общем списке где имена сотрудников?
Или они не нужны?

@Irina753 · 12.10.2021, 14:18 **[ТС]**

Имена сотрудников не нужны.
По сути, мы должны получит одну форму (утвержденную) данных. Можно как вариант из нескольких книг, можно с нескольких листов (не принципиально), главное объединить информацию по одной форме из нескольких источников в одну общую форму. Так же нужен отбор "по условию". Деление происходит по столбику 3 (сортировка, вначале материал, ниже услуги).

@Narimanych · 12.10.2021, 14:27

Irina753,
На главном листе нажмите кнопочку - и все...

@Irina753 · 12.10.2021, 14:31 **[ТС]**

Здорово!!!
А можем сделать сортировку по столбцу "Шифр проекта"?
Нужно, чтоб услуги шли после всего остального.

@Narimanych · 12.10.2021, 16:33

Irina753,
Посмотрите этот вариант:

@Irina753 · 12.10.2021, 16:38 **[ТС]**

Выдает ошибку в этой строке "Range(Cells(a, 1), Cells(b, 1)).EntireRow.Cut"

@Narimanych · 12.10.2021, 16:55

Irina753,
Вы запускаете в другом файле?

Добавлено через 4 минуты
Irina753,
For i = 8 To LR
If Cells(i, 3).Value = [a1].Value Then
a = i
Exit For
End If
Next
For j = a + 1 To LR
If Cells(j, 3).Value <> [a1].Value Then
b = j - 1
Exit For
End If
Next

Вместо этого напишите
If Cells(i, 3).Value ="Услуги"

If Cells(j, 3).Value <>"Услуги"

@Irina753 · 13.10.2021, 12:01 **[ТС]**

Добрый день!
Прошу прощения, что не отвечала (Многозадачность... не успеваю все обхватить)
Проверила это изменение, все равно дает ошибку Syntax error.

По второму письму, сейчас подготовлю все (распишу максимально понятно) и вышлю.

@Narimanych · 13.10.2021, 13:09

Сообщение от Irina753

Проверила это изменение, все равно дает ошибку Syntax error.

Пришлите оригинальный файл (с ошибкой)

@Irina753 · 13.10.2021, 14:23 **[ТС]**

Во вложении.

@АЕ · 13.10.2021, 15:30

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

@Narimanych · 13.10.2021, 15:56

Irina753,

Исправил...

@Irina753 · 13.10.2021, 16:42 **[ТС]**

Все просто замечательно!
Спасибо!

@Narimanych · 13.10.2021, 16:47

Irina753,
Пожалуйста

@Irina753 · 14.10.2021, 08:58 **[ТС]**

Добрый день!
А можно как то сохранить формат ячеек? (Мы переносим данные в определенном формате, возможно ли сохранить его при переносе данных со всех листов, на основной?)

@Narimanych · 14.10.2021, 10:43

Irina753,

Т.е. В одном столбце могут быть данные разных форматов?

@Narimanych · 14.10.2021, 11:15

Irina753,
Так нормально?

@Irina753 · 14.10.2021, 14:19 **[ТС]**

Именно так, как нужно!!!!

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	14.10.2021, 10:43	17
	Irina753, Т.е. В одном столбце могут быть данные разных форматов? 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	12.10.2021, 13:44	2
	Irina753, А в общем списке где имена сотрудников? Или они не нужны? 0

@Irina753 0 / 0 / 0 Регистрация: 19.08.2021 Сообщений: 12
	12.10.2021, 14:18 [ТС]	3
	Имена сотрудников не нужны. По сути, мы должны получит одну форму (утвержденную) данных. Можно как вариант из нескольких книг, можно с нескольких листов (не принципиально), главное объединить информацию по одной форме из нескольких источников в одну общую форму. Так же нужен отбор "по условию". Деление происходит по столбику 3 (сортировка, вначале материал, ниже услуги). 0

@Irina753 0 / 0 / 0 Регистрация: 19.08.2021 Сообщений: 12
	12.10.2021, 14:31 [ТС]	5
	Здорово!!! А можем сделать сортировку по столбцу "Шифр проекта"? Нужно, чтоб услуги шли после всего остального. 0

@Irina753 0 / 0 / 0 Регистрация: 19.08.2021 Сообщений: 12
	12.10.2021, 16:38 [ТС]	7
	Выдает ошибку в этой строке "Range(Cells(a, 1), Cells(b, 1)).EntireRow.Cut" 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	12.10.2021, 16:55	8
	Irina753, Вы запускаете в другом файле? Добавлено через 4 минуты Irina753, For i = 8 To LR If Cells(i, 3).Value = [a1].Value Then a = i Exit For End If Next For j = a + 1 To LR If Cells(j, 3).Value <> [a1].Value Then b = j - 1 Exit For End If Next Вместо этого напишите If Cells(i, 3).Value ="Услуги" If Cells(j, 3).Value <>"Услуги" 0

@Irina753 0 / 0 / 0 Регистрация: 19.08.2021 Сообщений: 12
	13.10.2021, 12:01 [ТС]	9
	Добрый день! Прошу прощения, что не отвечала (Многозадачность... не успеваю все обхватить) Проверила это изменение, все равно дает ошибку Syntax error. По второму письму, сейчас подготовлю все (распишу максимально понятно) и вышлю. 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	13.10.2021, 13:09	10
	Сообщение от Irina753 Проверила это изменение, все равно дает ошибку Syntax error. Пришлите оригинальный файл (с ошибкой) 0

@АЕ ᴁ® 3644 / 2000 / 426 Регистрация: 13.12.2016 Сообщений: 6,873 Записей в блоге: 5
	13.10.2021, 15:30	12
	Irina753, файл с ошибкой предполагает внутри себя код, а не очередную болванку. Чтобы отправить на форум файл с кодом вложите его в архив. 0

@Irina753 0 / 0 / 0 Регистрация: 19.08.2021 Сообщений: 12
	13.10.2021, 16:42 [ТС]	14
	Все просто замечательно! Спасибо! 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	13.10.2021, 16:47	15
	Irina753, Пожалуйста 0

	14.10.2021, 14:19

Опции темы

@Irina753 0 / 0 / 0 Регистрация: 19.08.2021 Сообщений: 12
	14.10.2021, 08:58 [ТС]	16
	Добрый день! А можно как то сохранить формат ячеек? (Мы переносим данные в определенном формате, возможно ли сохранить его при переносе данных со всех листов, на основной?) 0

@Irina753 0 / 0 / 0 Регистрация: 19.08.2021 Сообщений: 12
	14.10.2021, 14:19 [ТС]	19
	Именно так, как нужно!!!! 0