Sorgu için arama sonuçları: MkDir

  1. M

    Makro Revize

    Korhan hocam makroyu denedim next satırında hata verdi sanırım End İf eksikti onu ekledim makro hata vermeden çalıştı. Ancak dosya olduğu halde kopyalama yapmadı, Kopyalanacak dosya bulunamadı uyarısı verdi. İsterseniz örnek dosya paylaşabilirim.
  2. Korhan Ayhan

    Makro Revize

    ...Klasor_3 = "C:\Test3\" Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists(Klasor_3) Then MkDir Klasor_3 Range("A2:A" & Rows.Count).Interior.Color = xlNone For X = 2 To Cells(Rows.Count, "A").End(3).Row Dosya = Trim(Cells(X...
  3. M

    Makro Revize

    Korhan Hocam A Sütununa deneme amaçlı 2 adet TC kimlik numarası yazıp (Bu TC kimlik numarası ile isimlendirilmiş dosyalardan biri GKK_PDF diğeri DENEME klasörünün içinde) makroyu çalıştırdığımda GKK_PDF klasöründeki dosyayı bulup KLASOR1 isimli klasöre kopyaladı ancak DENEME isimli klasördeki...
  4. M

    Makro Revize

  5. Korhan Ayhan

    Makro Revize

    ...= "C:\KLASOR1\" 'VERİ KOPYALANACAK KLASÖR Set A = CreateObject("scripting.filesystemobject") If Not A.FolderExists(Klas3) Then MkDir Kla3 For i = 2 To Cells(Rows.Count, "A").End(3).Row If Trim(Cells(i, "A").Value) <> "" Then dsy = Dir(Klas1 &...
  6. M

    Makro Revize

    ...Klas2 = "C:\KLASOR1\" 'VERİ KOPYALANACAK KLASÖR Set A = CreateObject("scripting.filesystemobject") If Not A.FolderExists(Klas2) Then MkDir Klas2 For i = 2 To Cells(Rows.Count, "A").End(3).Row If Trim(Cells(i, "A").Value) <> "" Then dsy = Dir(Klas1 & Trim(Cells(i, "A").Value) & "*.*"...
  7. ÖmerFaruk

    Yıllara Göre Otomatik Dosya Oluşturma

    ...Kaynak = Kaynak & "\" For i = 2 To Cells(Rows.Count, "A").End(3).Row klasor1 = Cells(i, 1).Value If Dir(Kaynak & klasor1) = "" Then MkDir Kaynak & klasor1 For ay = 1 To 12 klasor2 = klasor1 & Format(ay, "00") If Dir(Kaynak & klasor1 & "\" & klasor2) = "" Then MkDir...
  8. Korhan Ayhan

    Excel'de Her Hücreyi (Hücrelerde Sadece Metin Var) Resim Olarak Farklı Kaydetme

    ...Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Seperator & "Resimler" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Son = S1.Cells(S1.Rows.Count, 1).End(3).Row Set Alan = S1.Range("A3:A" & Son) For Each Klasor In Alan If Dir(Yol & Seperator...
  9. Korhan Ayhan

    Raporlanan Sayfaların Yedeğini Almada Problem

    ...& "\Yedek" Dosya_Adi = Klasor & "\Depo Envanter Raporu - " & Date & ".xlsx" On Error Resume Next If Dir(Klasor) = "" Then MkDir Klasor On Error GoTo 0 Sheets(Array("KONTEYNER.GİRİŞ", "DEPO.ÇIKIŞ.RAPOR", "KAPALI.DEPO.GİRİŞ", "K.DEPO.ÇIKIŞ.RAPOR", _...
  10. M

    İstenen İsimde Klasör Yoksa oluştursun

    Sub farkli_Kaydet() satırından sonra aşağıdaki kodları ekleyiniz. Dim strDir As String strDir = "F:\Kemal" If Dir(strDir, vbDirectory) = "" Then MkDir strDir End If
  11. O

    Raporlanan Sayfaların Yedeğini Almada Problem

    ....DisplayAlerts = False End With git = ActiveSheet.Name Klasor = ThisWorkbook.Path & "\RAPOR\" On Error Resume Next If Dir(Klasor) = "" Then MkDir Klasor Dim ds, a Set ds = CreateObject("Scripting.FileSystemObject") Dim Sayfa As Worksheet Dim myArray() As Variant Dim i As Integer Dim j As...
  12. O

    Raporlanan Sayfaların Yedeğini Almada Problem

    ...= Yanlış İle bitmek git = ActiveSheet.Name Klasor = ThisWorkbook.Path & "\ RAPOR \" Hatada Devam Et Sonraki Dir (Klasor) = "" O zaman MkDir Klasor Dim ds, bir Ds = CreateObject ("Scripting.FileSystemObject") ayarlayın Dim Sayfa Çalışma Sayfası Dim myArray () Değişken Olarak Tamsayı Olarak...
  13. M

    Mail gönderme Sorunu

    Teşekkür ederim Hocam
  14. Korhan Ayhan

    Mail gönderme Sorunu

    ...& _ 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ı" &...
  15. M

    Mail gönderme Sorunu

    Merhaba Hocam, daha önce verdiğiniz bu kodlarla tabloyu, EXCEL sayfası olarak gönderim yapmak istiyorum. Uğraştım ama yapamadım. Yardımlarınız için teşekkür ederim.
  16. Korhan Ayhan

    klasör oluştur dosyaları klasör klasör grupla

    ...CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator & "Mamül Resimleri" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Son = S1.Cells(S1.Rows.Count, 1).End(3).Row Set Alan = S1.Range("A2:A" & Son) For Each Veri In Alan Genislik...
  17. S

    klasör oluştur dosyaları klasör klasör grupla

    Korhan Bey, Sanırım karıştırdınız ya da ben karıştırdım. Resimle ilgili bir isteğim yoktu benim Sanırım sevensuleymana yazacaktınız.
  18. K

    klasör oluştur dosyaları klasör klasör grupla

    ...= CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator & "Mamül Resimleri" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Son = S1.Cells(S1.Rows.Count, 1).End(3).Row Set Alan = S1.Range("A2:A" & Son) For Each Veri In Alan Genislik = Veri.Offset(0, 1).Width...
  19. S

    klasör oluştur dosyaları klasör klasör grupla

    Söylediğiniz gibi excell dosyamı kayank klasörüme içerisnne ekleyip çalıştırdım. klasörler oluşuyor.fakat resimler kopyalanmıyor.
  20. Korhan Ayhan

    klasör oluştur dosyaları klasör klasör grupla

    ...& Application.PathSeparator & "Mamül Resimleri" If Dir(Ana_Klasor, vbDirectory) = "" Then MkDir (Ana_Klasor) Aranan_Klasor = ThisWorkbook.Path & Application.PathSeparator & "KAYNAK KLASÖR" & Application.PathSeparator Son = S1.Cells(S1.Rows.Count, 2).End(3).Row Set...
Üst