odd and even cells Solved/Closed

Question

Hello, 
I am trying to link cell C1 to cell F6. But if cell C1 is an even number I need it to add 1 to that number ( cell C1) and put it into F6. If it (cell C1) is and odd number cell F6 should equal cell C1. Any help would be appreciated . Thank you.

YasserKhalil · Answer

Try this in sheet module
Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Address = "$C$1" Then        Application.EnableEvents = False            If Target.Value = "" Then Range("F6").ClearContents: GoTo Skipper                If IsNumeric(Target) And Target.Value <> "" Then                If Target Mod 2 = 0 Then                    Range("F6").Value = Target.Value + 1                Else                    Range("F6").Value = Target.Value                End If            End IfSkipper:        Application.EnableEvents = True    End IfEnd Sub

whatsit · Answer

Thank you for your quick response. However when I try to run the macro a message comes up "can't execute code in break mode". Any ideas? Thanks again.

whatsit · Answer

thank you. You have been very helpful.

Odd and even cells

3 responses

Similar discussions

Subscribe To Our Newsletter!