Yardım 30,00 ve üzerini silme hakkında

merhaba herkese

d sütununda d2 den d10000 hücreleri dahil karışık değerde rakamlarım var. ben bu rakamlardan 30 ve üzeri olan değerlerin silinmesini istiyorum.

ortalama almak için bu bana gerekli. fakat bu değerlerde 29.99 gibi küsüratlı degerlerde var. küsüratlı değerlerde şöyle bir sorun oldu. 29.93 diye değerim var aşağıdaki kodlarda bunu 29.5 ve üzeri olduğu için 30 olarak yuvarlıyor ve siliyor. bana sadece 30.00 ve üzerini silecek kod lazım. çok denedim yapamadım


yardım için herkese şimdiden teşekkur ederim


Dim sayi As Long For i = 2 To 10000 If IsNumeric(Cells(i, "D").Value) = True Then sayi = Cells(i, "D") If sayi > 29 Then Cells(i, "D").ClearContents End If End If Next i

Merhaba
Aşağıdaki gibi deneyebilirsiniz.

Dim sayi As Double
For i = 2 To 10000
If IsNumeric(Cells(i, "A").Value) = True Then
sayi = Cells(i, "A")
If sayi > 29.99 Then
Cells(i, "A").ClearContents
End If
End If
Next i