Problem with Union
 

When I run this code it only takes the last value in the loop rather than giving me the union 1-10. Any help appreciated.

Dim r As Range
Dim rr As Range

For i = 1 To 10
temp = (Cells(i, 1).Value * 1)

Set r = Rows(temp)
Set rr = Application.Union(r, Rows(temp))

Next

rr.Delete



EggHeadCafe - Software Developer Portal of Choice
WPF DataGrid Custom Paging and Sorting
http://www.eggheadcafe.com/tutorials...tom-pagin.aspx

Problem with Union
 

Victor None;505604 Wrote:
When I run this code it only takes the last value in the loop rather
than giving me the union 1-10. Any help appreciated.

Dim r As Range
Dim rr As Range

For i = 1 To 10
temp = (Cells(i, 1).Value * 1)

Set r = Rows(temp)
Set rr = Application.Union(r, Rows(temp))

Next

rr.Delete



EggHeadCafe - Software Developer Portal of Choice
WPF DataGrid Custom Paging and Sorting
'WPF DataGrid Custom Paging and Sorting' (http://tinyurl.com/y9j43ry)

Try:
For i = 1 To 10
temp = (Cells(i, 1).Value * 1)
Set r = Rows(temp)
Set rr = Application.Union(IIf(rr Is Nothing, Rows(temp), rr),
Rows(temp))
'Debug.Print rr.Address
Next


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=139031

Problem with Union
 

If rr Is Nothing Then
Set rr = Rows(temp)
Else
Set rr = Union(rr, Rows(temp))
End If

--
Gary''s Student - gsnu200905