Şarta uyan hücreleri belirtme

[imyourfate]

Arkadaşlar Hayırlı günler,

Aşağıda vermiş olduğum makroda AH sütununda bulunan sayıların bazılarının yanlarında '' D'' harfi var sadece bu hücreleri belirtmek için ne gibi bir değişiklik yapmalıyım tüm hücreler değilde sadece yanında '' D'' bulunanlar örnek dosyada mevcuttur

Sub dirty()
Dim sat As Long, i As Long, sat2 As Long, k As Long
sat2 = Cells(Rows.Count, "ah").End(xlUp).Row
Application.ScreenUpdating = False
For k = 1 To 18 Step 17
sat = Cells(Rows.Count, k).End(xlUp).Row
For i = 3 To sat
If WorksheetFunction.CountIf(Range("ah5:ah" & sat2), Cells(i, k)) > 0 Then
Cells(i, k).Value = Cells(i, k).Value & " D"
End If
Next i
Next k
Application.ScreenUpdating = True
End Sub

 

[hamitcan]

Sub NN()
    Columns("ah").Interior.Color = xlNone
    For i = 1 To [ah65536].End(3).Row
        If InStr(Cells(i, "ah"), "D") > 0 Then Cells(i, "ah").Interior.Color = vbRed
    Next
End Sub