Sorgu için arama sonuçları: mkdir

...On Error Resume Next DsyYol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Emr" If Dir(DsyYol, vbDirectory) = "" Then MkDir (DsyYol) For i = 2 To Cells(Rows.Count, 5).End(3).Row If Cells(i, 5).Value <> "" And WorksheetFunction.CountIf(Range([E2]...

...Const adOpenKeyset = 1 myFolder = Environ("USERPROFILE") & "\Desktop\" & "RAPORLAR" If Dir(myFolder, vbDirectory) = "" Then MkDir myFolder Set adoCN = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset") adoCN.Provider =...

...On Error Resume Next DsyYol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Emr" If Dir(DsyYol, vbDirectory) = "" Then MkDir (DsyYol) For i = 1 To Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row If Sheets("Sayfa2").Cells(i, 1).Value <> "" Then...

Merhaba, Then MkDir Hedef_Yol then den sonraki alanda hata veriyor

...& "'!" & Range("A1").Address(, , xlR1C1)) If UCase(Kosul) = "AÇ" Then If Dir(Hedef_Yol, vbDirectory) = "" Then MkDir Hedef_Yol On Error Resume Next Set WB = Application.Workbooks.Item(Dosya_Adi) On Error GoTo 0 If Not WB...

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

Makroyu denedim gerçekten çok hızlı. Diğeri her defa aç kapa aç kapa şeklinde yapıyor. Bunda hemen sonuçlanıyor. Öncelikle metin içine veri çağırırken nasıl bir yol izlemeliyim? ...... ala ... tl gibi. O kısımlara hücre oluşturup mu atlamalıyım? Teşekkürler.

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

Yukarıdaki hatanın sebebini buldum. Makronun birinde alttaki pasif olarak yazdığım kod var, sonda aktif kodu eksik kalmış. Ekledim düzeldi. Pasif With Application .DisplayAlerts = False .ScreenUpdating = False .Calculation = xlManual End With Aktif With...

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

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

...Yol = Environ("UserProfile") & "\Desktop" & "\" & Sheets("Bordro Çoklu").Range("AA2") If Dir(Yol, vbDirectory) = "" Then MkDir Yol ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & PdfName, From:=i, To:=i...

...= [B1978] & ".pdf" Case 65 PdfName = [B2009] & ".pdf" End Select If Len(PdfName) < 6 Then MsgBox "Sayfa İsmi Eksik": Exit Sub ad = Range("aa2") MkDir Environ("USERPROFILE") & "\Desktop" & "\" & ad yol = Environ("USERPROFILE") & "\Desktop" & "\" & ad ActiveSheet.ExportAsFixedFormat...

...= False klasör = Environ$("USERPROFILE") & "\Desktop\" & "ARIZA TESPİT FORMU" If Len(Dir(klasör, vbDirectory)) = 0 Then MkDir klasör Dosya1 = klasör & "\" & Sheets("ANASAYFA").Range("A1") & ".pdf" Sheets("55AZ410").Range("A1:K47").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

...Private Sub CreateDirectory(FolderPath) On Error GoTo ErrHandler If Dir(FolderPath, vbDirectory) = "" Then MkDir FolderPath Exit Sub ErrHandler: MsgBox ("hata") End Sub

...anahedef = "S:\TRT\Prostat_Kanseri_PSMA\" & mystr & "XX\" DosyaAdi = tbDosyaAdi.Value If Len(Dir(anahedef, vbDirectory)) = 0 Then MkDir anahedef End If hedef = anahedef & DosyaAdi kaynak = "S:\TRT\SABLONLAR\BOSPCA.XLSM" If Len(Dir(hedef, vbDirectory)) = 0 Then MkDir hedef Shell...

...& Sh.Range("C40") & " - " & Format(Sh.[C39], "yyyymmdd") & " - " & Sh.[C38] If FSO.FolderExists(Kaynak) = False Then MkDir Kaynak Application.ScreenUpdating = False Application.EnableEvents = False For Each Sayfa In Worksheets If Sayfa.Name <> "Bilgi Girişi" Then...

...ait klasör yok": Exit Sub Kaynak = Kaynak & Application.PathSeparator & Range("C40") If FSO.FolderExists(Kaynak) = False Then MkDir Kaynak Application.DisplayAlerts = False ActiveWorkbook.SaveAs Kaynak & "\" & Format([C39], "yyyymmdd") & " - " & [C38] & " " &...