I need help with this part Cells(y + Z).Value, can anyone tell me what I did wrong...

[MartinLe50]

I am 2 weeks in learning VBA and need some help how to structure this code...


Sub Return_only_decimal_part_of_a_number()
'declare a variable


Dim x As Double
Dim i As Double
Dim j As Double
Dim y As Range
Dim ws As Worksheet
Set ws = Worksheets("Dashboard T.1-T.3")

For i = 3 To 49
For j = 3 To 67 Step 2
y = Cells(i, j).Value


'return only the decimal part of a number that is captured in a specific cell
ws.Range("x") = ws.Range("y") - Fix(ws.Range("y"))
g = ws.Range("x")
Z = 0.5
If g < 0.5 Then
Cells(y + Z).Value
Else: Cell.Values = WorksheetFunction.RoundDown(y, 2)
End If
Next j
Next i

End Sub

 

[RoryA]

You're missing a row number for the Range("x") and Range("Y") parts.

I'm not clear what you think Cells(X + Y) means? Cells needs a row and column number as separate arguments, as in your earlier code.

 

[MartinLe50]

Should they be i and j since I am using a Nested For Loop...?

 

[RoryA]

It would probably help if you explain what you are trying to do, rather than posting code that doesn't make any sense.

 

[MartinLe50]

I want to make a change to the price displayed in the grey columns before we multiply it by 2. If the price is < 17.50 such as 17.34 or 17.49 I want it to be flat 17.00. But, if the price is 17.50 or above I watch the price to be fixed 17.50. The same goes for every number not just "seventeen" of course.