Filtreleme

[asitetik]

Öncelikle konuyu yanlış yere açtıysam özür dilerim. İlk mesajım ilk sorum

Şöyle bir problemim var

A sütununda isimler var
B Sütunundada A sütünunda ki isimlerinde bulunduğu isimler var
C de mail adresleri
E de telefon numaraları

Ben A sütununda bulunan isimlerin mail adres ve telefon numaralarını bulmak istiyorum.

Aslında A ve B sütununda aynı olan metinleri renklendirsede olur. Gerisi renk filtresi falan halledilir.

Örnek dosya ekte mevcut. Yardımcı olabilirseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD_BİR()
aa = [a65536].End(3).Row
bb = [b65536].End(3).Row
Application.ScreenUpdating = False

For i = 2 To aa
For a = 2 To bb
If Cells(i, "a") = Cells(a, "b") Then
Cells(i, "a").Interior.ColorIndex = 6
Cells(a, "b").Interior.ColorIndex = 6
Else
End If
Next a
Next i

Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[baydeniro]

Teşekkürler Sayın Hüseyin Çoban.

 

[asitetik]

Çok teşekkür ederim hüseyin çoban. Çok işime yarayacak

Aslında bu tarz işlemlerin anlatıldığı bir bölüm varmı acaba forumda. Hani mantığı çözsek daha bi iyi olacak sanki