Excelde arama yapma sorusu

[izcik]

Arkadaşlar ilginize çok teşekkür ederim. Bu güzel araştırmaya en iyisi örnek dosya ekledikten sonra devam edelim. Daha iyi olacaktır. Önümüzdeki günlerde ilk fırsatta bu konunun altına ekleyeceğim. Çünkü istediğim sonuca ulaşamadım.

 

[izcik]

Merhabalar uzmanlarım, maalesef internet sorunundan dolayı dosya ekleyemedim, soruma yazarak devam etmek istiyorum

Hücre hücre yazıyorum

A1 hücresinde
mert

A2 hücresinde
mert can

A3 hücresinde
merter can

A4 hücresinde
ali mert

olarak yazılıdır. Sorum şu;

Ctrl+f yaparak veya başka bir yolla, mert kelimesini aratıp bulmak istiyorum.

Yani A1 , A2 , ve A4 hücrelerinin bulunmasını istiyorum. A3 hücresinde “merter” yazdığı için A3 ün bulunmasını istemiyorum.

Bunun bir yolu var mıdır, teşekkürler

 

[EmrExcel16]

Ctrl+f yaparak veya başka bir yolla

Merhaba , başka bir yol olarak makro kullanmak isterseniz aşağıdaki kodları kullanabilirsiniz..

'Option Compare Text
Sub Bul_Boya()
    Dim Rng, Veri, AraBul, Bul, FrstAdr
    Set Rng = Range("A1:A1000")
    Veri = InputBox("Aranacak veriyi giriniz")
    If Veri <> "" Then
        Rng.Interior.Pattern = xlNone
        Set Bul = Rng.Find("*" & Veri & "*", , xlValues, xlWhole)
        If Not Bul Is Nothing Then
            FrstAdr = Bul.Address
            Do
                AraBul = Split(Cells(Bul.Row, 1), " ")
                For i = 0 To UBound(AraBul)
                    If AraBul(i) = Veri Then
                        Bul.Interior.Color = 255
                        Exit For
                    End If
                Next
                Set Bul = Rng.FindNext(Bul)
            Loop While Not Bul Is Nothing And Bul.Address <> FrstAdr
        End If
    End If
End Sub

 

[izcik]

Uzmanım hem de çok güzel olmuş. Teşekkür ederim. Saygılar

 

[EmrExcel16]

Ayrıca büyük küçük harf duyarlılıği için ilk satırdaki tek tırnağı kaldırabilirsiniz.

 

[izcik]

Yalnız bir ufak düzeltme yapabilir miyiz

Sadece A sütunu değil de, A dan Zye kadar tüm sütun ve 65536 satırı kapsayacak şekil de değiştirebilir miyiz

Zira diğer sütunlarda da veriler var

 

[EmrExcel16]

Set Rng = Range("A1:A1000") bu satırı Set Rng = Range("A1:Z10000") bu şekilde değiştirip denermisiniz.

 

[muhsar]

bende çalışmadı tüm sütunu boyadı,nereyi eksik yapmış olabilirim

 

[EmrExcel16]

bende çalışmadı tüm sütunu boyadı,nereyi eksik yapmış olabilirim

Enterasan ???? , nasıl bir veriyi aradınız ve sütundaki veriler nasıldı acaba , bakmak lazım.

 

[assenucler]

07.09.2019 - 30.03.2020 ortada dosya yok!

 

[izcik]

Uzmanım A1:Z10000 olarak değiştirmeme rağmen sadece A sütununda çalışıyor. Mesela B sütununda çalışmıyor. Tekrar denemeler yapacağım.

Diğer sütunlarda da çalışabilirse o zaman tam olarak çözülmüş olacak

(büyük küçük harf hassasiyeti çalışıyot)

 

[EmrExcel16]

Anladım,
şu satırı da AraBul = Split(Cells(Bul.Row, 1), " ")

bu şekilde değiştirip denermisiniz AraBul = Split(Cells(Bul.Row, Bul.Column), " ")

 

[izcik]

Anladım,
şu satırı da AraBul = Split(Cells(Bul.Row, 1), " ")

bu şekilde değiştirip denermisiniz AraBul = Split(Cells(Bul.Row, Bul.Column), " ")

Uzmanım eksiksiz oldu. Teşekkür ederim tekrar, saygılar

 

[EmrExcel16]

Uzmanım eksiksiz oldu. Teşekkür ederim tekrar, saygılar

Rica ederim , sağlıklı günler dilerim.