Event to enter a formula in B1 once a Value is entered in A1

[Cosmos75]

Is there a way to use Events to enter a formula in Columm B when the use enters a value in Column A. How about deleting the formula if a value is deleted?

[Al Chara]

Try the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B" And Target.Value <> "" Then
Range("A1").Formula = "=B1"
ElseIf Target.Address = "$B" And Target.Value = "" Then
Range("A1").Formula = ""
End If
End Sub

[Cosmos75]

Al Chara,

Nothing happened?

Remember, I need a formula inserted in Column B if a value is inputed in Column A. Also need to formula deleted if the value is deleted.

Thanks!

[Al Chara]

I reversed it. Same code just replace all A's with B's and vice-versa

[Cosmos75]

I did that, but nothing happened?

My sheet is protected though (Everthing except Column A), does that make a difference?

[Al Chara]

That would definitely make a difference. You cannot insert a formula into a locked cell on a protected sheet. Unlock cell B1 and it should work.

[Cosmos75]

Al Chara,

Unprotected it and it still doesn't work.

[Al Chara]

That is so odd, it seems that if I post the code in the BBcode option then it cuts off some text. I reversed it and didn't use BBcode. Man, that is weird. Should work now.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" Then
Range("B1").Formula = "=A1"
ElseIf Target.Address = "$A$1" And Target.Value = "" Then
Range("B1").Formula = ""
End If
End Sub