Logische test voor even of oneven waarde

[Takelwagen]

ik heb een rij met tekens deze begint met 11003 en dan 11004 etc.
Nu moeten de getallen alleen oneven worden dus 11004 moet 11005 worden en 11005 dan dus 11007 etc.

Dit moet toch simpel te doen zijn met for each?! De getallen komen wel meer dan één keer voor maar staan wel op chronologische volgorde.

Lukt me alleen weer eens niet...

 

[Wigi]

Sub onevenmaken()

Dim r As Range

For Each r In Selection
    If r.Value Mod 2 = 0 Then
        r.Value = r.Value + 1
    End If
Next

End Sub

Wigi

 

[Takelwagen]

bedankt WIGI!!!!

Bedankt,

Ik heb het script ingevoegd, nu is er nog een probleem. Ik voeg wel even een bestand bij. Ik denk dat dat wat makkelijker is

 

[Wigi]

Wat moet er juist in die cellen komen? Kan je dat in de file zelf eens zetten, dat is het gemakkelijkste.

 

[Takelwagen]

in de bijlage

In de gele rij van het csv werkblad staan de waarde die links in de ind rij moet komen.

Hoop dat het één en ander nu wat duidelijker is.

 

[Wigi]

Dit werkt voor het laatste bestandje:

Sub onevenmaken()

Dim r As Range
Application.ScreenUpdating = False

For Each r In Range("A2:A1500")
    If r.Value > 0 Then
        r.Offset(, 1).Value = 1001 + 2 * r.Value
    End If
Next
Application.ScreenUpdating = True

End Sub

Wigi