Belirtilen hücredeki metin belirlenen aralıktaki veriyi içeriyorsa

[Kavinsky]

Merhaba üstatlar çalışma sayfamda alt alta yazılan verilerin bulunduğu B45000:B55000 aralığı var. Benim istediğim ise şu K1:K300 aralığındaki verileri B aralığındaki verilerle kıyaslayıp eğer B aralığı içeriyorsa K aralığında olan veriyi sarıya ya da herhangi bir renge boyasın. Koşullu biçimlendirmeden yaptım ama şöyle bir sıkıntı ortaya çıktı B aralığında kendini tekrar eden veriler olduğu için hepsini boyuyor. Hatta ve hatta bulduğunu satır olarak silme gibi bir fonksiyon olsa benim için mükemmel olur. Umarım istediğimi anlatabilmişimdir. Şimdiden teşekkür ederim.

 

[muygun]

Merhaba;
K1 : K300 aralığında koşullu biçimlendirmeye;
=EĞER(EĞERSAY(B45000:B55000;$K1)>=1;1;0)
Formülünü uygulayarak istediğiniz renk opsiyonunu belirleyin.

Silme işlemi için;
Sayfanın kod bölümüne;

Sub satır_sil()
Application.ScreenUpdating = False
On Error Resume Next
sonn = Range("b55000").End(xlUp).Row
For i = sonn To 45000 Step -1
If WorksheetFunction.CountIf(Range("k1:k300"), Cells(i, "b")) >= 1 Then
Rows(i).Delete
sat = sat + 1
End If
Next i
Application.ScreenUpdating = True
If sat >= 1 Then MsgBox (sat & " Adet veri silindi."), vbInformation
End Sub

kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[Kavinsky]

Üstat ellerine sağlık tam istediğim gibi olmuş. Teşekkür ederim.