Sorgu için arama sonuçları: createfolder

  1. RBozkurt

    Yapay Zekanın Excel web tr ye etkisi

    Google Gemini 2.5 Pro sürüm normal sürüm ile ciddi farkı var. Aynı şekilde ChatGPT 5. Her ikisinide kullanıyorum bana göre Gemini daha önde. Ücretsiz sürümlerde alınan sonuçlar ile ücretli sürüm arasında dağlar var. Örnek makro:
  2. Korhan Ayhan

    Başka dosyaya sayfa kopyalamak

    ...& "\EXCEL\" Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists(File_Path) Then FSO.CreateFolder File_Path Set S1 = Sheets("Sayfa1") Set Taslak = Sheets("TASLAK") With S1.Range("C3:C5") .Formula = "=A3*B3" .Value =...
  3. Korhan Ayhan

    Başka dosyaya sayfa kopyalamak

    ...= CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\EXCEL\" If Not FSO.FolderExists(File_Path) Then FSO.CreateFolder (File_Path) End If Set S1 = Sheets("Sayfa1") With S1.Range("C3:C5") .Formula = "=A3*B3" .Value = .Value...
  4. N

    Başka dosyaya sayfa kopyalamak

    ...& "\EXCEL\" If Not Dosya_Sistemi.FolderExists(Dosya_Yolu) Then Dosya_Sistemi.CreateFolder (Dosya_Yolu) End If Kitap_Adı = S2.Range("A2").Value & ".xlsx" Dosya_Adı = Dosya_Yolu & Kitap_Adı S2.Copy ActiveSheet.Name = S2.Range("A2").Value...
  5. A

    Google Sheet te belli alanı pdf yapıp Google drive a kayıt etme

    ...PDF file // Find or create the folder let folder = DriveApp.getFoldersByName(folderName).next(); if (!folder) { folder = DriveApp.createFolder(folderName); } // Generate the PDF URL for the specific sheet // This URL generates a PDF of the *entire* specified sheet. // To get a specific...
  6. 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...
  7. 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") '...
  8. 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...
  9. 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...
  10. 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...
  11. 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...
  12. 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...
  13. K

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

    Çok teşekkür ederim 2 nci kod işimi gördü
  14. 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...
  15. 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...
  16. 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ı...
  17. 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...
  18. 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"
  19. 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 +...
  20. 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...
Üst