-
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
-
S
Kapalı dosyada ki kayıtlı verilere yeni veriler ekleme.!!!
...Set ds = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\" If ds.FolderExists(yol & "Kayıtlar") = False Then ds.CreateFolder yol & "Kayıtlar" If ds.FileExists(ThisWorkbook.Path & "\Kayıtlar\" & ad & ".xlsx") = True Then MsgBox ad & " Dosyası zaten var": Exit Sub...- sinan05
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
S
Soru PDF kaydetme yardım
Öncelikle mesajınız için teşekkür ediyorum çok işime yaradı. Yalnız iki sayfada bu şekilde gizli sayfaları yazdırmazken bir tane sayfada ne yaptıysam satırlar gizlenmesine rağmen yine bütün sayfaları yazdırıyor. Bunun nedeni ne olabilir?- serhatyaman43
- Posta #17
- Forum: Makro-VBA Soruları
-
Soru PDF kaydetme yardım
...1).Resize(40).EntireRow.Hidden = True End If Next i pth = "D:\sınavlar" With CreateObject("Scripting.FileSystemObject") If Not .folderexists(pth) Then .CreateFolder pth End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth & "\Liste.pdf"...- veyselemre
- Posta #11
- Forum: Makro-VBA Soruları
-
Dosyaların Klasörünü Değiştirmek
Sub test() With CreateObject("Scripting.FileSystemObject") If Not .folderexists("C:\NEW") Then .CreateFolder "C:\NEW" If Dir("C:\KAYIT\*NEW*") <> "" Then .movefile "C:\KAYIT\*NEW*", "C:\NEW\" End With End Sub- veyselemre
- Posta #4
- Forum: Makro-VBA Soruları
-
Ö
Hücre değerini 1 arttırarak her defasında oluşan yeni hesaplamayı pdf olarak kaydetme ve whatsapp web de paylaşma
...& "\" & _ Sheets("Sınav Analizi").[A4].Value dosya = d.FolderExists(yol) If dosya = False Then: d.CreateFolder yol Sheets("Sınav Analizi").PageSetup.PrintArea = "$A$1:$S$58" isim = Sheets("Sınav Analizi").[T4] Sheets("Sınav Analizi").ExportAsFixedFormat Type:=xlTypePDF, _...- Ömer BARAN
- Posta #8
- Forum: Excel'e Yeni Başlayanlar
-
T
Sutunda belirtilen dosyaları taşıma
...objFSO.DeleteFolder Range("F1") '("D:\Yeni Klasör") Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder Range("E1") '"D:\Yeni Klasör" src = Range("I1") dest = Range("E1") '"D:\Yeni Klasör\" For i = 2 To 3200 FileCopy src & Cells(i, 1) & ".pdf", _ dest...- tahsinanarat
- Konu
- Cevaplar: 14
- Forum: Makro-VBA Soruları
-
A
Yedeklemede yardım
...ThisWorkbook.Save 'yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" yer = "D:\" 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...- askm
- Posta #2
- Forum: Makro-VBA Soruları
-
Yedeklemede yardım
...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...- power468
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
Xml Dosyası düzenleme ve yine xml formatında kaydetme
...+ 1, 0)), ".", "") yol = "C:\ebyn\beyannameler\" & Tn.Range("C9") XML_FileName = yol & "\" _ & Tn.Range("B5") & "_" & Tn.Range("C9") & "_" & Tn.Range("I3") & "_" & ayilk & "_" & ayson & ".xml" varmı = kls.FolderExists(yol) If varmı = False Then kls.CreateFolder yol- acar6783
- Posta #77
- Forum: Diğer Excel Soruları
-
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 = 0 Workbooks.Add 1 For...- turist
- Posta #29
- 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" a = 1 Workbooks.Add 1 For...- vurkan
- Posta #26
- Forum: Excel'e Yeni Başlayanlar
-
A
Yedek alma işleminde düzeltme
...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 musun?", vbInformation + vbYesNo...- acebeci
- Konu
- Cevaplar: 4
- Forum: Makro-VBA Soruları
-
M
Makro Yardımı
...& " " & [E2] dosyaadi = [E2] & " " & [E3] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$K$85").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & AyAdi &...- Mehmet Sait
- Konu
- Cevaplar: 4
- Forum: Makro-VBA Soruları
-
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ı