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

Цикл с двумя переменными, Для переменной из одного диапазона присвоить значение другой переменной из второго диапазона.

AllexSave Пользователь Сообщений: 4 Регистрация: 24.04.2017	# 07.02.2019 15:51:39 Добрый дядька помог... Оба диапазона объединяются в один и используется в цикле используется функция UBound
	Перейти

AllexSave

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

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

07.02.2019 14:50:57

Доброго времени суток, друзья! Для вас пустяк - сам уже всю голову сломал (тяжело программировать, когда не умеешь).

У меня есть два диапазона List и NameList (одинакового размера) - List - названия листов в книге, NameList - названия выходных pdf-файлов. Нужно каждой вкладке из первого диапазона присвоить название из второго и распечатать на pdf принтере. Ничего лучше чем это не придумал, но естественно это не работает.
Не поможете?

Код

For Each i In List
      For Each j In NameList
        aPath = ActiveWorkbook.Path
        Name = aPath & "\" & j & ".pdf"
        Sheets(CStr(i)).PrintOut Copies:=1, Collate:=True, PrintToFile:=True, PrToFileName:=Name, IgnorePrintAreas:=False
    Next j
Next i

Изменено: AllexSave - 07.02.2019 14:56:54

Перейти

Как сцепить значение переменной VBA с текстом?, Необходимо дописать к значению переменной текст в указанную ячейку.

AllexSave Пользователь Сообщений: 4 Регистрация: 24.04.2017	# 24.04.2017 08:51:44 До слез обидно от соотношения потраченного на поиск решения времени и его простоты. Огромное спасибо!
	Перейти

AllexSave

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

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

24.04.2017 08:36:27

Задача такова. В диапазоне определяется нужная ячейка и ее значение записывается в переменную. Затем это значение нужно внести в другую ячейку, сцепив с текстом. При этом через Value получается внести только значение самой переменной, как только пытаюсь сцепить ее с каким либо значением редактор макросов выдает ошибку:

Код
Sub Test() A = Cells(1, 1).Value Cells(2, 10).Value = A&"_Текст" End Sub

Перейти