Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Filter function; copy values to another sheet
Hi,
I'm looking for a way to do the following: I have a sheet with (100) rows; in colom A there are values that are not unique. The word "apple" kan appear three times, for example. In colom B there are also values, as much as there are in colom A. What I want is the following: a macro that searches for the word (for example) "apple" and copies the values from the row in colom B to another sheet, range D1. Any help would be appriciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Filter function; copy values to another sheet
why not use the built in Pivot Table capability found under the Data menu.
It will do what you want. -- Regards, Tom Ogilvy "Gert-Jan" wrote: Hi, I'm looking for a way to do the following: I have a sheet with (100) rows; in colom A there are values that are not unique. The word "apple" kan appear three times, for example. In colom B there are also values, as much as there are in colom A. What I want is the following: a macro that searches for the word (for example) "apple" and copies the values from the row in colom B to another sheet, range D1. Any help would be appriciated. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Filter function; copy values to another sheet
I know that function, Tom. That is not a solution. I have to use th data in a VBA userform -- jgmidde ----------------------------------------------------------------------- jgmiddel's Profile: http://www.excelforum.com/member.php...fo&userid=3271 View this thread: http://www.excelforum.com/showthread.php?threadid=53559 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Filter function; copy values to another sheet
I guess when you said:
and copies the values from the row in colom B to another sheet, range D1. I missed the term Userform. dim v() As Variant dim rng as Range Dim sAddr as String redim v(0 to 0) with Worksheets("Sheet1").columns(1) set rng = .find("apples") if not rng is nothing then sAddr = rng.Address do v(ubound(v)) = rng.offset(0,1) redim preserve v(0 to ubound(v) + 1) set rng = .FindNext(rng) Loop while rng.address < sAddr Redim preserve v(0 to ubound(v)-1) Userform1.ListBox1.List = v end if -- Regards, Tom Ogilvy "jgmiddel" wrote: I know that function, Tom. That is not a solution. I have to use the data in a VBA userform. -- jgmiddel ------------------------------------------------------------------------ jgmiddel's Profile: http://www.excelforum.com/member.php...o&userid=32714 View this thread: http://www.excelforum.com/showthread...hreadid=535590 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy/filter data in a sheet from another sheet | Excel Discussion (Misc queries) | |||
Filter function; copy values to another sheet | Excel Discussion (Misc queries) | |||
'Copy to' Advance Filter depend only on sheet ID not start sheet | Excel Worksheet Functions | |||
copy values generated by conditional formula in one sheet to the other work sheet as values | Excel Worksheet Functions | |||
copy values generated by conditional formula in one sheet to the other work sheet as values | Excel Discussion (Misc queries) |