Sorgu için arama sonuçları: MkDir

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.

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

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

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

...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) & "*.*"...

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

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

...& "\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", _...

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

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

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

Teşekkür ederim Hocam

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

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.

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

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.

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

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.

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