klasör_altKlasör ve Pdf Kaydetmek

[BYSERTTAS]

Selamlar Herkese Kolay Gelsin.
aşağıdaki kod ile yapmak istediğimi bir türlü beceremedim. yardımcı olursanız sevinirim.

FaturaForm isminde Bir UserForm var. WsYazdırmaSayfası isminde bir sayfa var.
Sayfalar Tanımlıdır.
WsYazdırmaSayfasının B2 Hücresinde Firma Adı Var.
WsYazdırmaSayfasının J1Hücresinde Fatura Tipi Var
WsYazdırmaSayfasının F13 Hücresinde Fatura Numarası Var

WsYazdırmaSayfasının B2 Hücresinde Firma Adı İle Bir Ana Klasör Açacak
WsYazdırmaSayfasının J1Hücresinde Fatura Tipi Adı İle Ana Klasör İçerisine Bir Alt Klasör Açacak
WsYazdırmaSayfasının F13 Hücresinde Fatura Numarası adı ile Alt Klasör içerisine WsYazdırmaSayfasını Pdf olarak Kaydedecek. Aynı İsimde Klasör veya Pdf dosyası varsa kalasör açmasın ve pdf.kaydetmesin .

Sub FaturaKaydet()
Dim ws As Worksheet
Dim firmaAdi As String, faturaTipi As String, faturaNumarasi As String
Dim anaKlasor As String, altKlasor As String, dosyaAdi As String

' FaturaForm UserForm'unu göster
FaturaForm.Show

' WsYazdırmaSayfası worksheet'ini tanımla
Set ws = ThisWorkbook.Sheets("WsYazdırmaSayfası")

' Değerleri al
firmaAdi = ws.Range("B2").Value
faturaTipi = ws.Range("J1").Value
faturaNumarasi = ws.Range("F13").Value

' Ana klasör yolu oluştur
anaKlasor = ThisWorkbook.Path & "\" & firmaAdi

' Ana klasörü oluştur (eğer yoksa)
If Dir(anaKlasor, vbDirectory) = "" Then
MkDir anaKlasor
End If

' Alt klasör yolu oluştur
altKlasor = anaKlasor & "\" & faturaTipi

' Alt klasörü oluştur (eğer yoksa)
If Dir(altKlasor, vbDirectory) = "" Then
MkDir altKlasor
End If

' Dosya adını oluştur
dosyaAdi = altKlasor & "\" & faturaNumarasi & ".pdf"

' Eğer aynı isimde bir dosya yoksa PDF olarak kaydet
If Dir(dosyaAdi) = "" Then
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard
MsgBox "Fatura PDF olarak kaydedildi.", vbInformation
Else
MsgBox "Aynı isimde bir PDF dosyası zaten var.", vbExclamation
End If
End Sub

 

[necati]

Bir problem göremedim. Gayet normal çalışıyor.