Добрый вечер коллеги.
Прошу помощи.
Необходимо дополнительно прописать в макросе подстановку в ячейку листа "УПД" сцепленные текстовые значения через разделитель из отфильтрованного диапазона столбец "B" листа "Вывоз".
Прошу помощи.
Необходимо дополнительно прописать в макросе подстановку в ячейку листа "УПД" сцепленные текстовые значения через разделитель из отфильтрованного диапазона столбец "B" листа "Вывоз".
| Код |
|---|
Sub Prn_UPD()
Dim fName As String, Team As String, Text As String, WhomToSend As String
Set r = ActiveCell
' Настройка фильтров лист Вывоз
filt1 = Month(Sheets("Вывоз").Cells(r.Row, 3).Value) & "/" & Day(Sheets("Вывоз").Cells(r.Row, 3).Value) & "/" & Year(Sheets("Вывоз").Cells(r.Row, 3).Value)
filt2 = Left(Range("K" & r.Row), 5) & "*"
ActiveSheet.Range("$B$2:$O$10000").AutoFilter Field:=3, Operator:=xlFilterValues, Criteria2:=Array(1, filt1)
ActiveSheet.Range("$A$2:$O$10000").AutoFilter Field:=11, Criteria1:=filt2
dPrint = InputBox("Укажите № УПД", "Печать")
' Подстановка отфильтрованных данных
Sheets("УПД").Cells("1", "CA").Value = dPrint
Sheets("УПД").Cells("1", "AE").Value = Sheets("Вывоз").Cells(r.Row, 3).Value
Sheets("УПД").Cells("8", "Z").Value = Sheets("ТН1").Cells("10", "BN").Value
' Печать и запись
Sheets(Array("УПД")).SelectfName = "D:\Документы\ТУ\Весовая\УПД\УПД " + Sheets("УПД").Cells("1", "U").Value + ".pdf" ' Имя файла
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
' Отключение фильтра
Sheets("Вывоз").SelectActiveSheet.Range("$B$2:$O$10000").AutoFilter Field:=11
ActiveSheet.Range("$B$2:$O$10000").AutoFilter Field:=3
End Sub |
