Soru VBA İle Sayfadan Koşullu Sıralı Seçim PDF Kaydetme

[RBozkurt]

Merhaba excel.web.tr ailesi.
Ekte örnek olarak eklemiş olduğum dosyada sistematik olmaksızın liste oluşturmaktayım.
Listeden de anlaşılacağı gibi sıralamada bir düzen yoktur.

Burada her sıra numarasının karşılık geldiği veriyi altta örnek olarak eklemiş olduğum resimlerdeki gibi
A4 boyutunda veriyi sayfaya yatay sığdırılmış şekilde dosyanın bulunduğu klasöre PDF olarak başlığı B2 hücresinden (A5'de sıra 5dir ama B5 hücresinde sıra 8 olabilir.) almak koşuluyla "KDN B5 - Taşınmaz Malik Listesi" şeklinde kaçtane KDN varsa o kadar yani, kaydedilebilir mi?
Şimdiden çok teşekkür ederim.


Sayfa 1 örnek




Sayfa 2 örnek

 

[RBozkurt]

Edit.

 

[RBozkurt]

Alttaki kod ile problem çözülmüştür. Sayın @askan beye teşekkür ederim.

Sub pdf()
'askan 30.04.2022'
Dim t As Range, h As Range, sat1 As Long, sat2 As Long, gecicipath As String
Dim pdffile As String, alan As Range, son As Long
Application.ScreenUpdating = False
son = Range("B" & Rows.Count).End(xlUp).Row
Set t = Range("B2:B" & son)
For Each h In t
If h.Borders(3).LineStyle = 1 Then sat1 = h.Row
If h.Borders(4).LineStyle = 1 Then sat2 = h.Row
If sat2 <> Empty Then

With ActiveSheet.PageSetup
 
    .PrintArea = "A" & sat1 & ":J" & sat2
    .FitToPagesWide = 1
    .Orientation = xlLandscape
    .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
gecicipath = ThisWorkbook.Path & "\" & "xxx\"
pdffile = gecicipath & "KDN " & Range("B" & sat1) & " - Taşınmaz Malik Listesi" & ".pdf"
Set alan = Range(ActiveSheet.PageSetup.PrintArea)
alan.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdffile, openafterpublish:=False

sat2 = Empty: sat1 = Empty
End If
Next
Application.ScreenUpdating = True
End Sub