IsNumeric ile ilgili hata

[YASINT]

Selam arkadaşlar,

Sabahtan beri uğraşıyorum ama beceremedim. Aşağıya kodu yazdım istediğim cells(p,5) sütununu double yapıp virgülü nokta ile değiştirmek ancak diğer kolonlardaki verileri değiştirmeyecek bu işi beceremedim bir el atabilir misiniz? Tşk.

If IsNumeric(Sayfa1.Cells(p, 5)) Then
Bf = Replace(CDbl(Sayfa1.Cells(p, 5)), ",", ".")
End If

 

[Mustafa MUTLU]

Bf = Replace(Cells(p, 5), ",", ".")

Bu şekilde denermisiniz.
Sorun yaşarsa
Dim Bf, p
ve p ye değer vermiş olmanız gerekiyor..

 

[YASINT]

Değiştirmiyor virgülü nokta olarak...

 

[Mustafa MUTLU]

Şu şekilde denedim noktaya çeviriyor.

Sub degis()
Dim P, Bf
P = 2
Bf = Replace(Cells(P, 5).Text, ",", ".")
[a1] = Bf
End Sub
Bu Kodu bir modüle yapıştırın.
Yalnız A sütününü seçip Metin olarak işaretlemeniz gerekiyor.
E2 Hücresine 12,5 gibi rakam girin deneyin.

Sizde Bf hangi sütunu seçiyorsa o sütunu Metin olarak ayarlayınız..

 

[YASINT]

oldu çok teşekkür ederim ilgi ve alakanız için Allah Razı Olsun

 

[Mustafa MUTLU]

oldu çok teşekkür ederim ilgi ve alakanız için Allah Razı Olsun

Rica ederim..
Kolay gelsin..