açılır penceredeki bir değer ile çarpma

[nomercy99]

Merhabalar hocalarım,

Belki çok kolay bir soru ama uzun süredir uğraşıyorum ama bir türlü yapamadım.Alttaki formülde çarpım değerlerini tam sayı olarak alıyor.Ben ise virgüllü bir sayıyı da alsın istiyorum.Örneğim 1,05 gibi.Nasıl düzeltebiliriz?

Sub carpan()


Dim c As Integer

c = InputBox("Enter number to multiple-Lütfen çarpan girin", "Input required-Giriş gerekiyor")

sonc = Cells(Rows.Count, 3).End(3).Row
For i = 5 To sonc
Range("d" & i) = Range("d" & i) * c
Range("e" & i) = Range("e" & i) * c

Next


End Sub

 

[AdemCan]

Merhaba,
Integer tam sayılar için kullanılır. Ondalıklı sayılar için Double olarak kullanmalısınız.

Dim c As Double

 

[nomercy99]

Merhaba,
Integer tam sayılar için kullanılır. Ondalıklı sayılar için Double olarak kullanmalısınız.

Dim c As Double

Teşekkrü ederim,halısınız,kafa doluluğundan gözden kaçırmışım,

 

[AdemCan]

Rica ederim.