...& sourceSheet.Range("A1").Text & ".xlsx"
If Dir(folderPathWithName, vbDirectory) = vbNullString Then
MkDir folderPathWithName
Else
' Eğer klasör zaten varsa devam etmek istiyorsanız bu mesajı kaldırabilirsiniz
' MsgBox "Klasör zaten mevcut."
End If...
...ActiveSheet.Range("E20").Text & ActiveSheet.Range("A1").Text & ".xlsx"
If Dir(folderPathWithName, vbDirectory) = vbNullString Then
MkDir folderPathWithName
Else
MsgBox "Klasör zaten mevcut."
End If
Set wb_New = Workbooks.Add
Set ws_New =...
...' Klasör var mı kontrol et, yoksa oluştur
If Dir(folderPathWithName, vbDirectory) = vbNullString Then
MkDir folderPathWithName
Else
MsgBox "Folder already exists"
End If
' Yeni bir Excel kitabı oluştur
Set wb_New = Workbooks.Add
Set wsNew =...
...' Klasör var mı kontrol et, yoksa oluştur
If Dir(folderPathWithName, vbDirectory) = vbNullString Then
MkDir folderPathWithName
Else
MsgBox "Folder already exists"
End If
' Yeni bir Excel kitabı oluştur
Set wb_New = Workbooks.Add
Set wsNew =...
...As String
Dim cleanName As String
filePath = ThisWorkbook.Path & "\PDF\"
If Dir(filePath, vbDirectory) = "" Then
MkDir filePath
End If
On Error GoTo HataOlustu
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible...
...As String
Dim fileName As String
filePath = ThisWorkbook.Path & "\PDF\"
If Dir(filePath, vbDirectory) = "" Then
MkDir filePath
End If
For Each ws In ThisWorkbook.Worksheets
fileName = filePath & ws.Name & ".pdf"
ws.ExportAsFixedFormat...
...folderPath = "C:\Users\KullanıcıAdı\Documents\PDFs\"
If Dir(folderPath, vbDirectory) = "" Then
MkDir folderPath
End If
gecicipath = folderPath
For i = 5 To 19
Range("B7") = Sheets("data").Cells(i, 5)
With ActiveSheet.PageSetup...
...= klasorYol & "\Yusuf"
yol = testKlasorYol & "\" & Sheets(x).Name & ".pdf"
If Dir(klasorYol, vbDirectory) = "" Then
MkDir klasorYol
End If
If Dir(testKlasorYol, vbDirectory) = "" Then
MkDir testKlasorYol
End If
Sheets(x).ExportAsFixedFormat...
...kaydedileceği tam yolunuzu yazın
' Klasörün var olup olmadığını kontrol edin, yoksa oluşturun
If Dir(folderPath, vbDirectory) = "" Then
MkDir folderPath
End If
' Her bir sayfayı PDF olarak kaydet
For Each ws In ThisWorkbook.Worksheets
pdfPath = folderPath & ws.Name & ".pdf"...
...= Environ("USERPROFILE") & "\Desktop\resim\"
' Create directory if not exist
If Dir(imgPath, vbDirectory) = "" Then
MkDir imgPath
End If
' Generate image name
imgNumber = 1
Do While Dir(imgPath & "resim" & imgNumber & ".png") <> ""
imgNumber =...
...myFolder = "C:\Users\" & Environ("UserName") & "\Desktop\BURAK"
If VBA.Len(Dir(myFolder, vbDirectory)) = 0 Then
MkDir myFolder
End If
On Error Resume Next
Kill myFolder & "\*.xls?"
On Error GoTo 0
Set sh1 = ThisWorkbook.Sheets("Cari")
lColumn =...
...= False
myFolder = "C:\Users\" & Environ("UserName") & "\Desktop\BURAK"
If VBA.Len(Dir(myFolder, vbDirectory)) = 0 Then
MkDir myFolder
End If
On Error Resume Next
Kill myFolder & "\*.xls?"
On Error GoTo 0
Set sh1 = ThisWorkbook.Sheets("Cari")...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.