Sorgu için arama sonuçları: mkdir

...= Format(Now, "dd/mm") Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor If fL.FolderExists(Yol) = False Then MkDir Yol End If Say = fL.getfolder(Yol).Files.Count + 1 Sheets(Array("Hakediş Özeti", "Hakediş İcmali", "Hakediş Raporu")).Select...

...= Dosya & Format(Now, " dd_mm_yyyy_hh_mm") & uzanti Kayıt_Yeri = yer & Yedek_Dosya_Adı On Error Resume Next If Dir(yer) = "" Then MkDir yer On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri ActiveWorkbook.Password = "" MsgBox "Dosyanız aşağıdaki isimle...

...& Format(Date, "yyyy") & "\" & Format(Date, "mmmm") & "\" If Dir(My_Folder, vbDirectory) = "" Then Shell ("cmd /c mkdir """ & My_Folder & """") End If ThisWorkbook.Sheets.Copy ActiveWorkbook.SaveAs My_Folder & Replace(ThisWorkbook.Name, "xlsm", "xlsx"), 51...

...Y.[A1].EntireRow.Delete Application.DisplayAlerts = False Yol = "D:\EXCEL" If Dir(Yol, vbDirectory) = Empty Then MkDir Yol ChDir Yol Y.SaveAs Filename:=Yol & "\Fiyat Güncelleme.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True...

İnceleyiniz. https://www.excel.web.tr/search/295484/?q=MkDir&o=date

...& Format(Date, "yyyy") & "\" & Format(Date, "mmmm") & "\" If Dir(My_Folder, vbDirectory) = "" Then Shell ("cmd /c mkdir """ & My_Folder & """") End If ThisWorkbook.Save ThisWorkbook.Sheets.Copy ActiveWorkbook.SaveAs My_Folder & Format(Now, "dd.mm.yyyy...

..."C:\" klasöradı = "dene" hepsi = yer & klasöradı If CreateObject("Scripting.FileSystemObject").FolderExists(hepsi) = False And hepsi <> "" Then MkDir hepsi Call gizle End Sub Sub gizle() SetAttr "c:\dene\", vbHidden + vbSystem End Sub Sub göster() SetAttr "c:\dene\", vbNormal +...

...= VBA.CreateObject("WScript.Shell").SpecialFolders("Desktop") & Separator & "Arama Sonuçları" If Dir(My_Folder, vbDirectory) = "" Then MkDir My_Folder My_Data = S1.Range("D1:F" & WorksheetFunction.Max(2, S1.Cells(S1.Rows.Count, 4).End(3).Row)).Value For X =...

..."Bilgi Mesajı") End If On Error Resume Next ad = InputBox("Masraf Numarasını ve Firma İsmini giriniz. Örnek: KOZMATİN_00001.") MkDir Klasöryolu & "\" & ad BilgiMesajı = MsgBox(ad & " Klasörü Açılmıştır", vbInformation, "Bilgi Mesajı") '------------------- DOSYA KOPYALAMA Dim...

...& _ Application.PathSeparator & Year(Date) & " Üretim Vardiya Raporları" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ Application.PathSeparator & Year(Date) & " Üretim Vardiya Raporları" &...

...= ".dfx" Archive_Path = Environ("UserProfile") & "\Desktop\Taşınacak_Dosyalar" If Dir(Archive_Path, vbDirectory) = "" Then MkDir Archive_Path For X = 2 To Cells(Rows.Count, "G").End(3).Row If Dir(File_Path & Cells(X, "G") & File_Extention) <> "" Then...

...My_Path & hcr & "\" & Year(My_Date) & "\" If Len(Dir(My_Folder, vbDirectory)) = 0 Then Shell ("cmd /c mkdir """ & My_Folder & """") End If ThisWorkbook.Sheets("İZİN FORMU").Copy ActiveWorkbook.SaveAs My_Folder & kyt...

sorunum klasör isimlerini hcr ve trh diye atıyor bunun yerine tanımladığım hücreleri atmasını istiyorum teşekkür ederim

...yol3 = "D:\Personel\hcr\trh\" If Dir(yol2, vbDirectory) = "" Then If Dir("C:\Personel\", vbDirectory) = "" Then MkDir "C:\Personel\" If Dir("C:\Personel\hcr\", vbDirectory) = "" Then MkDir "C:\Personel\hcr\" If Dir("C:\Personel\hcr\trh\", vbDirectory) = "" Then MkDir...

...= False Application.DisplayAlerts = False Application.AskToUpdateLinks = False If Dir("C:\İşletme Proğramı\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\" If Dir("C:\İşletme Proğramı\Satışa Esas Sayaç Endeksleri\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\Satışa Esas...

...Format(DateSerial(Year(My_Date), Month(Date), 1), "mmmm") If Len(Dir(My_Folder, vbDirectory)) = 0 Then Shell ("cmd /c mkdir """ & My_Folder & """") End If Do DoEvents My_File = Dir(My_Folder, vbDirectory) Loop While My_File = ""...

korhan bey şu hatayı almaya başladım oysaki kodda hiç değişiklik yapmadım bazen çalışıyor bazen hata veriyor hata veren uyarıya end diyip tekrar çalıştırdımmı hata verdiği yeri oluşturuyor ilerledikçe tekrar hata veriyor end deyip tekrar çalıştırarak hepsini oluşturuyor Korhan bey ekteki...

Çok teşekkürler sorunsuz çalışyor hayırlı işler dilerim

..."00-") & Format(DateSerial(Year(My_Date), X, 1), "mmmm") If Len(Dir(My_Folder, vbDirectory)) = 0 Then Shell ("cmd /c mkdir """ & My_Folder & """") End If Do DoEvents My_File = Dir(My_Folder, vbDirectory) Loop While My_File =...

...için aşağıdaki kodu kullanabilirsiniz. Sub klasör() Application.ScreenUpdating = False If Dir("C:\İşletme Proğramı\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\" If Dir("C:\İşletme Proğramı\Faaliyet raporu\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\Faaliyet raporu\"...