bir veri başka sayfada varsa otomatik olarak bulunduğu satırı silme hk. yardım

[esozbir]

Merhaba üstadlar,
Arama yaptım ama doğru kelimelerle aramadığım için doğru konuyu bulamadıysam özür dilerim.

Sorum şu

Elimde buyuk listeler var (kpss puanları ve atamalarla ilgili). Çalışma kitabının 2. sayfasındaki örneğin c sütununda olan değerler 1. sayfada hangi satırlarda varsa o satırları otoatik olarak silmek ve ya en azından o satırları göze çarmpası için biçimsel olarak değiştirmek istiyorum. Bununla ilgili yardımcı olursanız sevinirm.

 

[Evolver]

aşagıdaki kodları ikinci sayfanın kod bölümüne yazıp calıştırın.

Sub aynisinibul()
Dim i As Integer
Dim bul As Range
For i = 2 To WorksheetFunction.CountA(Range("C:C"))
Set bul = Sheets(1).Cells.Find(Range("C" & i), , xlValues, xlWhole)
If Not bul Is Nothing Then
adr = bul.Address
Do
Sheets(1).Range(bul.Row & ":" & bul.Row).Interior.ColorIndex = 8
Set bul = Sheets(1).Cells.FindNext(bul)
Loop Until adr = bul.Address
End If
Next i
End Sub