30 excel dosyası içinde bir kelime aratma Hazır Excel Makroları (VBA) | Excel Programları

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.

Alpenin çözümüde olur ama kod olarak da;Dosyaları Sayfanıza ekliyerek,Görerek Bulabilirsiniz.Burada excellerin yolu olarak 
D:Belgelerim aldım.Siz yolu değiştirebilrsiniz.Kodları modüle yapıştırın.Daha sonra Butona FileList makrosunu atayın.Kod:

Sub FileList() 
Dim FileNamesList As Variant, i As Integer 
FileNamesList = CreateFileList("*.xls", True) 
Range("A:B").ClearContents 
For i = 1 To UBound(FileNamesList) 
Cells(i + 1, 1) = FileNamesList(i) 
Cells(i + 1, 2) = FileSize(Dir(FileNamesList(i))) 
Next 
Columns("A:B").AutoFit 
End Sub 
Function CreateFileList(FileFilter As String, IncludeSubFolder As Boolean) As Variant 
Dim FileList() As String, FileCount As Long 
CreateFileList = "" 
Erase FileList 
With Application.FileSearch 
.NewSearch 
.LookIn = "D:Belgelerim" 
.Filename = FileFilter 
.SearchSubFolders = IncludeSubFolder 
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) = 0 Then Exit Function 
ReDim FileList(.FoundFiles.Count) 
For FileCount = 1 To .FoundFiles.Count 
FileList(FileCount) = .FoundFiles(FileCount) 
Next 
End With 
CreateFileList = FileList 
Erase FileList 
End Function

Function FileSize(filespec) 
Dim fs, f, f1, fc 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder("D:Belgelerim") 
Set fc = f.Files 
For Each f1 In fc 
If f1.Name = filespec Then FileSize = f1.Size / 1024 & " Kb" 
Next 
End Function

Dosyalar Geldikten Sonra şu makro ile Dosyaların adlarını ayırarak İstediğin dosyayı fonksiyonlarla Bulabilirsin..Tabi bu yöntem tam istediğiniz değil ama yinede örnek olarak bulunsun.Kod: 
Sub ayır() 
    Columns("A:A").Select 
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ 
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ 
        :="", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)) 
    ActiveWindow.ScrollColumn = 2 
End Sub

Benzer Sonuçlar
No	Makro Adı
1	30 excel dosyası içinde bir kelime aratma
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	excel dosyası belirli bir tarihten sonra açılmasın
4	Seçilen hücreleri text dosyasına aktarma
5	tüm makroları seçtiğiniz bir klasördeki excel dosyalarının içindeki makroları listeler
6	xls dosyaları okuyup içinden veri almak için
7	forma otomatik resim getirme
8	userformda resim önzileme
9	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
10	makrolar kutusu ve makrolar görünsün
11	veri olan iki ayrı sütunu birleştirme
12	Gelişmiş DÜŞEYARA (VLOOKUP) Formülü: Aranan değer bir defadan fazla geçiyorsa ikinci veya üçüncü defa geçen değerin karşısındaki ifadeyi getirir.
13	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
14	bir hücredeki kelimeyi arattırıp şayisini bulma
15	Bir Excel dosyasındaki bütün modülleri aynı anda silmek
16	Tüm Çalışma Sayfasından Kelime Sayısı: Bir çalışma sayfasındaki tüm kelimeleri saymanıza yardımcı olabilir.
17	Hücrenin içindeki değeri, sayı değerine bakarak artırma veya formülünü sayı değerine göre atama
18	txt dosyasını silme
19	a1 hücresini b1 hücresine yapıştır c1 gitsin
20	aktif sayfada rakamla kelime birleştirme

Benzer Sonuçlar

Makro Adı

30 excel dosyası içinde bir kelime aratma

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

excel dosyası belirli bir tarihten sonra açılmasın

Seçilen hücreleri text dosyasına aktarma

tüm makroları seçtiğiniz bir klasördeki excel dosyalarının içindeki makroları listeler

xls dosyaları okuyup içinden veri almak için

forma otomatik resim getirme

userformda resim önzileme

hücrede bir sonraki ayın gün sayısı kadar gün ilave etme

makrolar kutusu ve makrolar görünsün