Dosya Klasör Ekle Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! Makroyu Kopyala 'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. Sub Auto_Open() 'belirtilen dizinde "mahmut" isimli bir klasör olup olmadığına bakar yoksa oluşturur On Error Resume Next If Dir("C:mahmut") = "" Then MkDir "C:pir" Sheets("Sheet1").Select End Sub Sub dosyaekle() 'belirtilen dizine dosya ekler. aynı isimli dosya varsa öncekini siler yeniden ekler Dim Dosyam As String, Message As String Workbooks.Add 'çalışma kitabı ekler Dosyam = "C:mahmut.xls" 'yeni eklenecek dosyamızın ismi On Error Resume Next Kill Dosyam 'önceki dosyayı kaldırır On Error GoTo 0 ActiveWorkbook.SaveAs Filename:=Dosyam 'dosyaya isim verir ActiveWorkbook.Close End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 dosya klasör ekle 2 klasör ismi değiştirme 3 dosyanızı istediğiniz klasöre yedekleyin 4 klasördeki tüm xls dosyalarını sxs klasörüne kopyala 5 belirlediğim verilerin klasör, dosyaadi olarak kaydı 6 dosya yedekleme mesaj kutusu ile ismini yaz 7 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 8 dosya açıldığında tanimlama bilgisi 9 dosya açıldığında tanımlama bilgisi 10 dosya al 11 eklantilerin tamamının kontrolü 12 çalışma kitabını diskete yedekler 13 kitabınızı diskete yedekler 14 Bilgisayardaki bir dosyayı silme 15 dizindeki en son klasör ya da dosya ismini verir 16 klasörün içinde kaç adet jpg uzantili dosya var ? 17 dosya isimlerin excele atamak 18 Klasörden dosya adını seçme 19 xls dosyaları okuyup içinden veri almak için 20 tüm dosya ve klasörlerde ara bul penceresini çağırma