Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Union | Excel Programming | |||
union range problem | Excel Programming | |||
union array | Excel Programming | |||
UNION of Arrays - is possible? | Excel Discussion (Misc queries) | |||
union problem | Excel Programming |