karşılaştırma

[silver_storm]

İyi günler Arkadaşlar ;

Ben şunu yapmak istiyorum ekte verdiğim dosya da b2 : b 184 hücreleri arasında isimler var.C2:C64 hücreleri arasında bulunan isimlerden herhangi birisi varsa yeşile boyansın eğer isim yoksa olmayanlar sayfasına yazsın.

Örneğin Katılanlar kısmında Eyüp Tunç Varsa b182 yi yeşile boyasın.yoksa olmayanlar sayfasına yazsın.

Aramayı C sütununu baz alarak yapmak istiyorum..

 

[İhsan Tank]

İyi günler Arkadaşlar ;

Ben şunu yapmak istiyorum ekte verdiğim dosya da b2 : b 184 hücreleri arasında isimler var.C2:C64 hücreleri arasında bulunan isimlerden herhangi birisi varsa yeşile boyansın eğer isim yoksa olmayanlar sayfasına yazsın.

Örneğin Katılanlar kısmında Eyüp Tunç Varsa b182 yi yeşile boyasın.yoksa olmayanlar sayfasına yazsın.

Aramayı C sütununu baz alarak yapmak istiyorum..

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub olup_olmayan_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
Set bordo = Sheets("LİSTE")
Set mavi = Sheets("Olmayanlar")
trabzonspor = MsgBox("Katılıp Katılmayanları Ayırıyorum ve Boyuyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
mavi.Range("A2:A" & Rows.Count).ClearContents
kaplan = 2
For ts = 3 To bordo.Cells(Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.CountIf(bordo.Range("C3:C" & Rows.Count), _
bordo.Cells(ts, "B")) > 0 Then
bordo.Cells(ts, "B").Interior.Color = vbGreen
Else
mavi.Cells(kaplan, "A") = Cells(ts, "B")
kaplan = kaplan + 1
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Ayrım Tamamlandı ve Boyama Yapıldı", , "Bitiş"
End Sub