VBA to search for numbers

SaraO · Apr 5th 2015

I would like to add to this VBA to be able to search for numbers as well as letters.

Code

Private Sub cmdContact_Click()
 Dim DataSH As Worksheet
 On Error GoTo errhandler:


  Set DataSH = Sheet1
 DataSH.Range("L8").Value = cboSelect.Value
 DataSH.Range("L9").Value = txtSearch.Text
 DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range("L8:L9") _
 , CopyToRange:=DataSH.Range("P8:X8")
 'Set myRng = Sheet1.Range("outdata")
 ListBox1.RowSource = Sheet1.Range("outdata").Address(external:=True)
 Exit Sub
errhandler:
'if error occurs then show me exactly where the error occurs
 MsgBox "No match found for " & txtSearch.Text
 On Error GoTo 0
 Exit Sub


End Sub

Display More

SaraO · Apr 5th 2015

Re: VBA to search for numbers

Got it figured out!!

**S O** · Apr 5th 2015

Re: VBA to search for numbers

Hi SaraO, can you post the solution even though you found it yourself? It may help others in the future if they find themselves on this page looking for a similar solution

SaraO · Apr 6th 2015

Re: VBA to search for numbers

It does search for number... What I did not know was that in my customer database the phone numbers had a (') in front of each phone number and some had spaces. Once I removed the (') and spaces it worked perfectly.

This is one part of the VBA that I am using for my customer database. I got it from this website http://www.onlinepclearning.co…ntact-manager-excel-2010/

VBA to search for numbers

Participate now!

Share