Belirli hücre değerlerini diğer sayfada bulmak

[machool]

Arkadaşlar kolay gelsin.Öncelikle amaçlanan şeyi açıklayayım.Amaç SMS almak istemeyen müşterilerin numaralarını rehberden temizlemek.Bunun için örnek bir dosya hazırladım.Yapılmak istenen SİL adlı sayfanın B sütunundaki numaraların REHBER isimli sayfanın C sütununda bulunarak renklendirilmesi veya o satırın tamamen silinmesi. Örneğin 5373961704 numarası için REHBER sekmesinin C 22 hücresinin sarıya boyanması veya 22 nolu satırın tamamen silinmesi. Burada dikkat çeken şeyler

1-Sil sayfasındaki numaralar 5XX XXX XX XX şeklindeyken rehber sayfasındaki numaralar +90 5XX XXX XX XX şeklinde olması.

2- Telefon numaralarının metinsel olması.

Umarım açıklayabilmişimdir. Yardımlarınız için şimdiden teşekkürler....

 

[Korhan Ayhan]

Deneyiniz.

Sub BUL_RENKLENDİR()
    Dim S1 As Worksheet, S2 As Worksheet, BUL As Range, X As Long
    
    Set S1 = Sheets("rehber")
    Set S2 = Sheets("sil")
    
    For X = 2 To S2.Cells(S2.Rows.Count, 2).End(3).Row
        Set BUL = S1.Range("C:C").Find(S2.Cells(X, 2), , , xlPart)
        If Not BUL Is Nothing Then
            BUL.Interior.ColorIndex = 6
        End If
    Next
    
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
        
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[machool]

Çok teşekkür ettim.Gayet güzel çalışıyor...Ellerinize sağlık....