HELP!!! IF THEN STATEMENT - VISUAL BASIC

[mags74]

Is it possible to do something within visual basic to say ==

if A1 = "Hello"
Then B2= "World"


but i want to be able to edit B2 = so if it says "World" - I can type in something after it or within B2 it can be edited.

I have tried doing Outstring but can not figure out how to do it at a range.

Please help...

Hope this makes sense.

 

[VoG]

Try

Sub test()
If Range("A1").Value = "Hello" Then Range("B2").Value = "World"
End Sub

 

[Andrew Poulsom]

Welcome to the Board.

Like this?

If Range("A2").Value = "Hello" Then
   Range("B2").Value = WorksheetFunction.Substitute(Range("B2").Value,"World","World Peace")
End If

 

[mags74]

Thank you.

I am not able to edit the "World" though. I would like to be able to edit it if needed within the cell.

 

[mags74]

thank you mr. poulsom

for some reason i am not able to get that to work. it does not fill in the cell with world or world peace.

and thank you for the welcome. this is pretty neat i must say.

 

[Andrew Poulsom]

You can't edit a cell while a VBA procedure is running. But you can use the InputBox function to prompt for a value and put it in a cell.

 

[mags74]

ok thank you.

 

[mags74]

ok thank you.

 

[Andrew Poulsom]

thank you mr. poulsom

for some reason i am not able to get that to work. it does not fill in the cell with world or world peace.

and thank you for the welcome. this is pretty neat i must say.

The code I posted replaces the word World with World Peace if B2 already contains it.

Maybe you want:

If Range("A2").Value = "Hello" Then 
   If Instr(1,Range("B2").Value,"World") > 0 Then
      Range("B2").Value = WorksheetFunction.Substitute(Range("B2").Value,"World","World Peace") 
   Else
      Range("B2").Value = Range("B2").Value & " World"
   End If
End If