Setting a text box value in a filter

[perbags]

Can anyone help me with this please.

I am setting up a filter and what I need is the value from a text box that is entered to be searched in column C, This is the code I come up with so far but I cant get it to work..

Thanks for your help.

Perbags

Private Sub CommandButton1_Click()


 Dim Site As String
    
    TextBox1.Text = Site
    
  Sheets("Sitedata").Select
   Range("A2").Select
   Range("2:2000").AutoFilter 3, "<>(Site)"
      

End Sub

[Richard Buttrey]

Hi,

Try:

Dim stSite As String

stSite = UserForm1.TextBox1
Sheets("Sitedata").Range("2:2000").AutoFilter 3, "<>" & stSite

Note. Avoid selecting and activating cells, this is rarely needed and only slows things down. You'd also be better advised to name the range 2:2000, probably with a dynamic name and use the name in the code. That will avoid problems should you ever add any rows above row 2. Change the 'UserForm1' form name if necessary.

HTH

[perbags]

Thanks Richard

This works great, very much appreciated

Regards

Perbags