Tarafımdan düzenlenen bu kısımda değişken türü hatası yapmışım.
Dim sure1, sure2 As Integer kısmını Dim sure1, sure2 As Double olarak değiştirmemiz gerekti.Kolay Gelsin.
Dim sure1, sure2 As Integer kısmını Dim sure1, sure2 As Double olarak değiştirmemiz gerekti.