Find a Range in a Range in Excel

Find a Range in a Range in Excel. Find a group of items within a large group of values or text. Check out my online courses www.easyexcelanswers.com/courses.html
All my courses include online support and a user manual
Let me teach you the VBA that I have learn in my five years of consulting
https://barb-s-school-c482.thinkific.com/courses/introduction-to-vba-for-excel

Let’s take the frustration out of user forms
https://barb-s-school-c482.thinkific.com/courses/mastering-user-form-in-vba-for-excel

Become an Affiliate and earn 25% on Course Sales
https://barb-s-school-c482.thinkific.com/courses/become-an-affiliate

For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.

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/barbhenderson

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/easyexcelanswers

Follow me on Facebook
https://www.facebook.com/easyexcel.answers

TWEET THIS VIDEO https://youtu.be/OKtX-4DL0ac

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_panel?c=UCFH2kZykqt-VX5W9waJzYvQ&tab=2

*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 rangeinrange()
Dim r, c As Long
Dim crang As Range
Dim thecell As Range
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Set crang = Range("B2:G2")

r = 3
c = 2

For r = 3 To lastrow
For c = 2 To 13
Sheet1.Cells(r, c).Select
‘if activecell.Value =
For Each thecell In crang
‘This is the range of cells to compare
If ActiveCell.Value = thecell.Value Then
ActiveCell.Interior.ColorIndex = 4

End If
Next thecell
Next c

Next r

End Sub