Sorgu için arama sonuçları: createfolder

  1. M

    Filitre yaparak dosya içine kaydetme

    ...Set S2 = ThisWorkbook.Sheets("Sheet2") hedefKlasor = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\Dosya\" CreateFolderIfNotExists hedefKlasor S2.Cells.ClearContents S1.Range("A1:L1").Copy S2.Range("A1") son = S1.Cells(S1.Rows.Count...
  2. P

    Filitre yaparak dosya içine kaydetme

    ...dosya = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & _ "\Dosya\" & deger & ".xlsx" CreateFolderIfNotExists CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\Dosya\" S2.Copy ActiveWorkbook.SaveAs Filename:=dosya...
  3. V

    Otomatik kaydet ve yedek al.

    ...' Yedekler klasörünün varlığını kontrol et, yoksa oluştur If Not fso.FolderExists(yedekYolu) Then fso.CreateFolder yedekYolu End If ' Tarih ve saat bilgisini al (gün/ay/yıl saat'dakika'saniye formatında) tarihSaat = Format(Now, "dd.mm.yyyy hh'mm'ss") '...
  4. Biolightant

    klasördeki resim dosyaları gruplama

    ...hedefKlasor = klasorYolu & "\" & dosyaGunGun If Not fso.FolderExists(hedefKlasor) Then fso.CreateFolder hedefKlasor End If ' Çakışmaları önlemek için dosya adını kontrol et yeniDosyaAdi = dosyaAdi sayac = 1...
  5. Biolightant

    klasördeki resim dosyaları gruplama

    ...oluştur hedefKlasor = klasorYolu & "\" & dosyaYili If Not fso.FolderExists(hedefKlasor) Then fso.CreateFolder hedefKlasor End If ' Çakışmaları önlemek için dosya adını kontrol et yeniDosyaAdi = dosyaAdi...
  6. M

    Çözüldü Farklı formatta yedek alma

    ...If Not ds1.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI") Then ds1.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" Then Exit...
  7. K

    Çözüldü Farklı formatta yedek alma

    ...If Not ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI") Then ds1.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" Then Exit Sub...
  8. K

    Çözüldü Şarta uyan hücre aralığını silme hk.

    ...If Not ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI") Then ds.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" Then Exit Sub End If...
  9. K

    kopyalamayı ve çıkış tuşunu kullanmayı engelleme

    Çok teşekkür ederim 2 nci kod işimi gördü
  10. M

    kopyalamayı ve çıkış tuşunu kullanmayı engelleme

    ...ThisWorkbook.Save If Not ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI") Then ds.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" Then...
  11. K

    kopyalamayı ve çıkış tuşunu kullanmayı engelleme

    ...ThisWorkbook.Save If ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI") = False Then ds.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" Then Exit Sub If...
  12. ahmed_ummu

    Dosyaları Başka Bir Klasöre Taşıma

    ...& "\ANAOKULLAR" ' Klasörleri kontrol et ve yoksa oluştur If Not FSO.FolderExists(ilkokullarPath) Then FSO.CreateFolder ilkokullarPath End If If Not FSO.FolderExists(anaokullarPath) Then FSO.CreateFolder anaokullarPath End If ' Klasördeki dosyaları...
  13. M

    Yazdırma alanını hücreden belirtme

    ..."dd.mm.yyyy") & " " dosyaadi = "5 - " & [B2] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi 'With ActiveSheet.PageSetup.PaperSize = 281 'End With ActiveSheet.Range("$B$2:$R$29").ExportAsFixedFormat...
  14. B

    Yedek Alma Problemi

    Merhaba. Diğer bilgisayarda da klasör yolu aynı değilse hata verir. Aşağıdaki klasör yolunu kontrol edin laptop'ta. Klasor = "c:\Yedekler" ds.CreateFolder "E:\MUHASEBE PROĞRAMI"
  15. K

    Yedek Alma Problemi

    ...ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, yol If ds.FolderExists("E:\MUHASEBE PROĞRAMI") = False Then ds.CreateFolder "E:\MUHASEBE PROĞRAMI" End If If ThisWorkbook.Path = "E:\MUHASEBE PROĞRAMI" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation +...
  16. M

    Sayfayı Outlook Mail Taslaklarına Kaydetme

    ...fs = CreateObject("Scripting.FileSystemObject") ' Dizin yoksa oluştur If Not fs.FolderExists(folderPath) Then fs.CreateFolder folderPath End If ' Taslağı belirli dizine kaydet mailItem.SaveAs folderPath & "\" & "ExcelToPDFDraft.msg" ' Nesneleri...
  17. B

    Makro ile Mail gönderirken mail hesabı seçimi

    ...Error GoTo bb ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" bb: Mail = InputBox("Mail Adresini giriniz", "Mail Adresi?") Kontrol = MsgBox("Mail " & Mail & "...
  18. B

    Seçili sekmeleri PDF yapma

    çok teşekkürler oldu bu
  19. A

    Seçili sekmeleri PDF yapma

    ...GoTo hata ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" Bas: Yol = Environ("UserProfile") & "\Desktop\PDF\" Dim syf As Worksheet For Each syf In...
  20. B

    Seçili sekmeleri PDF yapma

    ...= Now On Error GoTo hata ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" Bas: yol = Environ("UserProfile") & "\Desktop\PDF\" For Each syf In ActiveWindow.SelectedSheets...
Üst