Check the value decimal

hi all,
i am facing a problem here.
i hv a column "O" which its format cells is number with decimal places is 2

when i click a command button, i want to have another value in column "P"

Below is my coding:

Private Sub CommandButton1_Click()

For x = 7 To 16
If Cells(x, "O").Value < "1.00" Then
Cells(x, "P").Value = 0.5

ElseIf Cells(x, "O").Value >= "1.00" And Cells(x, "O").Value < "1.50" Then
Cells(x, "P").Value = 1

ElseIf Cells(x, "O").Value >= "1.50" And Cells(x, "O").Value < "2.00" Then
Cells(x, "P").Value = 1.5

ElseIf Cells(x, "O").Value >= "2.00" And Cells(x, "O").Value < "2.50" Then
Cells(x, "P").Value = 2

ElseIf Cells(x, "O").Value >= "2.50" And Cells(x, "O").Value < "3.00" Then
Cells(x, "P").Value = 2.5

ElseIf Cells(x, "O").Value >= "3.00" And Cells(x, "O").Value < "3.50" Then
Cells(x, "P").Value = 3

ElseIf Cells(x, "O").Value >= "3.50" And Cells(x, "O").Value < "4.00" Then
Cells(x, "P").Value = 3.5

ElseIf Cells(x, "O").Value >= "4.00" And Cells(x, "O").Value < "4.50" Then
Cells(x, "P").Value = 4

ElseIf Cells(x, "O").Value >= "4.50" And Cells(x, "O").Value < "5.00" Then
Cells(x, "P").Value = 4.5

ElseIf Cells(x, "O").Value >= "5.00" And Cells(x, "O").Value < "5.50" Then
Cells(x, "P").Value = 5

ElseIf Cells(x, "O").Value >= "5.50" And Cells(x, "O").Value < "6.00" Then
Cells(x, "P").Value = 5.5

ElseIf Cells(x, "O").Value >= "6.00" And Cells(x, "O").Value < "7.00" Then
Cells(x, "P").Value = 6

ElseIf Cells(x, "O").Value >= "7.00" And Cells(x, "O").Value < "8.00" Then
Cells(x, "P").Value = 7

ElseIf Cells(x, "O").Value >= "8.00" And Cells(x, "O").Value < "9.00" Then
Cells(x, "P").Value = 8

ElseIf Cells(x, "O").Value >= "9.00" And Cells(x, "O").Value < "10.00" Then
Cells(x, "P").Value = 9

ElseIf Cells(x, "O").Value >= "10.00" Then
Cells(x, "P").Value = 10

Else
Cells(x, "P").Value = ""

End If

Next
End Sub

but my problem is when my value in column "O" is "35" the the output come out in column "P" is 3.5, the answer should be 10,
it seems like cannot check the value which is more than 10 and ignore the decimal in column "O".

Can someone please help me. thanks.

Try removing the speech marks around the numbers.

 Dim x As Integer
    For x = 7 To 16
        If Cells(x, 15).Value < 1 Then
            Cells(x, 16).Value = 0.5

        ElseIf Cells(x, 15).Value >= 1 And Cells(x, 15).Value < 1.5 Then
            Cells(x, 16).Value = 1

        ElseIf Cells(x, 15).Value >= 1.5 And Cells(x, 15).Value < 2# Then
            Cells(x, 16).Value = 1.5

        ElseIf Cells(x, 15).Value >= 2# And Cells(x, 15).Value < 2.5 Then
            Cells(x, 16).Value = 2

        ElseIf Cells(x, 15).Value >= 2.5 And Cells(x, 15).Value < 3# Then
            Cells(x, 16).Value = 2.5

        ElseIf Cells(x, 15).Value >= 3# And Cells(x, 15).Value < 3.5 Then
            Cells(x, 16).Value = 3

        ElseIf Cells(x, 15).Value >= 3.5 And Cells(x, 15).Value < 4# Then
            Cells(x, 16).Value = 3.5

        ElseIf Cells(x, 15).Value >= 4# And Cells(x, 15).Value < 4.5 Then
            Cells(x, 16).Value = 4

        ElseIf Cells(x, 15).Value >= 4.5 And Cells(x, 15).Value < 5# Then
            Cells(x, 16).Value = 4.5

        ElseIf Cells(x, 15).Value >= 5# And Cells(x, 15).Value < 5.5 Then
            Cells(x, 16).Value = 5

        ElseIf Cells(x, 15).Value >= 5.5 And Cells(x, 15).Value < 6# Then
            Cells(x, 16).Value = 5.5

        ElseIf Cells(x, 15).Value >= 6# And Cells(x, 15).Value < 7# Then
            Cells(x, 16).Value = 6

        ElseIf Cells(x, 15).Value >= 7# And Cells(x, 15).Value < 8# Then
            Cells(x, 16).Value = 7

        ElseIf Cells(x, 15).Value >= 8# And Cells(x, 15).Value < 9# Then
            Cells(x, 16).Value = 8

        ElseIf Cells(x, 15).Value >= 9# And Cells(x, 15).Value < 10# Then
            Cells(x, 16).Value = 9

        ElseIf Cells(x, 15).Value >= 10# Then
            Cells(x, 16).Value = 10

        Else
            Cells(x, 16).Value = ""

        End If

    Next

It could be tightened up a little:

Sub x()
    Dim x       As Integer
    For x = 7 To 16
        With Cells(x, 16)
            Select Case Cells(x, 15).Value
                Case Is >= 10:  .Value = 10
                Case Is >= 9:   .Value = 9
                Case Is >= 8:   .Value = 8
                Case Is >= 7:   .Value = 7
                Case Is >= 6:   .Value = 6
                Case Is >= 5.5: .Value = 5.5
                Case Is >= 5:   .Value = 5
                Case Is >= 4.5: .Value = 4.5
                Case Is >= 4:   .Value = 4
                Case Is >= 3.5: .Value = 3.5
                Case Is >= 3:   .Value = 3
                Case Is >= 2.5: .Value = 2.5
                Case Is >= 2:   .Value = 2
                Case Is >= 1.5: .Value = 1.5
                Case Is >= 1:   .Value = 1
                Case Else:      .Value = 0.5
            End Select
        End With
    Next x
End Sub

... or

    For x = 7 To 16
        Cells(x, 16).Value = WorksheetFunction.Lookup(Cells(x, 15), _
            Array(-1E+307, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5, 5.5, 6, 7, 8, 9, 10), _
            Array(0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5, 5.5, 6, 7, 8, 9, 10))
    Next x