tam sayı olmayanları sil

[uslu45]

merhabalar,
tam sayı olmayan hücreleri silmek istiyorum. mümkün müdür

 

[hamitcan]

Aladin Akyurek'e ait formülü Vba içinde uyguladım.
http://www.mrexcel.com/archive/Formulas/23509.html

Sub Tamsayi()
For i = [a65536].End(3).Row To 1 Step -1
If Cells(i, 1) - Int(Cells(i, 1)) > 0 Then
MsgBox "Tamsayı Değil"
Cells(i, 1).Clear
Else
MsgBox "Tamsayı"
End If
Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak For-Each-Next döngüsü ile hücre içindeki virgül karakterini kontrol eden kod örneğini incelermisiniz.

Sayfada hücre seçip kodu çalıştırın.

Option Explicit
 
Sub ONDALIKLI_SAYILARI_SİL()
    Dim Hücre As Range, Say As Long
 
    For Each Hücre In Selection
        If InStr(Hücre.Text, ",") > 0 Then
            Hücre.ClearContents
            Say = Say + 1
        End If
    Next
 
    If Say > 0 Then
        MsgBox Say & " adet kayıt silinmiştir.", vbInformation
    Else
        MsgBox "Ondalıklı sayı bulunamadı !", vbExclamation
    End If
End Sub

 

[uslu45]

zahmetleriniz için her ikinize de teşekkürler.
ikisi de harika olmuş.