VBA comparing Cells

[Faygin]

Need help with this.
Looked through some similar posts but couldnt figure out how to adapt them.

I got a value in cell B2 and a value in Cell B1 (a value between 0-10).

They are values that are not allowed to be the same.

If the value in B2 ends up to be the same as in cell B1 i need to call the sub (Sub CalculateFoe) that are randomizing a new number for B2.

Then test this again, if the randomized value in cell B2 are the same as in B1 then repeat, otherwise end sub.

I want to be able to write this in VBA.

 

[VBE313]

paste this code in your worksheet module like where the Red square is in the picture

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim randomNum As Long
    If Range("B1").Value = Range("B2").Value Then
        randomNum = Int(10 * Rnd) + 1
        Range("B2").Value = randomNum
    End If
End Sub

 

[Faygin]

Thank you so much!

I looked at your example to get a understanding.

And this litte beauty did the trick:
--
If Range("B2").Value = Range("B1").Value Then
Call CalculateFoe
End If
--

 

[VBE313]

you dont need to call your sub procedure if you are just changing the number to a random number. Thats what my code does. If you call another sub procedure it is slower than what I typed.

 

[Faygin]

I understand, thank you i will investigate it further.

My fear was that your code could generate a new randomized number that still makes cell B2 a equal value that is in B1.

So i wanted to create a loop where it generates a new number until they are separate values.

 

[Fluff]

My fear was that your code could generate a new randomized number that still makes cell B2 a equal value that is in B1.

Your fear is real, that's exactly what could happen.

 

[Faygin]

Your fear is real, that's exactly what could happen.

Thank you, now that i understand how to compare the two values and call the randomizer routine if they are equal, the problem is solved.
Thank you all for your valuable help!