Mükerrer Kayıtları Makro ile Kontrol

[yyhy]

Mükerrer Kayıtları Makro ile Kontrol edebilirmiyiz.

 

[kulomer46]

Aşağıdaki kod işini görür

Private Sub Worksheet_Change(ByVal Target As Range)
Dim son
son = Cells(65500, 3).End(xlUp).Row
Range("C2:C" & son).Font.Color = QBColor(0)
For i = 2 To son - 1
For j = i + 1 To son
If Cells(i, 2) = Cells(j, 2) And Cells(i, 3) = Cells(j, 3) Then
Cells(i, 3).Font.Color = QBColor(12)
Cells(j, 3).Font.Color = QBColor(12)
End If
Next
Next

End Sub

 

[yyhy]

teşekkürler koşullu biçimlendirme yapmıştım excel sayfasını baya bir ağırlaştırmıştı bu işimi görecek...