Çalışan Makronun çalışmaması

[akmlyx]

Değerli arkadaşlar Merhaba, Makrodan fazla anlamıyorum. Bu sitede yardımcı olan bir arkadaş bir makro yazıverdi çok güzel çalışıyorken Excel sayfasında 2 sütun ekleme yapmam gerekti, 2 sütun ekleme yapınca bu sefer makro çalışmaz hale geldi. Yardımcı olabilecek bir arkadaş var mı? Şimdiden Teşekkür ederim.

Modüle yazılan makro:

Sub kayıtlar()
Dim MASA, KLS, MASAÜSTÜ As String
Dim SY As Long, S1 As Worksheet
Set MASA = CreateObject("Wscript.Shell")
Set KLS = CreateObject("Scripting.FileSystemObject")
Set S1 = Sheets("Bordro Esas")
MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop")
KLS.createfolder MASAÜSTÜ & "\" & S1.Range("Z18").Text
For SY = 1 To 55
S1.Range("B5") = SY
S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("Z18").Text & "\" & S1.Range("Z11").Text & ".pdf"
Next
S1.Range("B5") = 1
MsgBox "İşlem Tamamlandı", , "Sonuç"
End Sub


Sayfanın Kod bölümüne yazılan makro:

Sub YazdırmaAlanları_PDF_Yaz2()
Dim i As Integer
Dim Yol As String
Dim PdfName As String
For i = 1 To 1
Select Case i
Case 1
PdfName = [Z11] & ".pdf"
End Select
If Len(PdfName) < 6 Then MsgBox "Sayfa İsmi Eksik": Exit Sub
Yol = Environ("USERPROFILE") & "\Desktop" & "\İşçi Ücret Bordrosu"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Yol & "\" & PdfName, From:=i, To:=i, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False
Next i
i = Empty: Yol = vbNullString: PdfName = vbNullString

End Sub

 

[akmlyx]

Değerli arkadaşlar cevap bulundu, masaüstünde oluşturulacak yeni klasör ile aynı isimde başka bir klasör olduğu için çalışmıyormuş.