Çoklu Arama Hk. Yardımm...

[0oMURATo0]

Arkadaşlar merhaba,

Mevcut datamızda birden fazla veriyi aynı anda bularak renklendirebilirmiyiz? Yardımcı olursanız çok memnun olurum...

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ile destekleyip açıklarmısınız.

 

[0oMURATo0]

Örneğin A sütünunun 1. satırında İstanbul 2. satırında Ankara 3. satırında İzmir verilerimiz olsun. Bunların içinden Ankara ve İstanbul'u tek seferde aratıp bularak aynı zamanda renkli hale getirmek istiyorum.. Bu şekilde yardımcı olabilirmisiniz?

 

[0oMURATo0]

Hiç bir çözümü yokmu acaba?

 

[asi_kral]

Hiç bir çözümü yokmu acaba?

Merhaba
Dosya ekleseydiniz şimdi çözüm vermiş olabilirdim. Ama dosya yok maalesef çözümde yok

 

[Ömer]

Örneğin A sütünunun 1. satırında İstanbul 2. satırında Ankara 3. satırında İzmir verilerimiz olsun. Bunların içinden Ankara ve İstanbul'u tek seferde aratıp bularak aynı zamanda renkli hale getirmek istiyorum.. Bu şekilde yardımcı olabilirmisiniz?

Bu şekilde deneyin.

Sub Renklendir()
 
    Dim deg(), c As Range, Adr As String, j As Byte
 
    deg = Array("ankara", "istanbul") [COLOR=darkolivegreen]'aranan değerler[/COLOR]
 
    Range("A:A").Interior.ColorIndex = 0
    For j = 0 To UBound(deg)
        With Range("A:A")
            Set c = .Find(deg(j), , xlValues, xlWhole)
            If Not c Is Nothing Then
                Adr = c.Address
                Do
                    c.Interior.ColorIndex = 6
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next j
 
End Sub

.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Farklı Bir Örnek

 

[0oMURATo0]

yardımlarınız için teşekkürler arkadaşlar.. rar dosyasını açamadım farklı bi formatta göndermenız mumkun mu?

 

[ZorBey_]

Merhaba
İyi Çalışmalar.

 

[0oMURATo0]

emeğinize sağlık.. iyi çalışmalar,