Sorgu için arama sonuçları: mkdir

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

...WB As Workbook Application.ScreenUpdating = False Yol = "D:\Aylık Yapılacaklar\" If Dir(Yol, vbDirectory) = "" Then MkDir Yol If Dir(Yol & "Sayaç.xlsx") <> "" Then Set WB = Workbooks.Open(Yol & "Sayaç.xlsx", False, False)...

...= ThisWorkbook.Path & "\Tutanak\" kaydet1 = ThisWorkbook.Path & "\Tutanak\Uzlaşma Tutanakları\" 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 = 2 To...

...= ThisWorkbook.Path & "\Tutanak\" kaydet1 = ThisWorkbook.Path & "\Tutanak\Uzlaşma Tutanakları\" If Len(Dir(kaydet2, vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 For i = 2 To sonsatir Set msword = CreateObject("word.application")...

Merhaba Resimdeki hatayı almaktayım

...= ThisWorkbook.Path & "\Tutanak\" kaydet1 = ThisWorkbook.Path & "\Tutanak\Uzlaşma Tutanakları\" If Len(Dir(kaydet2, vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 For i = 2 To sonsatir Set msword = CreateObject("word.application")...

...= ThisWorkbook.Path & "\Tutanak\" kaydet1 = ThisWorkbook.Path & "\Tutanak\Uzlaşma Tutanakları\" If Len(Dir(kaydet2, vbDirectory)) = 0 Then MkDir kaydet2 If Len(Dir(kaydet1, vbDirectory)) = 0 Then MkDir kaydet1 For i = 2 To sonsatir Set msword = CreateObject("word.application")...

...& Dosya_Adi & "]" & Sayfa_Adi & "'!R1C6") On Error Resume Next If UCase(Kosul) = "AÇ" Then If Dir(Hedef_Yol) = "" Then MkDir Hedef_Yol On Error Resume Next Set WB = Application.Workbooks.Item(Dosya_Adi)...

...& Dosya_Adi & "]" & Sayfa_Adi & "'!R1C6") On Error Resume Next If UCase(Kosul) = "AÇ" Then If Dir(Hedef_Yol) = "" Then MkDir Hedef_Yol On Error Resume Next Set WB = Application.Workbooks.Item(Dosya_Adi)...

...& Dosya_Adi & "]" & Sayfa_Adi & "'!R1C6") On Error Resume Next If UCase(Kosul) = "AÇ" Then If Dir(Hedef_Yol) = "" Then MkDir Hedef_Yol On Error Resume Next Set WB = Application.Workbooks.Item(Dosya_Adi)...

...On Error Resume Next DsyYol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Emr" If Dir(DsyYol, vbDirectory) = "" Then MkDir (DsyYol) Set Syf = ThisWorkbook.Sheets("Sayfa1") For i = 2 To Syf.Cells(Rows.Count, 5).End(3).Row If Syf.Cells(i, 5).Value...

Merhabalar öncelikle günaydın Sayın EmrExcel16, denedim ancak sadece Kayseri isminde bir dosya oluşturuyor , dosyayı açınca içinde tüm veriler var