Sorgu için arama sonuçları: MkDir

kod bu tekrar bakabilir miyiz?

...dosyaYolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Süzülen Veriler\" If Dir(dosyaYolu, vbDirectory) = "" Then MkDir dosyaYolu ' Verileri filtrele ve kaydet For Each veriCell In rngVeri If Trim(veriCell.Value) <> "" Then ' Boş hücreleri atla...

Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office

...dosyaYolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Süzülen Veriler\" If Dir(dosyaYolu, vbDirectory) = "" Then MkDir dosyaYolu ' Verileri filtrele ve kaydet For Each veriCell In rngVeri If Trim(veriCell.Value) <> "" Then ' Boş hücreleri atla...

...dosyaYolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Süzülen Veriler\" If Dir(dosyaYolu, vbDirectory) = "" Then MkDir dosyaYolu ' Verileri filtrele ve kaydet For Each veriCell In rngVeri If Trim(veriCell.Value) <> "" Then ' Boş hücreleri atla...

...UBound(klasorDizisi) If klasorDizisi(i) <> "" Then mevcutDizin = mevcutDizin & klasorDizisi(i) & "\" ' Klasör yoksa oluştur If Dir(mevcutDizin, vbDirectory) = "" Then MkDir mevcutDizin End If End If Next i End Sub

hocam kodunuzda yeniDosya.SaveAs yerine yeniDosya.SaveCopyAs şeklinde yazılsa daha işlevsel. sizin SaveCopyAs ile dosyanın kopyasını istediği isimle oluşturur. Hali hazırda daha önce açtığı excel dosyası hala açık kalır. SaveAs te ise daha önce açtığı excel dosyası kapanır. yeni dosya açılmış...

...= Environ("USERPROFILE") & "\Desktop" hedefKlasor = masaustu & "\2025" If Dir(hedefKlasor, vbDirectory) = "" Then MkDir hedefKlasor End If tamDosyaYolu = hedefKlasor & "\" & dosyaAdi & ".xlsx" Set yeniDosya = Workbooks.Add...

Emeğinize sağlık, teşekkür ederim. Ama bu seçenek çok zaman alacak. 17.8GB excell dosyam var. Hepsi de farklı klasörlerde ve farklı yerlerde. Sorunum tekrar ederse, önerinizi uygulayacağım. Teşekkürler. İyi çalışmalar.

...= folderPath & "Değiştirilenler\" ' Değiştirilenler klasörünü oluştur If Dir(newFolderPath, vbDirectory) = "" Then MkDir newFolderPath End If ' Klasördeki ilk dosyayı al fileName = Dir(folderPath & "*.xlsx") ' Klasördeki tüm dosyaları dönüştür ve taşı Do...

Elinize sağlık çok güzel olmuş.

...FileName = Yazici.Range("K6").Value FolderName = VBA.Dir(FilePath, vbDirectory) If FolderName = vbNullString Then VBA.FileSystem.MkDir (FilePath) With Yazici.PageSetup .PaperSize = xlPaperA5 .Orientation = xlPortrait .FitToPagesWide = 1...

...istediğinizden emin misiniz?", vbYesNo + vbInformation + vbDefaultButton1, "Yedekleme") If Soru = vbNo Then: Exit Sub ChDrive ("D") MkDir "D:\CKS" ChDir "D:\CKS" Dim DosyaAdi As String DosyaAdi = "Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now)...

Deneyiniz, Sub Yedekle() On Error Resume Next ChDrive ("D") MkDir "D:\CKS" ChDir "D:\CKS" Dim dosyaAdi As String dosyaAdi = "Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now) & "_" & _ Format(Hour(Now), "00") &...

...söylüyor. Ben aşağıdaki kodun sonuna saat ve saniye eklemek istiyorum bunu nasıl yapabilirim? Sub Yedekle() On Error Resume Next ChDrive ("D") MkDir "D:\CKS" ChDir "D:\CKS" ActiveWorkbook.SaveAs Filename:="Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now)...

Necati hocam öncelikle vakit ayırdığınız için teşekkür ederim. Listedeki personel sayısınca tek pdf olarak form oluşuyor ama tüm formlarda listede ilk sıradaki personelin bilgileri var. 150 tane form aynı kişiye ait

...' Klasör adı FolderPath = DesktopPath & "\Performans Notları\" ' Klasörü oluştur If Len(Dir(FolderPath, vbDirectory)) = 0 Then MkDir FolderPath ' Liste sayfasındaki son satırı bul LastRow = wsListe.Cells(wsListe.Rows.Count, "B").End(xlUp).Row ' Sicil numaralarını forma aktar ve PDF olarak...

...' Klasör adı FolderPath = DesktopPath & "\Performans Notları\" ' Klasörü oluştur MkDir FolderPath ' Liste sayfasındaki son satırı bul LastRow = wsListe.Cells(wsListe.Rows.Count, "B").End(xlUp).Row ' Sicil numaralarını forma aktar ve PDF olarak kaydet For i = 3...

...& Application.PathSeparator & myName1 & Application.PathSeparator If Dir(folderPathWithName, vbDirectory) = vbNullString Then MkDir folderPathWithName Else MsgBox "Folder already exists" End If ActiveSheet.Range("A2:E28").Select...

...& sourceSheet.Range("A1").Text & ".xlsx" If Dir(folderPathWithName, vbDirectory) = vbNullString Then MkDir folderPathWithName Else ' Eğer klasör zaten varsa devam etmek istiyorsanız bu mesajı kaldırabilirsiniz ' MsgBox "Klasör zaten mevcut." End If...