İsimmi Sayımı Makrosu

[KaraKartall99]

Selamlar, basit bir makroda neyi yanlış yaptığımı anlayamadım,

C sütununun içeriğinin isimmi yoksa sayı mı olduğunu D sütununa atması için aşağıdaki kodları yazdım, D stünuna sadece isim yazıyor. Yanlışım nerede acaba?


Sub isim_sayı()
For i = 1 To 15
isim = Sayfa1.Cells(i, 3)

a = Text

If a = Text Then
Sayfa1.Cells(i, 4) = "isim"
Else
a = figure
Sayfa1.Cells(i, 4) = "sayı"

End If
Next i
End Sub

 

[muygun]

Merhaba;

Sub isim_sayı()
For i = 1 To 15
aranan = Sayfa1.Cells(i, 3)
If CBool(IsNumeric(aranan) And Not IsEmpty(aranan)) Then Sayfa1.Cells(i, 4) = "sayı"
If CBool(Not IsNumeric(aranan)) Then Sayfa1.Cells(i, 4) = "metin"
If aranan = "" Then Sayfa1.Cells(i, 4) = "boş"
Next i
End Sub

Şeklinde deneyin.
İyi çalışmalar.