-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu için arama sonuçları: createfolder
-
A
Soru Aynı Klasördeki başka bir dosyadan bir alanı seçip yapıştırma
...f = CreateObject("scripting.filesystemobject") yol = ThisWorkbook.Path & "\" If f.FolderExists(yol & "Yedek Dosyalar") = False Then f.CreateFolder yol & "Yedek Dosyalar" ad = f.GetBaseName(ThisWorkbook.Name) & " " & deg kayıt = yol & "Yedek Dosyalar\" & ad & ".xls" a = 1 Workbooks.Add 1 For...- askm
- Posta #23
- Forum: Excel'e Yeni Başlayanlar
-
A
Soru Aynı Klasördeki başka bir dosyadan bir alanı seçip yapıştırma
...f = CreateObject("scripting.filesystemobject") yol = ThisWorkbook.Path & "\" If f.FolderExists(yol & "Yedek Dosyalar") = False Then f.CreateFolder yol & "Yedek Dosyalar" ad = f.GetBaseName(ThisWorkbook.Name) & " " & deg kayıt = yol & "Yedek Dosyalar\" & ad & ".xls" a = 1 Workbooks.Add 1 For...- askm
- Posta #15
- Forum: Excel'e Yeni Başlayanlar
-
A
Soru Aynı Klasördeki başka bir dosyadan bir alanı seçip yapıştırma
...f = CreateObject("scripting.filesystemobject") yol = ThisWorkbook.Path & "\" If f.FolderExists(yol & "Yedek Dosyalar") = False Then f.CreateFolder yol & "Yedek Dosyalar" ad = f.GetBaseName(ThisWorkbook.Name) & " " & deg kayıt = yol & "Yedek Dosyalar\" & ad & ".xls" Workbooks.Add 1 For s = 1...- askm
- Posta #11
- Forum: Excel'e Yeni Başlayanlar
-
V
Soru Aynı Klasördeki başka bir dosyadan bir alanı seçip yapıştırma
...f = CreateObject("scripting.filesystemobject") yol = ThisWorkbook.Path & "\" If f.FolderExists(yol & "Yedek Dosyalar") = False Then f.CreateFolder yol & "Yedek Dosyalar" ad = f.GetBaseName(ThisWorkbook.Name) & " " & deg kayıt = yol & "Yedek Dosyalar\" & ad & ".xls" Workbooks.Add 1 For s = 1...- vurkan
- Posta #10
- Forum: Excel'e Yeni Başlayanlar
-
Dosyayı PDF Olarak Yedeklemek
...Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save yer = "D:\PDF_YEDEKLERİ" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") =...- 1Al2Ver
- Konu
- Cevaplar: 20
- Forum: Makro-VBA Soruları
-
T
Xml oluştururken Türkçe karakter sorunu
...yol = Sayfa2.Range("A2") '------------ Make folder-------------- kvar = FSO.FolderExists(yol) If kvar <> True Then FSO.CreateFolder yol End If '------------ pro ayarlar-------------- Application.ScreenUpdating = False Application.DisplayAlerts = False DoEvents ' userformun düzgün...- TanerSaydam
- Konu
- Cevaplar: 6
- Forum: Makro-VBA Soruları
-
T
XML'yi Excel ile açıp, Geri XML yapma (YARDIM)
...yol = Sayfa2.Range("A2") '------------ Make folder-------------- kvar = FSO.FolderExists(yol) If kvar <> True Then FSO.CreateFolder yol End If '------------ pro ayarlar-------------- Application.ScreenUpdating = False Application.DisplayAlerts = False DoEvents ' userformun düzgün...- TanerSaydam
- Konu
- Cevaplar: 0
- Forum: Makro-VBA Soruları
-
Z
Pdf kaydet buton kodunda değişiklik
...Set ds = CreateObject("WScript.Shell") gds = ds.SpecialFolders("Desktop") If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ" If cs.FolderExists(gds & "\KASA YEDEKLERİ\") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" If...- zulfuernek
- Konu
- Cevaplar: 6
- Forum: Makro-VBA Soruları
-
M
çıkışta farklı kayıt et
...As Boolean) Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("D:\YEDEKLER") = False Then ds.CreateFolder "D:\YEDEKLER" End If If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation +...- mesutaygun70
- Konu
- Cevaplar: 1
- Forum: Makro-VBA Soruları
-
Sayfa yedeğini alma
...ThisWorkbook.Save yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox "İptal...- ASLAN7410
- Konu
- Cevaplar: 18
- Forum: Makro-VBA Soruları
-
Kod birleştirme
...ThisWorkbook.Save yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If DosyaAdi = ThisWorkbook.FullName uzanti = "." & ds.GetExtensionName(DosyaAdi) yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & uzanti ds.CopyFile DosyaAdi...- ASLAN7410
- Konu
- Cevaplar: 19
- Forum: Makro-VBA Soruları
-
Dosya yedekleme (Kod düzeltme)
...ThisWorkbook.Save yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox "İptal...- ASLAN7410
- Konu
- Cevaplar: 1
- Forum: Makro-VBA Soruları
-
M
Server dosya yolu belirtme
..." & [J8] dosyaadi = [J8] & " Üretim Raporu " klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AD$81").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" &...- Mehmet Sait
- Konu
- Cevaplar: 3
- Forum: Excel'e Yeni Başlayanlar
-
C de şartlı klasör ve içine altklasor acma
...Next Dim ds klasor = [b65536].End(3).Row altklasor = Range("b" & klasor).Value Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "C:\anaevrakklasoru\" & altklasor MsgBox "kişinin tc nosu ile - anaevrakklasoru - altında bir altklasör oluşturuldu" ThisWorkbook.Save End Sub...- cems
- Konu
- Cevaplar: 3
- Forum: Excel'e Yeni Başlayanlar
-
Kayıt Adının Değişmesi
...As Boolean) Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("D:\YEDEKLER") = False Then ds.CreateFolder "D:\YEDEKLER" End If If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation +...- 1Al2Ver
- Konu
- Cevaplar: 5
- Forum: Makro-VBA Soruları
-
T
Bu satır nereye yazılmalı?
Merhaba Arkadaşlar, Sub Klasor_Olustur() Dim ds kls = [W8] Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder kls End Sub Bu makro klasör oluşturmaya yarar, güzel yanı W8 hücresinde adı yazılı klasörü oluşturur. Bu klasör varsa işine devam etmesini sağlamak üzere If...- Tevfik_Kursun
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
Z
sheet ismindeki yıla göre klasör açmak ve veri kaydetmek
...ds = CreateObject("WScript.Shell") gds = ds.SpecialFolders("Desktop") If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ" If cs.FolderExists(gds & "\KASA YEDEKLERİ\") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" ChDir gds &...- zulfuernek
- Konu
- Cevaplar: 6
- Forum: Makro-VBA Soruları
-
Z
txt kaydederken tab boşluğu
...ds = CreateObject("WScript.Shell") gds = ds.SpecialFolders("Desktop") If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ" If cs.FolderExists(gds & "\KASA YEDEKLERİ\PDF FORMATI") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" & "PDF...- zulfuernek
- Konu
- Cevaplar: 7
- Forum: Makro-VBA Soruları
-
T
pdf olarak kaydetme sorunu
..."dd.mm.yyyy") klasorara = nesne.FolderExists(masaustuyolu & "\eğitim katılım formları\" & isim) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\eğitim katılım formları\" & isim nesne.CreateFolder masaustuyolu & "\eğitim katılım formları\" & isim & "\" & klasoradi...- TURUNCU28
- Konu
- Cevaplar: 11
- Forum: Makro-VBA Soruları
-
H
Dosya Üzerine Kopyalama Sorunu
...ds.FolderExists("C:\" & "\" & "MTSK BANKA") If a = False Then MsgBox "MTSK BANKA ADLI klasör yok MTSK BANKA adıyla oluşturulacak " ds.CreateFolder "C:\" & "\" & "MTSK BANKA" MsgBox "C:\DE MTSK BANKA KLASÖRÜ OLUŞTURULDU" End If If Val(Application.Version) < 12 Then FileExtStr = ".xls"...- htsumer
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları