koşula bağlı hücre silme

[umitumit]

Merhabalar,

Makro ile seçtirdiğim B3:F7 aralığında bulunan değerlerin bazılarını koşula bağlı sildirmek istiyorum. Koşulu makro içine yazabiliriz.

"3 ve üzeri olanları sil" makrosu.

Çok kolay olduğuna eminim ancak forumda bulamadım.

Teşekkürler

Sub Düğme1_Tıklat()
Range("B3:F7").Select
If Selection.Value > 3 Then clear.contents
End If
End Sub

(Tabiki çalışmıyor)

 

[Orion1]

Buyurun.

Sub sil59()
Dim hcr As Range
For Each hcr In Range("B3:F7")
    If IsNumeric(hcr.Value) And hcr.Value >= 3 Then hcr.ClearContents
Next
End Sub

 

[umitumit]

dim hcr as range

ile iş bitmiş.
çok uzak düşünmemiş olmama sevindim.
kendimde şöyle uzun bir yol buldum;

Sub Düğme1_Tıklat()
Dim a As Byte, b As Byte
For a = 3 To 7
If Cells(a + 1, 2).Value > 2 Then Cells(a + 1, 2) = ""
For b = 2 To 6
If Cells(3, b + 1).Value > 2 Then Cells(3, b + 1) = ""
If Cells(a + 1, b + 1).Value > 2 Then Cells(a + 1, b + 1) = ""
Next b
Next a
End Sub

elinize sağlık