Hücre İçindeki Değeri Aratmak

[mustafa1205]

Örnek dosyamda da açıklama yapmaya çalıştım. A sütununda bulunan veriyi C sütununda bulunan onbin adet değer içinden bulup karşılığı olan değeri (bir nevi düşey ara) çekmek istiyorum. Umarım açıklayıcı olmuştur. Teşekkür ederim...

 

[Ömer BARAN]

Merhaba, aşağıdaki kod'u kullanabilirsiniz.

Sub BUL_BARAN()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("B:B").ClearContents
For sat = 1 To [A65536].End(3).Row
    Cells(sat, 1).Activate: aranan = Cells(sat, 1)
    Cells.Find(What:=aranan, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
If ActiveCell = Cells(sat, 1) Then
    a = Empty: aranan = Empty: GoTo 10
End If
    a = ActiveCell.Value: Cells(sat, 2) = a: a = Empty
10: Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "BİTTİ"
End Sub

 

[mustafa1205]

Valla ne diyeyim. Çok harika oldu. Ömer Hocam çok teşekkür ederim. Elinize sağlık

 

[Ömer BARAN]

Kod'da küçük bir değişiklik yapmıştım, ne zaman baktınız bilemiyorum, bir kontrol edin en iyisi.

Bu arada; kod, C sütununda bulunan ilk değeri yazar, bilginize.

İyi günler dilerim.

 

[mustafa1205]

Güncellemeyi yaptım. Uyarınız için çok sağolun. Excelin yinelenenleri kaldır özelliği ile veriler tek adete düşürdüm. Şuan için kusursuz çalışıyor. Asıl denemeyi yarın iş yerimde yapacağım. olumlu yada olumsuz size dönüş yaparım. Tekrar teşekkürler...

 

[Korhan Ayhan]

Formülle alternatif çözümler;

Dizi formülleridir...

=EĞER(EHATALIYSA(İNDİS(C:C;KAÇINCI("*"&TEMİZ(A1)&"*";TEMİZ(C:C);0)));"";İNDİS(C:C;KAÇINCI("*"&TEMİZ(A1)&"*";TEMİZ(C:C);0)))

=EĞER(EHATALIYSA(DÜŞEYARA("*"&TEMİZ(A1)&"*";TEMİZ(C:C);1;0));"";DÜŞEYARA("*"&TEMİZ(A1)&"*";TEMİZ(C:C);1;0))

 

[mustafa1205]

Sayın Korhan Hocam. Bu da çok güzel oldu. Çok sağolun. Yarın denemesini yapıp dönüş yaparım. Çok teşekkürler...

 

[Ömer BARAN]

Tekrar merhaba.

DİZİ FORMÜLÜ ile ilgili olarak fikrimi söylemem lazım.
500 kadar hücredeki veri için 10.000 satırlık veride sayma/arama işlemini DİZİ FORMÜLÜ ile yaparsanız,
belgenizde yavaşlama yaşayacağınız kesin gibi, denediğinizde sonucu konu sayfasında paylaşırsınız.

Sağlıcakla.

 

[KMLZDMR]

sayın korhan bey,
formüllerde #YOK hata değeri verdi nasıl düzeltebilirim.

 

[Korhan Ayhan]

Üstteki mesajımdaki formüllere hata kontrollerini ekledim. Deneyiniz.

sayın korhan bey,
formüllerde #YOK hata değeri verdi nasıl düzeltebilirim.