Live and automatic cell insertion based on another cell?

Not sure if this is possible, especially from a "live" perspective but,

Example;

I have Column A and Column B

I manually enter a text string into Column A and Column B automatically enters a text string into the equivalent row's cell based on Column A's entry.

e.g.

In Column B cell

=IF(A1="example","Yes","")

This works fine but still requires the formula is copied to each row, I'm wondering if there's a way to do this "live" so that as soon as I enter "example" into column A row 1, column B row 1 would auto enter "Yes"

Thank you, worked perfectly. I've never worked with VB in excel before but based on your answer, researched and voila. If I wanted to extend the change to multiple cells with the same outcome how would I extend the formula, I assume it would be better doing it that way versus writing a separate VB code for another cell.

e.g.

Exactly as above but the outcome changes both column B and C to "Yes"

Many thanks, worked perfectly. To slightly further this, again by keeping it within the same formula, is it possible to added an additional output?

So, taking the last example

If Column A = "example" then column B,C = "yes"

AND

column D = "No"

I'm attempting it now but any help appreciated.

Just to answer my own question, was simple in the end. Just add another line

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect (Target, Range("A:A")) Is Nothing Then
If LCase(Target) = "example" Then Range(Target.Cells(1,2),Target.Cells(1,3) = "Yes"
Target.Cells(1, 43) = "Online"

End If


End Sub

Column 3 changes to "Yes" and column 43 changes to "Online if the conditions are met.

Trying to understand how the case works, with LCase and UCase, I added another formula, but it won't change and I believe it's because the conditional word has an upper case SECOND letter, e.g. hEllo. Rather than change, the casing (which isn't appropriate) I'm trying to establish how it to check without case sensitivity

Answer my own question, priot to the sub routine for the above, in the (General) (Declarations)

Add

Option Compare Text

this will make it insensitive to capitalization, bare in mind it will apply to any subs in the code.

My next query, if anyone can help, as I try to figure it myself.

Based on the above but this time I'm entering a number string that is formatted as text, and based on that i want to enter a text string in another column. My issue is, it won't recognise a number value (even if it's formatted as text) as a text string.

E.g,

If Not Intersect(Target, Range("AI:AI")) Is Nothing Then
If LCase(Target) = "533" Then Target.Cells(1, 34) = "Credit Card"

End If

I can't reformat the column because it contains both text and numbers, so all the number entries are formatted as text. A further issue maybe that some of the numbers start with "0" which, when formatted as text removes the "0" so "0533" becomes "533", i'm not sure if the issue which the proposed code lies within that or it's just naother thing to counter

I'm wondering if I could use Select Case to change the entry? I've been using this to color code cells and rows depending on a columns entry with great success, just unsure on whether it can be used for text entries.

sorry
this command is not working when adding further rows like
If LCase(Target) = "example" Then Target.Cells(1,2) = "Yes"
If LCase(Target) = "example2" Then Target.Cells(1,2) = "No"
.....
....
....
....
etc