根据另一张图纸中的特定值创建循环并保存PDF

• 寻求一些帮助。我不是程序员,但我通过循环函数用不同的文件名保存了我的PDF。

• 我有两个选项卡,它们相互协调工作。我的主选项卡包含必要的主信息,而第二个名为的选项卡旨在构建并充当保存的PDF的框架边界。

• 我正在尝试创建一个循环来替换单元格中的特定值。

• 我附上了屏幕截图。

• 我想要D76&D77(主标签),以在构建循环时保存在单元A26(第二标签)中。

• Master Tab

• Second Tab

• Code Written

• 示例50000美元从主选项卡D76保存在单元格A26第二个选项卡,然后保存文件名1320 Millington Ct,然后创建PDF

• 下一个循环

• 示例$70000从主选项卡D77保存在单元格A26第二个选项卡中,然后保存文件名315 Hillcrest dr。

• 我的文件名循环工作得很好,但在制作PDF之前需要循环来保存特定的值。

• 如有任何帮助,我们将不胜感激。谢谢。

Sub Save_Muiltiple_SubTo_as_pdf()

'Sheet 1 Master Tab'
Dim mt As Worksheet
Set mt = ThisWorkbook.Sheets("Master_Tab")
Dim row_count As Integer
Dim LOIFilePath As String
LOIFilePath = mt.Range("J2")

' Sheet 2 Values saved in specific cells'
Dim st As Worksheet
Set st = ThisWorkbook.Sheets("SubTo")
SubTo_CashOffer = st.Range("A26")
Dim pdf_range As Range
EndRow = st.Range("J2")

Set pdf_range = st.Range("A1:" & EndRow)

mt.Activate
row_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
col_count = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))


'Master Tab save pdf according to new property address'
For i = mt.Range("H25") To row_count

Filename = mt.Cells(i, 5).Text

'Save PDF according to specific cash offer for that property'
On Error Resume Next
SubTo_CashOffer = mt.Cells(i, 4).Text

'Then Save the PDF with associated values'
pdf_range.ExportAsFixedFormat xlTypePDF, LOIFilePath & Filename & ".pdf"
    On Error GoTo 0
    Next i


End Sub