Добрый день товарищи!
Прошу помощи.

Есть код

Sub Sheet_save()

Dim rngОбновить_эти As Range
Dim rngTicker As Range
Dim i As Variant
Dim strFilepath As String
Dim rngLOL As Range
Dim rngLOL2 As Range

Set rngОбновить_эти = Range("Обновить_эти")
Set rngTicker = Range("ticker")
Set rngLOL = Range("РНККТ_ДАТА")
Set rngLOL2 = Range("РНККТ_ДАТА2")
strFilepath = ThisWorkbook.Path()

   dbStart = Timer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each i In rngОбновить_эти
rngTicker = i.Value
rngLOL2.ListObject.QueryTable.Refresh BackgroundQuery:=False
rngLOL.ListObject.QueryTable.Refresh BackgroundQuery:=False

ThisWorkbook.Sheets("sheet0").Copy
ThisWorkbook.Sheets("Лист1").Copy


ActiveWorkbook.SaveAs fileName:=strFilepath & "\" & rngTicker.Value & ".xlsx", FileFormat:=xlWorkbookDefault
ActiveWorkbook.Close
Next i

Application.ScreenUpdating = True
Application.DisplayAlerts = True

   MsgBox "Готово. Время работы - " & Format(Timer - dbStart, "0 \сек. "), vbInformation

End Sub


Данный макрос копирует листы после обновления запроса(ов) квери и сохраняет книгу. Но книга сохраняется с 1 листом sheet0, 2 лист "Лист1" не сохраняется. Прошу помощи в доработке макроса, чтобы оба листа сохранялись в 1 книгу. Спасибо.

Здравствуйте.
необходимо добавить столбец в PQ со значениями от 1 до 7. То есть что то вроде индекса, но только добавляются значения от 1 до 7, и после 7 опять идет 1 и т.д.
1
2
3
4
5
6
7
1
2
3

Необходим макрос
Суть работы макроса: получить реальный адрес, перейдя по ссылке и вставить результат в ексель.

Цена вопроса - 1500 руб.

Необходимо реализовать возможность загрузки исходных данных из файла, проставить значения как указано в файле Пример и затем перенести данные по условиям в несколько таблиц. Подробно в примере.
реализация через макросы, офис 2013, PQ недоступен.
Бюджет 1500 р.
сроки 1-2 дня.

Исходные файлы - XML, разбитые по папкам. Необходимо проанализировать все файлы, полученные результаты сохранить в файлы ексель, при этом есть необходимость анализа данных из этих файлов по заданным пользователям критериям с выводом результата такого анализа на отдельные листы. Необходимо реализовать поиск только по 1 значению, и поиск по группе значений по совпадениям в строке.
образец того, что должно получиться с дополнительными требованиями и пояснениями прикладываю, исходники по запросу скину на почту.
реализация значения не имеет, важно скорость обработки, поскольку за раз будет необходимость обработки 1000 xml  файлов (каждый файл содержит 1000 строк максимум, 24 столбцов)
корректировка ТЗ с учётом возможностей программы Ексель возможна.
сроки выполнения- две недели.
Бюджет - 10 тыс.руб. (обсуждаемо)

Необходимо разбивать адреса на части в соответствующие колонки справа. После названия улицы всегда идет номер дома, если после номера дома нет обозначения корпуса или строения (например - УЛ ОСТРОВИТЯНОВА ДОМ 19 2), переносить в корпус. Адреса будут пополняться новыми, разумеется. В качестве примера файл, а также пустые строки для теста.