Value Odd in cell Vba Code....

[Hjemmet]

Hey i need some help with this code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    On Error Resume Next
    If Not Intersect(Target, Range("F10:R19")) Is Nothing Then
      Target.Value = Target.Value + 1
                  Target.Value = Target.Value / 2
      Cancel = True
    End If
End Sub

I need a Function in this code to see if Target Cell is "Odd" or "Even"
and if cell Is "0" If "0" then Not add 1 to that Cell.....

if "Odd" then add 1 to value and if "Even" then no value Add to cell

 

[Fluff]

How about

   If Target.Value Mod 2 = 1 Then Target.Value = Target.Value + 1

 

[Hjemmet]

Thanks That Works......

so far

 

[Fluff]

You're welcome & thanks for the feedback

 

[Hjemmet]

A little question more...

if i have a Empty cell ("F16") then Value from ("F15") is Divide with "2" and value after divide is Put into Cell("F16") is that Possibel
i have look and search around Google but didn Find any solution about it

the same function should work in Colomn "F" to "R" on Row "16" divide value From Row "15"

 

[Fluff]

As this is a completely different question, please start a new thread.

 

[Hjemmet]

I will do that Thanks for your help in #1