How to get combination (Union) of Range?

Union is a VBA function which can set multiple non-continuous ranges into a variable, For example if you want to highlight rows only with certain value in column A. you will need to use Union method. Have a look at the example here –

Sub HighLightRow()

 

 Dim strInput As String

 Dim rngRange As Range

 Dim rngUnion As Range

 Dim rngCell As Range

 

 ‘—The value you want to search in column A

 strInput = InputBox(“Please enter a value”)

 ‘—Set Range in to the variable

 Set rngRange = Range(“A1”).CurrentRegion

 

‘—Initiate for each look to iterate every cell in col A

 For Each rngCell In rngRange.Columns(1).Cells

 ‘—check if cell value is equal to entered value by user

 If rngCell.Value = strInput Then

 ‘—Check if rngUnion is blank

 If rngUnion Is Nothing Then

   ‘—if value in column A match with entered value

 ‘—Set that cell row into range variable

 Set rngUnion = rngCell.EntireRow

 Else

 ‘—if there is already a range set in the variable

 ‘—Union next matched cell with the previously set range

 Set rngUnion = Union(rngUnion, rngCell.EntireRow)

 End If

 End If

 Next rngCell

 

 If Not rngUnion Is Nothing Then

 rngUnion.Interior.Color = vbYellow

 End If

 

End Sub

Join my VBA whatsApp group to know more

Download Full Book For Free!!

0 replies

Leave a Reply

Want to join the discussion?
Feel free to contribute!

Leave a Reply

Your email address will not be published. Required fields are marked *