None Specific Code of VBA for my label to light up as long as the word is found

[Akw47]

Hello I current have a userform with these code

Private Sub UserForm_Initialize()
Me.TextBox2.Text = CStr(ThisWorkbook.Sheets("Sheet1").Range("F15").Value)
End Sub

-> this help to make my textbox show the value of the cell F15, whenever initialized.

Next,

Private Sub TextBox2_Change()
If TextBox2.Text = "Hello" Then
Label1.BackColor = RGB(255, 128, 128)
Else
Label1.BackColor = RGB(255, 255, 255)
End If
End Sub

-> this code will help to make my LABEL turn colour when there is a 'Hello' in the cell, could you assist me on what changes to make if i want it to turn colour if there is "Hello boy" in the cell as well. means not 'Hello' specific. Thanks

 

[dmt32]

-> this code will help to make my LABEL turn colour when there is a 'Hello' in the cell, could you assist me on what changes to make if i want it to turn colour if there is "Hello boy" in the cell as well. means not 'Hello' specific. Thanks

Hi,
Try this update to your code & see if does what you want

Private Sub TextBox2_Change()
    Dim m As Variant
    m = Application.Match(TextBox2.Text, Array("Hello", "Hello Boy"), 0)
    
    Label1.BackColor = IIf(IsError(m), RGB(255, 255, 255), RGB(255, 128, 128))

End Sub

Dave

 

[Akw47]

Hi,
Try this update to your code & see if does what you want

Private Sub TextBox2_Change()
    Dim m As Variant
    m = Application.Match(TextBox2.Text, Array("Hello", "Hello Boy"), 0)
   
    Label1.BackColor = IIf(IsError(m), RGB(255, 255, 255), RGB(255, 128, 128))

End Sub

Dave

Hi dave, thanks for your help. But this code only register for 'hello' and 'hello boy'. but what if i have a sentence hello, my name is jeff. I want it to light up, as long as there is a 'hello' inside.

 

[dmt32]

Hi dave, thanks for your help. But this code only register for 'hello' and 'hello boy'. but what if i have a sentence hello, my name is jeff. I want it to light up, as long as there is a 'hello' inside.

Based on your published code, solution does what I thought you were asking

You can try this update & see if helps

Private Sub TextBox2_Change()
  
    Label1.BackColor = IIf(InStr(Me.TextBox2.Text, "Hello") > 0, RGB(255, 128, 128), RGB(255, 255, 255))

End Sub

Dave

 

[Akw47]

Based on your published code, solution does what I thought you were asking

You can try this update & see if helps

Private Sub TextBox2_Change()
 
    Label1.BackColor = IIf(InStr(Me.TextBox2.Text, "Hello") > 0, RGB(255, 128, 128), RGB(255, 255, 255))

End Sub

Dave

this work well, thanks so much dmt32.

 

[Akw47]

dave just to check, but if its HELLO it doesn't work. can it be not case sensitive?

this work well, thanks so much dmt32.

 

[dmt32]

dave just to check, but if its HELLO it doesn't work. can it be not case sensitive?

try

Private Sub TextBox2_Change()
   
    Label1.BackColor = IIf(InStr(UCase(Me.TextBox2.Text), "HELLO") > 0, RGB(255, 128, 128), RGB(255, 255, 255))

End Sub

Dave

 

[Akw47]

try

Private Sub TextBox2_Change()
  
    Label1.BackColor = IIf(InStr(UCase(Me.TextBox2.Text), "HELLO") > 0, RGB(255, 128, 128), RGB(255, 255, 255))

End Sub

Dave

u a legend dave appreciate u 100%

 

[dmt32]

welcome - glad resolved

Dave