VBA to copy details from excel and save as PDF

Originally Posted by sintek

Not with the sample file...see result...


Try this ... small change...

Sub sintek()
Dim Data, Dict As Object, Path As String, i As Long, lr As Long
Set Dict = CreateObject("Scripting.Dictionary")
Path = "E:\Steven\Desktop\" ' ! Change to your save Path......
With Cells(1).CurrentRegion
    Data = .Value
    For i = 2 To UBound(Data, 1)
        If Not Dict.exists(Data(i, 5)) Then
            Dict.Add Data(i, 5), 1
            .AutoFilter 5, Data(i, 5)
            lr = Parent.Range("A" & Rows.Count).End(xlUp).Row
            Parent.Range("A1:F" & lr).ExportAsFixedFormat xlTypePDF, Path & Data(i, 5), xlQualityStandard
            .AutoFilter
        End If
    Next i
End With
End Sub

Thank you so much... This is working perfectly fine..

Not with the sample file, but when i tried in different file, the project ID is not displayed completely.. Like we need to do an "Auto fit". Screenshot attached. Requesting your help again..

Attachment 691707