bepalen Even of Oneven van een getal in een cel in mijn macro

[samui]

Ik dacht dat onderstaande voldoende was om erachter te komen of de waarde in cel x,2 even of oneven is en dan zodoende dit even getal in cel (2,52) = AZ2 te zetten of het oneven getal in cel 2,51 =AY2 te laten zetten.

ActiveSheet.Cells(x, 2).Select
If ActiveSheet.Cells(x, 2).Value = Even Then
ActiveSheet.Cells(2, 52).Value = ActiveSheet.Cells(x, 2).Value
ElseIf ActiveSheet.Cells(x, 2).Value = Odd Then
ActiveSheet.Cells(2, 51).Value = ActiveSheet.Cells(x, 2).Value
End if


Als ik cel x,2 het getal 3 geef, en ik vul in de macro ipv Even of Odd ook = 3 dan wordt inderdaad het getal 3 in cel AY2 geplaats. De macro werkt dus wel echter alleen de tekst EVEN en ODD werken niet zoals ik dacht.

Wie kan mij helpen wat ik moet gebruiken om de macro te laten controleren of de waarde in cel x,2 even of oneven is?

Alvast bedankt voor de moeite en jullie oplossing zie ik heel graag tegemoed

____________________________________________________________________________________________

Als cel x,2 = 3 wordt de macro wel goed ingevuld maar dat is logisch. De vraag moet zo zijn dat elk even of oneven getal gecontroleerd wordt en dan op de juiste cel wordt ingevuld

ActiveSheet.Cells(x, 2).Select
If ActiveSheet.Cells(x, 2).Value = 3 Then
ActiveSheet.Cells(2, 52).Value = ActiveSheet.Cells(x, 2).Value
ElseIf ActiveSheet.Cells(x, 2).Value = 3 Then
ActiveSheet.Cells(2, 51).Value = ActiveSheet.Cells(x, 2).Value
End if

 

[pasan]

If i Mod 2 = 0 Then
MsgBox("Even.")
Else
MsgBox("Odd.")
End If

kun je hier iets mee ??
typ anders het woord Mod in je vba editor klik met je muis op dat woord en druk op f1 voor uitleg in de helpfunctie

 

[samui]

Beste Pasan,

Bedankt voor je reactie, maar ik denk niet dat ik hier wat mee kan.
De macro moet niet stopen voor een messagebox keuze even of oneven.
De macro moet na vastgesteld te hebben of het hier een even of oneven getal betreft gelijk doorlopen en het getal in 1 van de cellen AY2 of AZ2 te zetten.
Hierna wordt er met dit getal nog wat gedaan maar dat is voor mijn vraag niet relevant om toe te voegen.
In iedergeval hartelijk dank voor je reactie

 

[pasan]

en deze?

If ActiveSheet.Cells(x, 2).Value Mod 2 = 0 Then
ActiveSheet.Cells(2, 52).Value = ActiveSheet.Cells(x, 2).Value
ElseIf ActiveSheet.Cells(x, 2).Value Mod 2 = 1 Then
ActiveSheet.Cells(2, 51).Value = ActiveSheet.Cells(x, 2).Value
End If

 

[snb]

sub M_snb()
  for each cl in columns(2).specialcells(2)
     cl.offset(,50 + cl.value mod 2=0)=cl.value
  next
End sub

 

[samui]

PASAN, met hoofdletters. Ik kan weer verder. SUPER bedankt, dit is hem.
:thumb: :thumb: diepe buiging en nogmaals bedankt. Ik sluit mijn vraag