Sorgu için arama sonuçları: MkDir

...& Application.PathSeparator & myName1 & Application.PathSeparator If Dir(folderPathWithName, vbDirectory) = vbNullString Then MkDir folderPathWithName Else MsgBox "Folder already exists" End If ActiveSheet.Range("A2:E28").Select...

...& 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 =...

...& Application.PathSeparator & myName1 & Application.PathSeparator If Dir(folderPathWithName, vbDirectory) = vbNullString Then MkDir folderPathWithName Else MsgBox "Folder already exists" End If ActiveSheet.Copy Application.DisplayAlerts =...

...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...

Hocam aynı işlemi rar layarak yapabiliyormuyuz

...= 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...

...& "\" & Sheets(x).Name & ".pdf" klasorYol = ThisWorkbook.Path & "\" & Sheets(x).Name If Dir(klasorYol, vbDirectory) = "" Then MkDir klasorYol End If Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol Next MsgBox "İşlem tamamlandı." Exit Sub hata: MsgBox...

...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"...

Chatcpt kod yazabiliyor mu? :)

...= 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 =...

Hocam eline sağlık kod çalıştı.

...Set kls = CreateObject("Scripting.FileSystemObject") yol = "D:\YEDEKLER\" & Format(Date, "YYYYMMDD") If kls.FolderExists(yol) = False Then MkDir (yol) ThisWorkbook.SaveCopyAs yol & "\" & Format(Now, "hhnnss") & ".xlsm" sil = "D:\YEDEKLER\" & Format(Date - 4, "YYYYMMDD") If...

...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")...

...yoksa klasörü oluştur If Dir(ParcaFolder, vbDirectory) <> "" Then CleanUpTempFiles ' Geçici dosyaları temizle Else MkDir ParcaFolder ' Klasörü oluştur End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality _...