Sorgu için arama sonuçları: MkDir

  1. RBozkurt

    Dosyayı Masaüstüne hücre ismiyle kaydetme

    ...Sub Yedekle() Dim Yol As String, Sayfa As Worksheet Yol = Environ("username") & "\Desktop" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then MsgBox "İşlemi...
  2. T

    Dosyayı Masaüstüne hücre ismiyle kaydetme

    ...işinizi görürmü? Option Explicit Sub Yedekle() Dim Yol As String, Sayfa As Worksheet Yol = "c:\Yedek" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then MsgBox "İşlemi iptal ettiniz!"...
  3. M

    Kod içindeki klasör yolunu düzenlemek

    Hocam, 1. Alternatifi kullandım, gayet güzel oldu. Teşekkür ederim.
  4. Korhan Ayhan

    Kod içindeki klasör yolunu düzenlemek

    ...& "Üretim Vardiya Raporları" & Application.PathSeparator If Dir(Yol, vbDirectory) = "" Then Shell ("cmd /c mkdir """ & Yol & """") End If End Sub 2. Alternatif; Option Explicit #If VBA7 Then Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib...
  5. M

    Kod içindeki klasör yolunu düzenlemek

    Merhaba, Kullanıcı adı belirtmek zorunda kalmadan, masa üstüne C:\Desktop\Raporlar\Üretim Vardiya Raporları\ şeklinde olabilir mi?
  6. D

    Kod içindeki klasör yolunu düzenlemek

    ...şekide istersen kodun sonuna &Application.PathSeparator eklersin. Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ Application.PathSeparator & "Üretim Vardiya Raporları" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) On Error Resume Next ....................
  7. M

    Kod içindeki klasör yolunu düzenlemek

    ...& _ 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ı" &...
  8. S

    Combobox'ta veri seçmeye zorlama

    ...= 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 = "" Application.DisplayAlerts = True...
  9. D

    Bir dosyadakı sayfaları ayrı ayrı excel dosyalarına kaydettirme.

    Hocam verdiğiniz yanıt macOS için mi windows için mi?
  10. RBozkurt

    Bir dosyadakı sayfaları ayrı ayrı excel dosyalarına kaydettirme.

    ...Dim i As Integer strFolderName = ThisWorkbook.Path & "\YEDEK\" If Dir(strFolderName, vbDirectory) = "" Then MkDir strFolderName End If strDate = Format(Date, "dd.mm.yyyy") Set wb = ThisWorkbook For i = 5 To wb.Worksheets.Count...
  11. RBozkurt

    Bir dosyadakı sayfaları ayrı ayrı excel dosyalarına kaydettirme.

    ARŞİV klasörünü sabitleyerek; 8. mesajdaki çözüm olsun
  12. D

    Bir dosyadakı sayfaları ayrı ayrı excel dosyalarına kaydettirme.

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

    Bir dosyadakı sayfaları ayrı ayrı excel dosyalarına kaydettirme.

    ...' 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...
  14. RBozkurt

    Bir dosyadakı sayfaları ayrı ayrı excel dosyalarına kaydettirme.

    ...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...
  15. RBozkurt

    Dosyadan Çıkarken Otomatik Yedeklemek

    ...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 & " (" &...
  16. O

    Çözüldü Hücre Değerine Göre Tek Klasör Oluşturma

    ...= 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
  17. Korhan Ayhan

    Aylık dosya yedekleme

    ...-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...
  18. Kavinsky

    Aylık dosya yedekleme

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

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

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

    Bir Kez Çalışan Mesaj Kutusu

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