What is the Simplest way to get range address of Text value in TextBox ?

[NimishK]

Hello

What is the Simplest way to get Range Address of Particular Value in a Textbox
For Eg I Type Student in Textbox of userform and MSGbox to display Range Address ie C3:E9

Student	John	95​
Student	Jimmy	91​
Student	Jack	85​
Student	Nelson	76​
Student	Woods	65​
Student	Michael	66​
Student	Karen	74​

What is the Simplest way to get range address of Text value in Userform textbox in a MsgBox ?​

sorry typo error in the Thread Topic

NimishK

 

[DanteAmor]

Try this:

Private Sub CommandButton1_Click()
  Dim f As Range
  Set f = Range("C:C").Find(TextBox1.Value, , xlValues, xlWhole, , xlNext, False)
  If Not f Is Nothing Then MsgBox f.Resize(WorksheetFunction.CountIf(Range("C:C"), TextBox1.Value), 3).Address(0, 0)
End Sub

 

[NimishK]

Try this

Private Sub CommandButton1_Click()
  Dim f As Range
  Set f = Range("C:C").Find(TextBox1.Value, , xlValues, xlWhole, , xlNext, False)
  If Not f Is Nothing Then MsgBox f.Resize(WorksheetFunction.CountIf(Range("C:C"), TextBox1.Value), 3).Address(0, 0)
End Sub

Just Perfect
Thanks a Tone DanteAmor ?

NimishK

 

[DanteAmor]

Im glad to help you, thanks for the feedback