Sorgu için arama sonuçları: MkDir

  1. Korhan Ayhan

    Klasör oluşturup içine çalışma sayfasını kaydetme

    ...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)...
  2. N

    Soru VBA Word Doldurma Hatası Hakkında

    ...= 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...
  3. Korhan Ayhan

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

    Merhaba Resimdeki hatayı almaktayım
  5. N

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Kapalı Çalışma kitabını şartlı açmak

    ...& 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)...
  8. bulentkars

    Kapalı Çalışma kitabını şartlı açmak

    ...& 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)...
  9. bulentkars

    Soru Klasör Altındaki Dosyaların E Kolununda dolu olan verileri kopyalamak

    ...& 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)...
  10. E

    Aynı olan değerlerden yeni çalışma kitabi oluşturma

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

    Aynı olan değerlerden yeni çalışma kitabi oluşturma

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

    Aynı olan değerlerden yeni çalışma kitabi oluşturma

    ...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]...
  13. H

    Aynı olan değerlerden yeni çalışma kitabi oluşturma

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

    İsme göre yeni çalışma kitabı oluşturmak

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

    Kapalı Çalışma kitabını şartlı açmak

    Merhaba, Then MkDir Hedef_Yol then den sonraki alanda hata veriyor
  16. Korhan Ayhan

    Kapalı Çalışma kitabını şartlı açmak

    ...& "'!" & 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...
  17. RBozkurt

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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

    Soru VBA Word Doldurma Hatası Hakkında

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