Скачать или смотреть Search for numbers across worksheets in Excel

Search for numbers across worksheets in Excel. Search across specific worksheets. Both Manual and VBA method.

For more help visit my website http://www.easyexcelanswers.com or email me at [email protected].

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting http://www.calendly.com/easyexcelanswers

I am able to provide online help on your computer at a reasonable rate.

https://www.amazon.com/shop/barbhende...

I use a Blue condenser Microphone to record my videos, here is the link
https://amzn.to/37gyyGa

Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83

If you need to buy Office 2019 follow
https://amzn.to/2VX5dv8

I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelan...

Follow me on Facebook
  / easyexcel.answers  

TWEET THIS VIDEO    • Search for numbers across worksheets in Excel  

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_p...

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.

Code
Sub button()
With UserForm1
.Width = 240
.Height = 180
.Show
End With
End Sub
Private Sub CommandButton1_Click()
Dim account As String
Dim r As Long


If TextBox1.Text = "" Then
MsgBox "Enter Account Number"
End If

account = Trim(TextBox1.Text)

r = 2
Sheet1.Activate
Do While Sheet1.Cells(r, 1) (does not equal) ""
If Sheet1.Cells(r, 1).Value = account Then
Sheet1.Cells(r, 1).Select
ActiveCell.EntireRow.Interior.ColorIndex = 28
'ActiveCell.EntireRow.Delete Shift:=xlUp
End If
r = r + 1
Loop
Sheet3.Activate
r = 1
Do While Sheet3.Cells(r, 1) (does not equal) ""

If Sheet3.Cells(r, 1).Value = account Then
Sheet3.Cells(r, 1).Select
ActiveCell.EntireRow.Interior.ColorIndex = 28
'ActiveCell.EntireRow.Delete Shift:=xlUp
End If
r = r + 1
Loop

End Sub