Sorgu için arama sonuçları: MkDir

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

...= ".dfx" Archive_Path = Environ("UserProfile") & "\Desktop\Taşınacak_Dosyalar" If Dir(Archive_Path, vbDirectory) = "" Then MkDir Archive_Path For X = 2 To Cells(Rows.Count, "G").End(3).Row If Dir(File_Path & Cells(X, "G") & File_Extention) <> "" Then...

...My_Path & hcr & "\" & Year(My_Date) & "\" If Len(Dir(My_Folder, vbDirectory)) = 0 Then Shell ("cmd /c mkdir """ & My_Folder & """") End If ThisWorkbook.Sheets("İZİN FORMU").Copy ActiveWorkbook.SaveAs My_Folder & kyt...

sorunum klasör isimlerini hcr ve trh diye atıyor bunun yerine tanımladığım hücreleri atmasını istiyorum teşekkür ederim

...yol3 = "D:\Personel\hcr\trh\" If Dir(yol2, vbDirectory) = "" Then If Dir("C:\Personel\", vbDirectory) = "" Then MkDir "C:\Personel\" If Dir("C:\Personel\hcr\", vbDirectory) = "" Then MkDir "C:\Personel\hcr\" If Dir("C:\Personel\hcr\trh\", vbDirectory) = "" Then MkDir...

...= False Application.DisplayAlerts = False Application.AskToUpdateLinks = False If Dir("C:\İşletme Proğramı\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\" If Dir("C:\İşletme Proğramı\Satışa Esas Sayaç Endeksleri\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\Satışa Esas...

...Format(DateSerial(Year(My_Date), Month(Date), 1), "mmmm") If Len(Dir(My_Folder, vbDirectory)) = 0 Then Shell ("cmd /c mkdir """ & My_Folder & """") End If Do DoEvents My_File = Dir(My_Folder, vbDirectory) Loop While My_File = ""...

korhan bey şu hatayı almaya başladım oysaki kodda hiç değişiklik yapmadım bazen çalışıyor bazen hata veriyor hata veren uyarıya end diyip tekrar çalıştırdımmı hata verdiği yeri oluşturuyor ilerledikçe tekrar hata veriyor end deyip tekrar çalıştırarak hepsini oluşturuyor Korhan bey ekteki...

Çok teşekkürler sorunsuz çalışyor hayırlı işler dilerim

..."00-") & Format(DateSerial(Year(My_Date), X, 1), "mmmm") If Len(Dir(My_Folder, vbDirectory)) = 0 Then Shell ("cmd /c mkdir """ & My_Folder & """") End If Do DoEvents My_File = Dir(My_Folder, vbDirectory) Loop While My_File =...

...için aşağıdaki kodu kullanabilirsiniz. Sub klasör() Application.ScreenUpdating = False If Dir("C:\İşletme Proğramı\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\" If Dir("C:\İşletme Proğramı\Faaliyet raporu\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\Faaliyet raporu\"...

...memnun olurum Sub klasör() Dim yol As String yol = "C:\İşletme Proğramı\" Application.ScreenUpdating = False If Dir(yol, vbDirectory) = "" Then MkDir yol End Sub ben yol = "C:\İşletme Proğramı\Faaliyet raporu" şeklinde oluşturmasını istiyorum. bu yolu kodun içine yazdığımda hata veriyor

,sizden ricam dosya ismini kayıt ettirirken sheets(1) range("f2") hücresinde girili olan tarihi ay yıl olarak alacak ve & faaliyet raporu olarak kaydedecek şekilde düzenleyebilirmisiniz ayrıca eklemek veya düzeltmek istediğiniz biyer varsa memnun olurum teşekkür ederim.

...h As Byte, t As Byte Application.ScreenUpdating = False Yol = "C:\İşletme Proğramı\" If Dir(Yol, vbDirectory) = "" Then MkDir Yol ThisWorkbook.Unprotect "123" For h = 34 To 51 Sheets(h).Visible = True Sheets(h).Unprotect "2227" Next h ReDim dizi(17)...

...Klasor = Environ("UserProfile") & Ayrac & "desktop" & Ayrac & Range("B5") If Dir(Klasor, vbDirectory) <> "" Then MsgBox "Klasör mevcut !", vbExclamation Else MkDir (Klasor) MsgBox "Klasör oluşturulmuştur.", vbInformation End If End Sub

Merhaba, İnceleyiniz. https://www.excel.web.tr/search/265253/?q=mkdir&o=date https://www.excel.web.tr/search/265254/?q=createfolder&o=date

...Dim resim As String Dim urlalt As String sIMGDIR = "c:\folder\" & "resim" If Dir(sIMGDIR, vbDirectory) = "" Then MkDir sIMGDIR With ActiveSheet '<-set this worksheet reference properly! urlalt =...

...& "\Mutabakatlar\saticilar_pdf\" & R1.Range("E2").Text & "-" & R1.Range("D2").Text & "\" If Len(Dir(kaydet2, vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 Set msword = CreateObject("word.application") msword.Visible = True For i = 6 To...

...= ThisWorkbook.Path & "\Mutabakatlar\" kaydet1 = ThisWorkbook.Path & "\Mutabakatlar\saticilar_pdf\" If Len(Dir(kaydet2, vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 Set msword = CreateObject("word.application") msword.Visible = True For i =...

Çalışıyor çok teşekkür ederim yanlız ben söylemeyi unuttum kopyalarken sayfanın içinde nesnelerde var sayfanın şifresini kaldırıp onlarıda silmesi için ne yapabilirim Sheets(Sayaç).Unprotect "2227" ActiveSheet.Shapes.Range(Array( _ "Dikdörtgen: Üst Köşelerinden Biri Yuvarlatılmış, Biri...