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?
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?
Kod:
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