About Us

via135

On May 3, 7:31*am, via135 wrote:
On May 2, 9:41*am, ryguy7272
wrote:

Here is a macro that will do the same thing:
Sub newlist()
Set w1 = Sheets("Combine Multiple Entries1")
Set w2 = Sheets("Combine Multiple Entries2")
w2.Cells(1, 1).Value = w1.Cells(1, 1).Value
w2.Cells(1, 2).Value = w1.Cells(1, 2).Value
Ide = Cells(1, 1).Value
w1.Activate
n = Cells(Rows.count, 1).End(xlUp).Row
k = 3
kk = 1
For i = 2 To n
If w1.Cells(i, 1).Value = Ide Then
w2.Cells(kk, k).Value = w1.Cells(i, 2).Value
k = k + 1
Else
kk = kk + 1
k = 3
Ide = w1.Cells(i, 1).Value
w2.Cells(kk, 1).Value = Ide
w2.Cells(kk, 2).Value = w1.Cells(i, 2).Value
End If
Next
End Sub

Regards,
Ryan---

--
RyGuy

"Teethless mama" wrote:
"RngA" and "RngB" are defined name ranges in ColA and ColB

Sheet 2:
to get unique values

A2:
=IF(ISERR(SMALL(IF(MATCH(RngA,RngA,0)=ROW(INDIRECT ("1:"&ROWS(RngA))),MATCH(**RngA,RngA,0)),ROWS($1:1 ))),"",INDEX(RngA,SMALL(IF(MATCH(RngA,RngA,0)=ROW( I*N*DIRECT("1:"&ROWS(RngA))),MATCH(RngA,RngA,0)),R OWS($1:1))))

ctrl+shift+enter, not just enter
copy down

B2:
=IF(ISERR(SMALL(IF(RngA=$A2,ROW(INDIRECT("1:"&ROWS (RngB)))),COLUMNS($B:B)))**,"",INDEX(RngB,SMALL(IF (RngA=$A2,ROW(INDIRECT("1:"&ROWS(RngB)))),COLUMNS( $*B*:B))))

ctrl+shift+enter, not just enter
copy across and down

"via135" wrote:

hi!

in sheet1, *i am having codes (numerical or text) in col A and values
in col B as under:

COL A * * * * *COL B
abc * * * * * * * 10
abc * * * * * * * *-10
1111 * * * * * * 20
2222 * * * * * * 30
1111 * * * * * * -40
ab123 * * * * * *50
ab123 * * * * * *60
2222 * * * * * * *-10
abc * * * * * * * *20

now what i want is in sheet2 codes in COL A and *values in COL B ,
COL *C, COLD ..etc in row wise as under:

COL A * *COL B * * *COL C * * * * COL D
*abc * * * * 10 * * * * * *-10 * * * * * * * 20
1111 * * * *20 * * * * * *-40
2222 * * * *30 * * * * * *-10
ab123 * * * 50 * * * * * * 60

any help pl?

thks

-via135- Hide quoted text -

- Show quoted text -

hi
ryguy7272

i am getting error "subscript out of range".!
can u guide me pl?

-via135- Hide quoted text -

- Show quoted text -

???

-via135

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Tying to extract all data from a pivot pulling from external data	Ted Urban	Excel Discussion (Misc queries)	3	September 14th 07 10:50 AM
Linking two spreadsheet, pulling data from one cell to another, data is being truncated	Ben	Excel Worksheet Functions	0	September 13th 07 11:41 PM
Pulling data from multiple rows and columns	Mark C	Excel Worksheet Functions	3	February 25th 07 08:33 AM
pulling data from one sheet and listing selected data in another	Bfly	Excel Worksheet Functions	2	February 2nd 07 01:38 AM
PULLING OUT CONSECUTIVE ROWS	GARY	Excel Discussion (Misc queries)	2	August 26th 06 04:25 AM

Menu

About Us