Sorgu için arama sonuçları: MkDir

  1. V

    Klasör içinde bulunan dosyaları isimlerine göre yenı klasörlere dagıtabılır mıyız

    ...= anaKlasor & aranacakKelime ' Yeni klasör yolu ' --- Klasör yoksa oluştur --- If Dir(yeniKlasor, vbDirectory) = "" Then MkDir yeniKlasor End If dosyaAdi = Dir(anaKlasor & "*.xls*") ' Excel dosyalarını tara (xlsx, xlsm, xlsbus) Do While dosyaAdi <> ""...
  2. Korhan Ayhan

    masa üstüne ayrı isimlerde klasör oluşturma

    ...True Else MsgBox "İşlem iptal edildi.", vbExclamation GoTo Cleanup End If End If MkDir anaKlasor ' Tüm veri aralığı Set rngVeri = ws.Range("A1:H" & sonSatir) Dim i As Long For i = 2 To sonSatir evrakID =...
  3. V

    masa üstüne ayrı isimlerde klasör oluşturma

    ...& evrakID & "\" ' Eğer klasör yoksa oluştur If Dir(klasorYolu, vbDirectory) = "" Then MkDir klasorYolu End If ' --- Hedef dosya yolu --- hedefDosya = klasorYolu & evrakID & " - " & sahip &...
  4. V

    masa üstüne ayrı isimlerde klasör oluşturma

    ..."EVRAK ID" adlı ana klasör oluştur (yoksa) anaKlasor = masaustu & "EVRAK ID" If Dir(anaKlasor, vbDirectory) = "" Then MkDir anaKlasor End If ' Satırları dolaş For i = 2 To sonSatir ' Başlık varsa 2. satırdan başla evrakID = Trim(ws.Cells(i, "G").Value)...
  5. V

    masa üstüne ayrı isimlerde klasör oluşturma

    ...= masaustu & evrakID & " - " & sahip ' Eğer klasör yoksa oluştur If Dir(klasorAdi, vbDirectory) = "" Then MkDir klasorAdi End If End If Next i MsgBox "Klasörler başarıyla oluşturuldu!", vbInformation End Sub
  6. M

    Soru Klasör oluşturup, word dosyalarını içine kaydetmek

    ...Raporları" End If NewFolderPath = DesktopPath & FolderName & "\" If Dir(NewFolderPath, vbDirectory) = "" Then MkDir NewFolderPath End If Set WordApp = New Word.Application For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row Set Doc =...
  7. M

    Soru Klasör oluşturup, word dosyalarını içine kaydetmek

    ...Word.Application Dim Sablon As String Dim i As Integer Sablon = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" MkDir ("MEK DENETİM RAPORLARI") Set WordApp = New Word.Application For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row Set Doc =...
  8. halit3

    Başka dosyaya sayfa kopyalamak

    ...& "\EXCEL" If CreateObject("Scripting.FileSystemObject").FolderExists(Dosya_Yolu) = False Then MkDir Dosya_Yolu End If Sayfa_Adı = "DENEME.xlsx" Kitap_Adı = Dosya_Yolu & "\" & Sayfa_Adı deg1 = 0 deg2 = 0 If CreateObject("Scripting.FileSystemObject").FileExists(Kitap_Adı) = True Then...
  9. halit3

    Başka dosyaya sayfa kopyalamak

    ...& "\EXCEL" If CreateObject("Scripting.FileSystemObject").FolderExists(Dosya_Yolu) = False Then MkDir Dosya_Yolu End If Sayfa_Adı = "DENEME.xlsx" Kitap_Adı = Dosya_Yolu & "\" & Sayfa_Adı If CreateObject("Scripting.FileSystemObject").FileExists(Kitap_Adı) = True Then Sheets("TASLAK").Select...
  10. halit3

    Başka dosyaya sayfa kopyalamak

    ...& "\EXCEL" If CreateObject("Scripting.FileSystemObject").FolderExists(Dosya_Yolu) = False Then MkDir Dosya_Yolu End If Kitap_Adı = isim & ".xlsx" Dosya_Adı = Dosya_Yolu & "\" & Kitap_Adı S2.Copy ActiveSheet.Name = isim Dosya_Yolu =...
  11. M

    Makro Klasör Kaydı

    ...= klasorYol & "\Yusuf" yol = testKlasorYol & "\" & Sheets(x).Name & ".pdf" If Dir(klasorYol, vbDirectory) = "" Then MkDir klasorYol If Dir(testKlasorYol, vbDirectory) = "" Then MkDir testKlasorYol Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol...
  12. wezyr

    Otomatik klasör oluşturma da sınırlama var

    ...<> "" Then Range("H" & i).Value = "Zaten var" Else On Error Resume Next MkDir klasorYolu If Err.Number <> 0 Then Range("H" & i).Value = "Hata: " & Err.Description Err.Clear...
  13. A

    Otomatik klasör oluşturma da sınırlama var

    ...veriyor imleci ("B" & i) "i" nin üzerine getirdiğimde 46 görünüyor ve tam o kadar klasör oluşturuyor ne yapmam gerekir yardımcı olursanız sevinirim. Sub klasorolusturma() Dim i As Integer For i = 2 To 155 MkDir "C:\Users\bilgisayar\Desktop\....\...\Klasör Oluşturma\" & Range("B" & i) Next...
  14. N

    Pdf kaydetme şarta bağlı farklı klasörlere

    Merhaba çok teşekürrr ederim istediğim buydu üstad allah razı olsun sağolasın..
  15. M

    Pdf kaydetme şarta bağlı farklı klasörlere

    ...= "teklif" Then Dim Dizin As String Dizin = "D:\mavi\" If Dir(Dizin, vbDirectory) = "" Then MkDir Dizin Dim MaviYol As String MaviYol = Dizin & DosyaAdi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MaviYol, _...
  16. M

    Nesneleri Dışa Aktarma

    ...& "Data.zip" On Error Resume Next FSO.deletefolder TmpPath FSO.deletefolder sPath & "PDF" 'Deletes previously extracted files MkDir sPath & "PDF" MkDir TmpPath On Error GoTo 0 'Make copy of workbook as zip file ActiveWorkbook.SaveCopyAs FName 'Unzip bin...
  17. Zeki Gürsoy

    Nesneleri Dışa Aktarma

    ...ws As Worksheet dst = Environ$("userprofile") & "\Desktop\ExtractedPDFs" If Dir(dst, vbDirectory) = "" Then MkDir dst Else If Dir(dst & "\*.*") <> "" Then Kill dst & "\*.*" End If Set oShell =...
  18. M

    Filitre yaparak dosya içine kaydetme

    ...oluşturulacak mı kontrol yol = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\Dosya" If Dir(yol, vbDirectory) = "" Then MkDir yol ' Veriyi Array'e al veri = S1.Range("A1:L" & S1.Cells(S1.Rows.Count, "B").End(xlUp).Row).Value ' Benzersiz değerleri Dictionary ile bul Set...
  19. muratgunay48

    Yerine koy ve PDF oluştur.

    Hocam çok teşekkür ederim. Emeğinize sağlık. Var olun.
  20. M

    Yerine koy ve PDF oluştur.

    ...= "C:\Users\muratgunay48\Documents\yazılar\" ' Eğer klasör yoksa oluştur If Dir(klasorYolu, vbDirectory) = "" Then MkDir klasorYolu End If ' Son dolu satırı bul sonSatir = wsKaynak.Cells(wsKaynak.Rows.Count, "A").End(xlUp).Row ' A1'den son satıra kadar...
Üst