Sorgu için arama sonuçları: mkdir

...= folderPath & "Değiştirilenler\" ' Değiştirilenler klasörünü oluştur If Dir(newFolderPath, vbDirectory) = "" Then MkDir newFolderPath End If ' Klasördeki ilk dosyayı al fileName = Dir(folderPath & "*.xlsx") ' Klasördeki tüm dosyaları dönüştür ve taşı Do...

Elinize sağlık çok güzel olmuş.

...FileName = Yazici.Range("K6").Value FolderName = VBA.Dir(FilePath, vbDirectory) If FolderName = vbNullString Then VBA.FileSystem.MkDir (FilePath) With Yazici.PageSetup .PaperSize = xlPaperA5 .Orientation = xlPortrait .FitToPagesWide = 1...

...istediğinizden emin misiniz?", vbYesNo + vbInformation + vbDefaultButton1, "Yedekleme") If Soru = vbNo Then: Exit Sub ChDrive ("D") MkDir "D:\CKS" ChDir "D:\CKS" Dim DosyaAdi As String DosyaAdi = "Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now)...

Deneyiniz, Sub Yedekle() On Error Resume Next ChDrive ("D") MkDir "D:\CKS" ChDir "D:\CKS" Dim dosyaAdi As String dosyaAdi = "Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now) & "_" & _ Format(Hour(Now), "00") &...

...söylüyor. Ben aşağıdaki kodun sonuna saat ve saniye eklemek istiyorum bunu nasıl yapabilirim? Sub Yedekle() On Error Resume Next ChDrive ("D") MkDir "D:\CKS" ChDir "D:\CKS" ActiveWorkbook.SaveAs Filename:="Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now)...

Necati hocam öncelikle vakit ayırdığınız için teşekkür ederim. Listedeki personel sayısınca tek pdf olarak form oluşuyor ama tüm formlarda listede ilk sıradaki personelin bilgileri var. 150 tane form aynı kişiye ait

...' Klasör adı FolderPath = DesktopPath & "\Performans Notları\" ' Klasörü oluştur If Len(Dir(FolderPath, vbDirectory)) = 0 Then MkDir FolderPath ' Liste sayfasındaki son satırı bul LastRow = wsListe.Cells(wsListe.Rows.Count, "B").End(xlUp).Row ' Sicil numaralarını forma aktar ve PDF olarak...

...' Klasör adı FolderPath = DesktopPath & "\Performans Notları\" ' Klasörü oluştur MkDir FolderPath ' Liste sayfasındaki son satırı bul LastRow = wsListe.Cells(wsListe.Rows.Count, "B").End(xlUp).Row ' Sicil numaralarını forma aktar ve PDF olarak kaydet For i = 3...

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