Adding 20 to existing value

[Lukums]

Hey guys.

Tricky one.

I have Lengths in Column A1 to A50 these lengths always vary.

I want to add 20 to whatever length is within this column.

However, I can't use any formula fields in this column as this is fed directly to our machines.

Can I somehow (magically) look at this field and add 20 via VBA? IF so, can anyone point me in that direction?

Cheers!

Luke

 

[MARK858]

Using Fluff's method from earlier today...

Sub Add20()
    With Range("A1:A50")
        .Value = Evaluate(Replace("if(@<>"""",20+@,"""")", "@", .Address))
    End With
End Sub

or

Sub add20again()
    Application.ScreenUpdating = False
    Range("K1").Value = "20"
    Range("K1").Copy
    Range("A1:A50").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
    With Application
        .CutCopyMode = False
        Range("K1").ClearContents
        .ScreenUpdating = True
    End With
End Sub

 

[Lukums]

Using Fluff's method from earlier today...

Sub Add20()
    With Range("A1:A50")
        .Value = Evaluate(Replace("if(@<>"""",20+@,"""")", "@", .Address))
    End With
End Sub

or

Sub add20again()
    Application.ScreenUpdating = False
    Range("K1").Value = "20"
    Range("K1").Copy
    Range("A1:A50").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
    With Application
        .CutCopyMode = False
        Range("K1").ClearContents
        .ScreenUpdating = True
    End With
End Sub

You beauty - big fat kisses. Thank you!

 

[Lukums]

All good doesn't happen in those cells (BEAUTIFUL) TY

 

[Rick Rothstein]

Using Fluff's method from earlier today...

Sub Add20()
    With Range("A1:A50")
        .Value = Evaluate(Replace("if(@<>"""",20+@,"""")", "@", .Address))
    End With
End Sub

I would probably change Fluff's code to this so that any non-numeric cell would remain unchanged (instead of becoming an error)...

[table="width: 500"]
[tr]
	[td]Sub Add20()
    With Range("A1:A9")
        .Value = Evaluate(Replace("IFERROR(IF(@="""","""",@+20),@)", "@", .Address))
    End With
End Sub[/td]
[/tr]
[/table]