Sorgu için arama sonuçları: MkDir

  1. Asri

    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")...
  2. Asri

    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")...
  3. 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 For i = 2 To sonsatir Set msword = CreateObject("word.application")...
  4. Korhan Ayhan

    PDF dosya kaydeden mevcut makroda değişiklik talebi

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

    PDF dosya kaydeden mevcut makroda değişiklik talebi

    ...= [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...
  6. H

    Soru ComboBoxtan Sayfa Seç ve PDF Yap

    ...= 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:= _...
  7. S

    Selenium Basic ile Whatsapp mesajı göndermek.

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

    Soru Neden dosyamı kapatırken out of memory uyarısı alıyorum?

    ...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...
  9. ÖmerFaruk

    Klasör Bazlı Tarama Yaparak Farklı Kaydet

    ...& 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...
  10. ÖmerFaruk

    Klasör Bazlı Tarama Yaparak Farklı Kaydet

    ...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] & " " &...
  11. C

    Excel Dosyalara parçalama

    forumu çok fazla kullanmadığımdan gözden kaçmış güncelledim excel 2016 kullanıyorum teşekkürler
  12. tamer42

    Klasör oluşturma ve içine dosya yükleme

    Üstat ne yapmak istediğinizi işin açıkçası tam anlamadım, yan yana olmayla bir ilgisi olmaz. SA.Range("A2:A82,C2:E7").Select daha açıklayıcı yazarsanız yardımcı olmak isteriz.
  13. mancubus

    Klasör oluşturma ve içine dosya yükleme

    MkDir satırından sonra On Error GoTo 0 komutu ile hata moduna dönülüyor. (On Error Resume Next iptal ediliyor diyelim.) aynı isimde bir klasör varsa kodun durmaması için önlem. muhtemelen alt alta veya yan yana olmayan alanların seçimi ile ilgili. export öncesi boş bir sayfada birleştirip...
  14. tamer42

    Klasör oluşturma ve içine dosya yükleme

    ...If Range("E2") = 11 Then yol = "C:\Users\" & Environ$("UserName") & "\Desktop\HUB\" klasor = yol & Cells(1, 2).Value On Error Resume Next MkDir klasor On Error GoTo 0 us = "Tamer" yol2 = "C:\Users\" & us & "\Desktop\HUB\pdf" SA.Select SA.Range("A2:A82,C2:E7").Select...
  15. tamer42

    Klasör oluşturma ve içine dosya yükleme

    Kod ierindeki aşağıdaki satırı kontrol eder misiniz yol2 = "C:\Users\" & Environ$("UserName") & "\Desktop\iepkonya1\klasor"
  16. M

    Klasör oluşturma ve içine dosya yükleme

    ...Range("NW87") = 3 Then yol = "C:\Users\" & Environ$("UserName") & "\Desktop\iepkonya1\" klasor = yol & Cells(4, 2).Value On Error Resume Next MkDir klasor On Error GoTo 0 yol2 = "C:\Users\" & Environ$("UserName") & "\Desktop\iepkonya1\klasor" isim = SA.Range("A1979").Value & "-" &...
  17. Korhan Ayhan

    Excel Dosyalara parçalama

    ...Set Dizi = VBA.CreateObject("Scripting.Dictionary") Yol = K1.Path & "\Dosyalar\" If Dir(Yol, vbDirectory) = "" Then MkDir Yol Else If VBA.CreateObject("Scripting.FileSystemObject").Getfolder(Yol).Files.Count > 0 Then Kill Yol & "*.*" End If...
  18. M

    VBA Kod yardımı

    ...Dosya_Adi 'End If Set Klasor = Nothing Set FSO = Nothing End Sub Public Sub YedekKlasoruOlustur() On Error GoTo Son MkDir ("\\192.168.1.242\ortak\Üretim\Üretim Takip\Vardiya Yedek\" & Format(Date, "dd.mm.yyyy") & " - " & "Üretim Raporu") Son: End Sub Yol =...
  19. xsamet

    Sekmeleri Ayrı Ayrı Dosyaya çevirme

    ...FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If MkDir FolderName For Each xWs In xWb.Worksheets On Error GoTo NErro If xWs.Visible = xlSheetVisible Then xWs.Select xWs.Copy xFile =...
Üst