Soru Değeri Tespit Edip Sildirme

[incsoft]

Sorum ektedir arkadaşlar..

 

[YUSUF44]

Aşağıdaki makro istediğinizi yapıyor ancak örnek dosyanızda D5, D6, D7 hücreleri 3 hücre arka arkaya olduğundan sonuç hatalı olabilir:

Sub temizle()
sonB = Cells(Rows.Count, "B").End(3).Row
sonC = Cells(Rows.Count, "C").End(3).Row
sonD = Cells(Rows.Count, "D").End(3).Row
son = WorksheetFunction.Max(sonB, sonC, sonD)
Range("B4:D" & son).SpecialCells(xlCellTypeConstants, 23).Select
For Each hucre In Selection
    If hucre.Offset(1, 0) <> "" Then
        If hucre > hucre.Offset(1, 0) Then
            hucre.ClearContents
        ElseIf hucre < hucre.Offset(1, 0) Then
            hucre.Offset(1, 0).ClearContents
        End If
    End If
Next
End Sub