Dosya Arama 2 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. Diskteki istediğiniz dosyaları (alt klasörler dahil) nasıl bulacağınız ve bir comboda nasıl listeleyeceğiniz yazıyor. 'Bir forma btnara ismli bir düğme ve comsonuc isimli bir combobox yerleştirmeniz yeterli. Private Sub btnara_Click() comsonuc.Clear comsonuc.Refresh Dim arama As Object Dim aradosya As Object Set arama = CreateObject("FileSearch.Search") Call arama.SearchFiles("d:", "*.mp3", True) Call arama.SearchFiles("C:", "*.xls", True) DoEvents If arama.Files.Count > 0 Then For Each aradosya In arama.Files comsonuc.AddItem aradosya.FileName Set aradosya = Nothing Next End If Set arama = Nothing comsonuc.text="ARAMA BİTTİ" 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 arama 2 2 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 3 menü çubuğunun silinmesi ve özel bir menünün oluşturulması 4 excel sayfasında yazılanları texte çevirmek 5 dosya arama (var mı, yok mu) 6 dosya arama 7 dosya al 8 kullanıcı adı ve parola eklemek 9 dosya yolu ve uzantısını belirle ayrıntılı listelesin 10 internetten dosya indirmek 11 dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya yolunu vs… 12 tüm dosya ve klasörlerde ara bul penceresini çağırma 13 aynı makroyla birden çok sayfaya kayıt yapmak 14 text dosyası 2 silme 15 dosyayı sizden başkası kaydetmesin 16 word sayfası olarak çıktı almak 17 yedek alma ile ilgili 18 tüm makroları seçtiğiniz bir klasördeki excel dosyalarının içindeki makroları listeler 19 mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır 20 worde veri aktarma