replace cell contents with a word VBA

[tintin1012000]

OK a bit of a strange request

I need to replace the contents in a cell

example
type in ''123'' into cell A1. and replace this with the word ''passed'' when another cell is selected.

''123'' kinda acts as a password
in practice i will use more complex passwords and have a list of passwords that have different words associated
eg
123 = Passed
321 = Failed
456 = Redo Test

 

[steve the fish]

You can only do that with coding. Which cell/ range of cells are the ones you want to change?

 

[tintin1012000]

You can only do that with coding. Which cell/ range of cells are the ones you want to change?

Hi Steve, hope your well

Im okay to use Coding to do it
range will be F1 to F99

 

[steve the fish]

Hi. Try this in the sheet module:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng as Range, c as Range

Set Rng = Intersect(Target, Range("F1:F99"))

If Not Rng Is Nothing Then
    For Each c In Rng
        Select Case c.Value
            Case 123
                c.Value = "Passed"
            Case 321
                c.Value = "Failed"
            Case 456
                c.Value = "Redo Test"
        End Select
    Next
End If
    
End Sub

 

[tintin1012000]

steve

thanks a million, that works perfect.

Hi. Try this in the sheet module:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng as Range, c as Range

Set Rng = Intersect(Target, Range("F1:F99"))

If Not Rng Is Nothing Then
    For Each c In Rng
        Select Case c.Value
            Case 123
                c.Value = "Passed"
            Case 321
                c.Value = "Failed"
            Case 456
                c.Value = "Redo Test"
        End Select
    Next
End If
    
End Sub