PC Review


Reply
Thread Tools Rate Thread

Create list of different columns

 
 
dakke
Guest
Posts: n/a
 
      14th Feb 2008
I have been looking for an entire day to find a solution to this. Found
'some' answers but not the thing I need.

I got a few workbooks with a lot of worksheets. For almost every workbook
there needs to be a list of unique values coming from different worksheet
(always in the same workbook). I would like to get a clue on how to do that.

So suppose worksheet 1, and worksheet 2 I would like to create a list on
worksheet 3 gathering all unique values from columns B (of both worksheet 1
and 2) using VBA.

I'm really really not familiar with VBA so suggestions more than welcome.

 
Reply With Quote
 
 
 
 
David
Guest
Posts: n/a
 
      14th Feb 2008
Hi,
Something like this might work.
Dim SRC()
Do Until ActiveCell.Value = ""
For z = n To (n + 1)
ReDim Preserve SRC(n)
SRC(n) = ActiveCell.Value & ActiveCell.Offset(0, 1).Value
For a = 1 To z
If a = z Then GoTo SkipIt
If SRC(a) = SRC(z) Or Right(SRC(z), 1) <> "a" Then
SRC(z) = ""
Else
End If
SkipIt:
Next
ActiveCell.Offset(1, 0).Select
n = n + 1
Next
Loop

The above is looking at two values and it does not go to another sheet, but
I think you can adapt it to what you need. It creates an array and puts
blanks ("") when the value is not unique. Then you go through the array and
see what is not blank.

David

"dakke" wrote:

> I have been looking for an entire day to find a solution to this. Found
> 'some' answers but not the thing I need.
>
> I got a few workbooks with a lot of worksheets. For almost every workbook
> there needs to be a list of unique values coming from different worksheet
> (always in the same workbook). I would like to get a clue on how to do that.
>
> So suppose worksheet 1, and worksheet 2 I would like to create a list on
> worksheet 3 gathering all unique values from columns B (of both worksheet 1
> and 2) using VBA.
>
> I'm really really not familiar with VBA so suggestions more than welcome.
>

 
Reply With Quote
 
dakke
Guest
Posts: n/a
 
      14th Feb 2008
It sure points me in the right direction, but need a lot more time to get
this thing actually running. I'll see how far I get with it, I'll let you
know tomorrow
 
Reply With Quote
 
dakke
Guest
Posts: n/a
 
      14th Feb 2008
Well,

it is more likely that I give up on this. I have no clue on where to start,
nor the time to do some reading up on yet another programming language (I'm
not really an IT guy).

I hoped for an easy way out but...

For those familiar with VBA, here my problem again:
I have let's say 8 worksheets, one worksheet named summary, another ReadMe.

All other worksheet contain actual data which starts at line 16 and only
need columns C, G and AO. Variable ranges (sometimes 50 records, sometimes
even 1500) and I do not know how much for each of these worksheets (as in 'I
don't want to count them).
Loop through all worksheets I define, get all cells that are not blank
starting from the row I define and list them all in the worksheet summary.

thanks,
a frustrated vba newbie
 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Create List of Unique Values from several columns Matt Microsoft Excel Misc 2 10th Sep 2009 03:30 AM
Create a list from many columns Alan B Microsoft Excel Misc 3 30th Sep 2008 01:17 PM
Re: How do I create extra columns in an Outlook Distribution list? SB Mull Microsoft Outlook Discussion 1 24th Aug 2008 02:02 AM
How do I create a list of unique values from 2 columns of data FrozenRope Microsoft Excel Worksheet Functions 2 7th Jun 2008 11:57 AM
How do I create multiple columns from a one-column list in Excel? =?Utf-8?B?TWVsaXNzYQ==?= Microsoft Excel Worksheet Functions 5 5th Oct 2005 03:32 AM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 09:26 AM.