Text Arama Motoru

[maidonoz]

Arkadaşlar,

Ekli tabloda search adlı sheet'te bir kelime arattığımda, data sheet D, E, F, G... sütunlarında arattığım kelimeyi İÇEREN bir hücre bulunması halinde o satırda bulunan A ve B sütunu değerlerini elde edebilir miyim.

Örneğin TRE kelimesini arattığımda 1 (A4) ve 3 (B4) değerlerini elde edebilir miyim.

Şimdiden teşekkür ediyor saygılar sunuyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Option Compare Text
 
Sub BulListele()
 
    Dim Sd As Worksheet, sat As Long, c As Range, ilkadres As Variant
     
    Set Sd = Sheets("Data")
     
    Sheets("Search").Select
    Range("A11:B" & Rows.Count).ClearContents
     
    sat = 11
    With Sd.Range("D:D,F:G,I:I")
        Set c = .Find([C7], LookAt:=xlPart)
        If Not c Is Nothing Then
            ilkadres = c.Address
            Do
                Cells(sat, "A") = Sd.Cells(c.Row, "A")
                Cells(sat, "B") = Sd.Cells(c.Row, "B")
                sat = sat + 1
     
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> ilkadres
        End If
    End With
 
End Sub

.

 

[maidonoz]

Çok Teşekkür Ederim

Ömer bey,

Çok teşekkür ediyorum. Ellerinize sağlık. Şimdilik bu kod işimi görecek.

Takıldığım başka hususlar olursa yine rahatsız ederim, tabii izniniz olursa.

Selamlar.

 

[maidonoz]

Aramayı Birden Çok Sütunda Yaptırabiilir miyiz?

Ömer bey,

Yazmış olduğunuz kodda aramayı sadece d sütununda yapıyoruz.

Bu aramayı örneğin; D, F, G, I sütunlarında yaptırmak istese idik kodu nasıl yazmalıydık?

Selamlar...

 

[Ömer]

#2 numaralı mesajda kırmızı işaretlediğim D: D bölümünü D:I olarak değiştiriniz.

.

 

[maidonoz]

Birer Sütun Atlayarak Yapmış olur muyum?

#2 numaralı mesajda kırmızı işaretlediğim D: D bölümünü D:I olarak değiştiriniz.

.

Bu durumda arama birer sütun atlanarak mı yapılır?

Çünkü ben bilhassa F ve H sütunlarında arama yapılmasını istemiyorum.

Saygılar.

 

[Ömer]

Bu aramayı örneğin; D, F, G, I sütunlarında yaptırmak istese idik kodu nasıl yazmalıydık?

#2 numaralı mesajı güncelledim. Aralıkları bu şekilde tanımlayabilirsiniz.

 

[maidonoz]

Teşekkürler

Sabrınız ve alakanız için teşekkür ederim.

İyi geceler...