Сохранение в ПДФ

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сохранение в ПДФ (Макросы/Sub)

Сохранение в ПДФ

antonbruevich43

Дата: Среда, 31.05.2023, 17:09 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 20% ±

2013

Добрый день!
Помогите пожалуйста исправить код, сам в этом не силен.
Суть макроса в том что он подставляет значение из одной ячейки в другую, на основании этого меняется данные на других листах, потом он сохраняет все в новый файл excel с именем из определенной ячейки. Необходимо изменить так чтобы он после перебора, сохранял в один файл ПДФ с именем из той же ячейки, но определённые листы, так же перебирая значения
[vba]

Код

Sub ПеребратьЗначения()
Dim y As Long
Dim arrG As Variant
Dim arrS As Variant
With Sheets("Дог.")
y = .Cells(.Rows.Count, "G").End(xlUp).Row
If y = 1 Then y = 2
arrG = .Range(.Cells(1, "G"), .Cells(y, "G"))
arrS = .Range(.Cells(1, "S"), .Cells(y, "S"))

Dim sName As String
For y = 6 To UBound(arrG, 1)
If Not .Rows(y).Hidden Then
Sheets("Титул").Range("AO6").Value = arrG(y, 1)
Application.CalculateFull

sName = arrG(y, 1) & "." & arrS(y, 1)
sName = ThisWorkbook.Path & "\" & sName & ".xlsm"
ActiveWorkbook.SaveCopyAs sName
End If
Next

End With
End Sub

[/vba]