• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

belirli bir kelime içeren satırı bulup veri alma

Katılım
18 Nisan 2008
Mesajlar
304
Excel Vers. ve Dili
excel 365
Office 365
"A1:C100" tablosunda "D1" hücresindeki kelimeyi "içeren" satırları bulup "E1" hücresine "B" stünuna denk gelen veriyi yazacak
Örnek dosya ek'de mevcut.

arkadaşlar elimde gerçekten büyük bir veri var 100.000 lerce satır kadar.
bunların arasından belirlediğim satırları bulmam gerek yapmak istediğim ise gayet basit, ama bilmeyince olmuyor.

dosya aşağıdaki linkde
https://www.dropbox.com/s/i6k8msld8htifrc/ay%C4%B1klama_yardim.xlsm
 
Dosyayı inceleyin. D2:F5 aralığına birşey yazdığınızda süzecektir.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d2:f5]) Is Nothing Then Exit Sub
    Range("A4:C5000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("d1:f2"), Unique:=False
End Sub
 

Ekli dosyalar

Hamitcan bey,
verdiğiniz dosyayı indiremedim ancak, benim eklediğim dosyaya verdiğiniz kodu uyguladığımda
örneğin "D2" hücresine süzmek istediğim kelime olan "YNT:" yazdığımda "A11" ile "A16" arasındaki hücreleri süzmek istediğimde hatalı çalışıyor.
 
Dosyada değişiklikler yaptım, hata vermesi normal.
 
Geri
Üst