Ara Bul Listele 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 Asteriks() Dim i As Integer Dim j As Integer Dim Sayac As Integer Dim SinananVeri As String Veri = InputBox("Aranan Veriyi Belirtiniz", "ARANAN VERİ", "") SinananVeri = "*" & Veri & "*" Set Say1 = Worksheets("Sayfa1") Set Say2 = Worksheets("Sayfa2") j = 1 For i = 1 To 10 If WorksheetFunction.CountIf(Say2.Cells(i, 1), SinananVeri) > 0 Then Say1.Cells(j, 1) = Say2.Cells(i, 1) Sayac = Sayac + 1 j = j + 1 End If Next i MsgBox Say2.Name & "'de aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Say1.Name & "'de listelendi." 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 ara bul listele 2 dosya arama 2 3 listede 1 den fazla olanların 1 adet olarak listelenmesi 4 sayfa1'de arar bulur, sayfa2'de listeler 5 arayıp bulma ve mesajla sıralı olarak listeleme 6 30 excel dosyası içinde bir kelime aratma 7 forma otomatik resim getirme 8 makrolar kutusu ve makrolar görünsün 9 menü çubuğunun silinmesi ve özel bir menünün oluşturulması 10 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 11 tüm makroların listesi 12 aktif sayfadaki formülleri bulur yeni sayfaya listeler 13 tüm makroları seçtiğiniz bir klasördeki excel dosyalarının içindeki makroları listeler 14 dosya yolu ve uzantısını belirle ayrıntılı listelesin 15 klasöre gözat xls listele 16 dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya yolunu vs… 17 ara bul makrosu 18 ara bul renklendir 19 Bir yazıyı / metni açık olan bütün Excel dosyalarında arayıp bulmak 20 multipage zemin rengi