Divide a value 60 or 70 or 80 or 90 with divisor of 50 and 10 vba excel coding.

[techtall]

I start using recently excel VBA programming can you help me to solve my problem please?

i want to know how to divide with VBA coding
the value of 60 to one time 50 and one time 10,
or the value of 70 to one time 50 and two times 10,
or the value of 80 to one time of 50 and three times of 10,
or the value of 90 to one time of 50 and four times .

can you give an example please?

'lets say' IF Range("A1").Value = 60

' times of 50 result come to' Then 1 =Range("B1").value
' times of 10 result come to' Then 1 =Range("C1").value

lets say IF Range("A1").Value = 70

' times of 50 result come to' Then 1 =Range("B1").value
' times of 10 result come to'Then 2 =Range("C1").value

lets say IF Range("A1").Value = 80

' times of 50 result come to Then' 1 =Range("B1").value
' times of 10 result come to Then' 3 =Range("C1").value

lets say IF Range("A1").Value = 90

' times of 50 result come to Then' 1 =Range("B1").value
' times of 10 result come to Then' 4 =Range("C1").value

[karedog]

Maybe :

Sub Test()
  [B1] = [A1] \ 50
  [C1] = ([A1] - [B1] * 50) \ 10
End Sub

[techtall]

Thank you very much .
You really solve my question!!

[techtall]

And if i want it in fx formula? The same please

[karedog]

You are welcome.

Formula on B1:

=INT(A1/50)

Formula on C1:

=INT((A1-B1*50)/10)

[mikerickson]

If you want a formula solution, put =FLOOR(A1,50)/50 in B1 and =FLOOR(MOD(A1, 50), 10)/10 in C1