research increment code

[Osmarls]

Hello friends, I have this code that does a search in the entire worksheet seeking value in a range of column D, I need it to check if column B there is anything typed in, if blank, even if column B contains the item searched him to jump to the next:
Private Sub PESQUISAR_Click()
Dim i As Integer
Dim PES As Variant
Dim ws As Worksheet
Dim rg As Range
PES = Application.InputBox("Informe valor a ser pesquisado.", "LABORATÓRIO LCQ.")
For Each ws In ActiveWorkbook.Worksheets

For Each rg In ws.[D1:D80]
If rg = PES Then i = i + 1
Next rg
Next ws
txtqt.Value = i ' Amount found in the research
txtname.Value = PES ' Name search
End Sub

Att

Osmarls

 

[sunnyland]

Hello,

Do you want to see if this code works for you. It will display in a msgbox the worsheet name and cell address, this is just to verify if the code works [at least on my side]. Let me know how it goes.

Private Sub PESQUISAR_Click()
Dim i As Integer
Dim PES As Variant
Dim ws As Worksheet
Dim rg As Range
PES = Application.InputBox("Informe valor a ser pesquisado.", "LABORATÓRIO LCQ.")
For Each ws In ActiveWorkbook.Worksheets
For Each rg In ws.[D1:D80]
If rg = PES And IsEmpty(rg.Offset(, -2)) Then
MsgBox ws.Name & " " & rg.Address
End If
Next
Next
End Sub

 

[Osmarls]

Hi, very good, thanks.