Sorgu için arama sonuçları: MkDir

Korhan hocam arama yaparak sonuca ulaşamadım çünkü kodlar çok karışık. Fakat tahmini olarak MkDir "C:\deneme" Satırının üzerine On Error Resume Next ilave ettim. Oldu sanki. Ama bilmiyorum doğrusu böyle midir.

Merhaba, Yine arama yaparak sonuc gidebilirsiniz. (Not: Öğrenmek için biraz çaba sarfetmelisiniz.) MkDir+Error yazarak nette arama yaparsanız sonuca ulaşabilirsiniz.

Korhan hocam MkDir "C:\deneme" yazınca oluşuyor. Fakat aynı dosyayı tekrar açınca, orada klasör var olduğu için hata veriyor.

Anlaşılmıştır hocam, sağ olunuz. Yapamama durumunda, yardımınızı isteyeceğim.

Forumda MkDir komutunu araştırabilirsiniz..

Dener misiniz? Sub CreateFolderAndSave() Dim strPath As String Dim strFolderName As String strPath = ThisWorkbook.Path strFolderName = Range("M7").Value MkDir strPath & "\" & strFolderName ThisWorkbook.SaveAs strPath & "\" & strFolderName & "\" & ThisWorkbook.Name End Sub

hata verme nededini buldum. xlsx deyil xlsm olmasi lazimmis makro calisti amma masaustune kaydetti. birde ismini M7 dekini yok bu dosyamin oldugu klasorun ismi ve sonuna M7 dekini yazip oyle kaydetdi

Merhaba. Boyle bir hata veriyor. Screenshoot

Sub CreateFolderAndSave() Dim strPath As String Dim strFolderName As String strPath = ThisWorkbook.Path strFolderName = Range("M7").Value MkDir strPath & "" & strFolderName ThisWorkbook.SaveAs strPath & "" & strFolderName & "" & strFolderName & ".xlsx" End Sub

kodun bu bölümündeki kırmızı yeri sil MkDir Yol & "\" & klasor

MkDir Yol & "\" & klasor kısmı sürekli hata veriyor Halit Abi

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