Sorgu için arama sonuçları: mkdir

MkDir DosyaYolu & "/" & KlasörAdı hocam bu satırda hata verioyr

...' Yeni bir klasör oluştur YeniKlasor = DosyaYolu & "\AYIR" If Dir(YeniKlasor, vbDirectory) = "" Then MkDir YeniKlasor End If ' Tüm sayfaların listesini göster Dim SayfaListesi As String Dim i As Integer SayfaListesi = "Lütfen kaydedilecek...

...DosyaYolu = ActiveWorkbook.Path YeniKlasor = DosyaYolu & "\AYIR" If Dir(YeniKlasor, vbDirectory) = "" Then MkDir YeniKlasor End If Dim SayfaListesi As String Dim i As Integer SayfaListesi = "Lütfen kaydedilecek sayfaların numaralarını virgülle...

...YedekKlasoru = ThisWorkbook.Path & "\Yedek\" If Len(Dir(YedekKlasoru, vbDirectory)) = 0 Then ' Yedek klasörü yoksa oluştur MkDir YedekKlasoru End If DosyaAdi = Replace(Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1), ".", "_") DosyaAdi = DosyaAdi & " (" &...

...= Range("B1:B100") maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub

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

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

...lazimdi. Ilgilendiginiz icin tesekkur ederim. Private Sub SavePDF() strName = Range("M7").Value ChDir ThisWorkbook.Path MkDir strName ActiveWorkbook.SaveAs Filename:=strName & "\" & strName & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled...

...olacaktır. Altenatif olarak aşağıdaki gibi kullanabilirsiniz. Private Sub Workbook_Open() If Dir("C:\Deneme", vbDirectory) = "" Then MkDir "C:\Deneme" If VBA.Dir("C:\Deneme\Kontrol.txt") = "" Then Set Dosya =...

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