süreye göre mükerrer bulma

[opossum]

merhabalar
çalışma kitabımda veriler var istediğim 30 gün içinde aynı adresten gelen veri varsa dolgu rengi değişsin.

teşekkürler

 

[Murat OSMA]

Şu kodları sayfanın kod kısmına yazıp deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    If Target.Column <> 3 Then Exit Sub
    For i = 2 To Range("A65536").End(3).Row
        If WorksheetFunction.CountIf(Range("C2:C100"), Cells(i, 3)) = 2 Then
            Cells(i, 1).Resize(, 5).Interior.ColorIndex = 6
                ElseIf WorksheetFunction.CountIf(Range("C2:C100"), Cells(i, 3)) = 3 Then
            Cells(i, 1).Resize(, 5).Interior.ColorIndex = 3
                Else
            Cells(i, 1).Resize(, 5).Interior.ColorIndex = 0
        End If
    Next i
    i = Empty
End Sub

 

[opossum]

teşekkür ederim murat hocam ama fonksiyon yardımı ile çözebilirmiyiz

 

[opossum]

çalışma sayfamda belli bir yere kadar geldim aşağıdaki çoğaltmayı nasıl yapabilirim.

koşullu biçimlendirmede şu formülleri yazıyorum

1. satır =MUTLAK(I6-I5)<30

2.satır =MUTLAK(I7-I5)<30
=MUTLAK(I7-I6)<30

3.satır =MUTLAK(I8-I5)<30
=MUTLAK(I8-I6)<30
=MUTLAK(I8-I7)<30

4.satır ...........

 

[Murat OSMA]

Formüllerden pek anlamam...