Hi expert, im using this code need your help if we can search value from a range.
Sub Demo()
Dim ws As Worksheet
Dim table As ListObject
Dim lstrow As ListRow
Dim r As Long
Dim n As Long
Dim e As Long
Dim strSearch As String
Dim invoice As Range
Dim Cases_sold As Range
Dim rate As Range
Dim a As Range
Dim b As Range
Dim c As Range
' strSearch = "invoice"
Set invoice = Sheet1.Rows(1).Find(what:="Invoice", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'--
Set Cases_sold = Sheet1.Rows(1).Find(what:="cases_sold", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'---
Set rate = Sheet1.Rows(1).Find(what:="rate", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'----
Sub Demo()
Dim ws As Worksheet
Dim table As ListObject
Dim lstrow As ListRow
Dim r As Long
Dim n As Long
Dim e As Long
Dim strSearch As String
Dim invoice As Range
Dim Cases_sold As Range
Dim rate As Range
Dim a As Range
Dim b As Range
Dim c As Range
' strSearch = "invoice"
Set invoice = Sheet1.Rows(1).Find(what:="Invoice", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'--
Set Cases_sold = Sheet1.Rows(1).Find(what:="cases_sold", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'---
Set rate = Sheet1.Rows(1).Find(what:="rate", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'----