Code wont transfer decimals, only whole numbers

[wroze27]

Hey guys, below is some code I wrote for a friend and everything is working except for one minor flaw. The value from Sheet1.Range("B4") that gets added to where the Find function determines doesn't do decimals. The purpose of this macro is to make data entry easier for my coworker. Is there a formatting issue when pasting or when copying the data? I have formatted the cells themselves and they accept decimals from a manual input so the problem must lie somewhere in the coding.

Thanks a lot!

Sub Sort_Function()
Dim Page As String
Page = Sheet1.Range("A4").Value
Dim Dono As Integer
Dono = Sheet1.Range("B4")
Dim Sun As String
Sun = Sheet1.Range("B1")

Sheets(Page).Select
ActiveSheet.Range("A1:B5").Find(What:=Sun).Offset(0, 1).Select
i = ActiveCell.Value
ActiveCell.Value = i + Dono

Sheet1.Range("B4").EntireRow.Delete

End Sub

 

[Fluff]

Change Integer to Double

 

[wroze27]

Change Integer to Double

I just now figured that out thanks. But I have a follow up question. I changed it to string and it also worked. Whats the difference between the setting it to string or double?

 

[Fluff]

Whilst it works this time, you should keep numbers as numbers, otherwise you could get into problems.