Solved

Reducing an array

Posted on 2011-03-12
6
249 Views
Last Modified: 2012-05-11
I have an array of data read off a worksheet using the statement

maxrds = dta.Range("a" & xls.Application.Rows.Count).End(xlUp).Row - datstart + 1

All variables are variants.

How can I create a similar array which has only even numbers in the first column?

Saqib
0
Comment
Question by:Saqib Husain, Syed
  • 3
  • 3
6 Comments
 
LVL 50

Expert Comment

by:Dave Brett
ID: 35115494
Saqib,

I think you will need to create a second array reading in every second record from your initial array (faster than writing every second cell to a single array)

Cheers

Dave
0
 
LVL 43

Author Comment

by:Saqib Husain, Syed
ID: 35115524
Hi, Dave,

I have not declared the size of the original array. It sizes it based on the assignment statement above. I would like to know a way to assign this to the new array without defining the length. So the main list might have 100 entries and the new list might have 70

The numbers would have to be checked for evenness, they are not regularly incrementing.
0
 
LVL 43

Author Comment

by:Saqib Husain, Syed
ID: 35115662
Sorry I had given the wrong assignment statement in the question. That was for calculation the number of entries in the range. The range assignment is given here

rds = WorksheetFunction.Transpose(dta.Range(dta.Cells(datstart, 1), dta.Cells(maxrds + datstart - 1, 1)).Value)

0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 50

Expert Comment

by:Dave Brett
ID: 35115921
Can you pls post a sample Saqib
0
 
LVL 43

Author Comment

by:Saqib Husain, Syed
ID: 35122777
Dave,

I have created this file with the given numbers in column A.

In column D I have shown what values I would like to see in the reduced array. This column is not normally present.

I have also created a macro which assigns column A values to rds and column D values to rds2.

I would like to have rds contain the contents of rds2 instead of having a new variable rds2.

Saqib
Reducearray.xls
0
 
LVL 50

Accepted Solution

by:
Dave Brett earned 500 total points
ID: 35124561

Saqib,

This code uses a Mod test to dump only the even numbers to the second array

A Redim Preserve is used to trim the second array to the correct size

For future reference my array article is at  http://www.experts-exchange.com/A_2684.html

Cheers

Dave
Sub Recut()
    Dim X
    Dim Y
    Dim lngRow As Long
    Dim lngRow2 As Long
    X = Application.Transpose(Range([a5], Cells(Rows.Count, "A").End(xlUp)))
    Y = X
    For lngRow = 1 To UBound(X)
        If X(lngRow) Mod 2 = 0 Then
            lngRow2 = lngRow2 + 1
            Y(lngRow2) = X(lngRow)
        End If
    Next
    ReDim Preserve Y(lngRow2)
End Sub

Open in new window

0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Do you use a spreadsheet like Microsoft's Excel?  Have you ever wanted to link out to a non excel file on your computer or network drive?  This is the way I found to do it!
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question