Sorgu için arama sonuçları: MkDir

  1. hakki83

    Bir Kez Çalışan Mesaj Kutusu

    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.
  2. Korhan Ayhan

    Bir Kez Çalışan Mesaj Kutusu

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

    Bir Kez Çalışan Mesaj Kutusu

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

    Bir Kez Çalışan Mesaj Kutusu

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

    Bir Kez Çalışan Mesaj Kutusu

    Forumda MkDir komutunu araştırabilirsiniz..
  6. dEdE

    Çözüldü Macro ile klasor olusturup dosyayi kaydetmek

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

    Çözüldü Macro ile klasor olusturup dosyayi kaydetmek

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

    Çözüldü Macro ile klasor olusturup dosyayi kaydetmek

    Merhaba. Boyle bir hata veriyor. Screenshoot
  9. M

    Çözüldü Macro ile klasor olusturup dosyayi kaydetmek

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

    Soru Sayfaları PDF yap ve PDFleri Birleştir

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

    Soru Sayfaları PDF yap ve PDFleri Birleştir

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

    Soru Sayfaları PDF yap ve PDFleri Birleştir

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

    Dosya yedeğini alma

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

    Dosya yedeğini alma

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

    Değersiz Veri kopyalama kodu için yardım.

    ...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...
  16. Korhan Ayhan

    VBA İle Bulunduğun Yıla Göre Klasör Oluşturma

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

    Her ayın sonunda otomatik Back-Up

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

    Gizli Klasör Oluştur

    ..."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 +...
  19. Korhan Ayhan

    hücredeki ifadeyi klasördeki pdf dosyalarının içinde aramakla ilgili

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

    VBA - PDF OLARAK DOSYAYA KAYIT

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