Convert Array To List
Sep 26, 2008
I have a data array which i would like to convert to a list. Sort of the reverse of a Pivot Table
See example below
I would like to turn this
Account Jan Feb Mar April etc..
001 59 30 25 40
002 12 20 32 29
003 5 13 27 39
004 10 11 12 13
Into This
Account Month Amount
001 Jan 59
001 Feb 30
001 Mar 25
001 April 40
002 Jan 12
002 Feb 20
002 Mar 32
002 April 29
003 etc...
There is a sample of the data file attached.
View 3 Replies
ADVERTISEMENT
Jun 21, 2014
wondering is there a VBA equivalent of --() in excel that turns trues and falses to 1's and 0's?
View 14 Replies
View Related
Dec 20, 2013
I need to export this to Xcelsius which doesn't support any macros/vba. Btw I can;'t use Row() in xcelsius too.
[Code].....
View 4 Replies
View Related
May 9, 2008
I have a list of code that it has been suggested to me will work a lot more efficiently by using an Array.
Sub Auto_Open()
Sheet1.ComboBox1_click
Sheet2.ComboBox1_click
Sheet2.ComboBox2_click
Sheet3.ComboBox1_click
Sheet4.ComboBox1_click
Sheet6.ComboBox1_click
Sheet6.ComboBox2_click
Sheet10.ComboBox1_click
Sheet10.ComboBox2_click
Sheet11.ComboBox1_click
Sheet12.ComboBox1_click
Sheet12.ComboBox2_click
Sheet15.ComboBox1_click
Sheet15.ComboBox2_click
Sheet16.ComboBox1_click
Sheet16.ComboBox2_click
Sheet17.ComboBox1_click
Sheet17.ComboBox2_click
Sheet18.ComboBox1_click
Sheet19.ComboBox1_click
Sheet19.ComboBox2_click
End Sub
All the code does is refresh the selection list in a combo box so it is up-to- date when the workbook is open.
View 7 Replies
View Related
Dec 5, 2011
I want to have a user-defined function where the user sends a range (i.e. "A1:J1") and each cell is viewed as a member of an array. I can do this if the user sends "A1,B1,C1,D1,E1,F1,G1,H1,I1,J1", but this is very cumbersome. I tried the following code:
Code:
Public Function CreateDenom(DenomValues As Range) As Variant
Dim tmpArr() As Variant
Dim c As Range
For Each c In DenomValues
tmpArr(c) = c.Value
Next c
CreateDenom = UBound(tmpArr)
End Function
This won't be the end product of course, but it's a starting point if I can get it to work. However, I get an error stating that "A value used in the formula is of the wrong data type."
View 2 Replies
View Related
Oct 31, 2006
The attached has a mega array formula that really slows down the recalc on this spreadsheet. I would like to use a macro to write the value of the formula to the worksheet "Database" column J.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range(Range("rReason").Offset(1, 0), Range("rReason"). _
Offset(UsedRange.Rows.Count + 1, 0))) Is Nothing Then
Target.Offset(0, 1) = Application.VLookup(Target, ValList.Range("ReasonLkUp"), 2, False)
'This formula below needs a VBA equivalent
' Target.Offset(0, 4).FormulaArray = "=IF(MIN(IF(R7C3:R35000C3=RC[-7],IF(R7C8:R35000C8>0,R7C8:R35000C8)))=RC[-2],MIN(IF(R7C3:R35000C3=RC[-7],IF(R7C8:R35000C8>0,R7C8:R35000C8))),0)"
End If
If Not Intersect(Target, Range(Range("rSurname").Offset(1, 0), Range("rSurname"). _
Offset(UsedRange.Rows.Count + 1, 0))) Is Nothing Then
Target.Offset(0, 1) = ActiveCell.Offset(0, -2) & " " & ActiveCell.Offset(0, -1)
End If
End Sub
View 9 Replies
View Related
May 23, 2007
I am using strongly typed code, but I am also pulling data from worksheets into variants. e.g.
Dim MyArray As Variant
MyArray = [MyNamedRange]
is there any shortcut to convert the variant to a typed array, which doesn't just involve looping throught the variant and using a casting function, e.g.
Dim MyArray As Variant
Dim typedArray() As type
MyArray = [MyNamedRange]
typedArray = shortcut(MyArray)
View 4 Replies
View Related
May 2, 2013
I have a variable that gets set to an address range:
Code:
TAG_RANGE = Sheets(BAL_SHT_TAB_NAME).Range("A1", Sheets(BAL_SHT_TAB_NAME).Cells(Rows.Count, Range("A1").Column).End(xlUp)).Address
In the first loop that executes this command TAG_RANGE gets set to $A$1:$A$39
I want to loop through the values in that range and run tests against them. Is there a function that will take the values in the address range an convert them into an array so that I can use something like this:
Code:
For Counter = LBound(TAG_RANGE_ARRAY) To UBound(TAG_RANGE_ARRAY)
[run tests]
Next
Or is there someother direct way to do this other than creating a loop that fills the array element by element
View 5 Replies
View Related
Feb 15, 2010
{= SUM(IF(({325,481,342,440,425}=ID)*($A37=DateRng)*1, ROUND(Sales,2),0))}
I am currently using this formula to retrieve total sales by day for each team and it works perfectly. Data is stored in columns by Date,Salesman ID,Sales.
I would like to replace the array portion with a vlookup to return the array set so i can use drop-down to select different teams and see the sales for that team.
{=SUM(IF((vlookup(TmName,Teams,2,0)=ID)*($A37=DateRng)*1,ROUND(Sales,2),0))}
This is the function as I thought it would work, but the vlookup returns "325,481,342,440,425" as a string not an array.
View 9 Replies
View Related
May 15, 2013
Let me see if I can explain my question in an understandable fashion....
I have a table containing data for about 2000 ID numbers. Some of these numbers are unique and some are duplicates. I would like to convert the ID numbers into a consecutive list of integers while preserving the unique numbers. For example, if the first column of my table is currently:
ID#
18578
19644
19644
20247
20974
21361
21361
21419
I would like to change that to something like:
ID#
1
2
2
3
4
5
5
6
I need to know which records (i.e. which rows of data) are from the same ID# but want to remove the actual ID#.
View 6 Replies
View Related
Sep 6, 2007
I have a byte array that contains a 4 byte floating point number. How would I convert this byte array to the single typed floating point number it contains?
View 9 Replies
View Related
Jul 6, 2009
I have a list of data i would like to convert to a different format using a macro.
The conversion involves Sort the data. Delete rows when criteria is met. Insert blank rows when criteria is met. Insert formulas into cells. I have attached a sample workbook.
View 2 Replies
View Related
Jun 14, 2012
I have three columns of data starting in row 5, the headers of these columns show Origin, Destination and mileage. Is it possible to have a macro that converts the data into a table?
View 2 Replies
View Related
Jun 3, 2014
I am trying to convert a table into a list, please see the example, I want to convert this table
10547
aaa
140x200
160x230
300x400
10549
bbb
140x200
150x260
[Code] ........
View 1 Replies
View Related
Sep 18, 2008
I need to convert this kind of table to a list (like in below example)
Can someone give me an instruction or macro to do this ?
Table
X Y Z
A 3 5 7
B 2 4 6
C 8 9 10
List
Column1 Column2 Column3
A X 3
A Y 5
A Z 7
B X 2
B Y 4
B Z 6
C X 8
C Y 9
C Z 10
View 9 Replies
View Related
Jun 24, 2007
I want to take information from a list and put into a matrix using VBA. So my problem is to find the correct cell in the matrix.
View 5 Replies
View Related
Dec 18, 2007
I'm looking for a way to automatically convert a list of values into a matrix.
For example,
A1A11000
A1A2998
A1A3468
A1A4491
A2A1998
[Code] .......
should be converted to
A1A2A3A4
A11000998468491
A29981000464488
A34684641000992
A44914889921000
In this case it could still easily be done manually, but if the matrix has more dimensions it will get harder.
View 5 Replies
View Related
Nov 8, 2012
I have a wedding list in rows in an excel sheet IE Name, Address, City, State, Zip
I want to transfer it to a text deliminated file in notepad, where it will appear as follows:
Name
Address
City, State Zip
how to accomplish this.
View 1 Replies
View Related
Oct 9, 2007
I would like to convert the data by VBA macro from a table format into a list format. The convention of the TABLE data is as follows:
First row is Header Titles
[TABLE]
[SITE],[LOC],[PROD], [MTH1], [MTH2], to ->[MTH12]
North, Office, Cooling, 100, 125, 85
[/TABLE]
I would like the data to be provided into a list format for each month.
For example:
[TABLE]
Row 1: North, Office, Cooling, Month 1, Value
Row 2: North, Office, Heating, Month 1, Value
Row 3: North, Office, Electricity, Month 1, Value
Row 4: North, Retail, Cooling, Month 1, Value
Row 5: North, Retail, Heating, Month 1, Value
Row 6: North, Retail, Electricity, Month 1, Value
etc
[/TABLE]
View 7 Replies
View Related
Jul 10, 2012
I am trying to find a efficient solution to convert 3 lists (in the same column layouts) to a calender format. I have different lists that are maintained but want to consolidate them into one calender. So rather than looking at 3 individual lists, someone can view this one master calender with all the events/meetings.
The events from each list would automatically populate one master calender.
List 1: Abe
Event Date__Discription
1/20/2012__Lunch meeting
3/2/2012__Convention meeting
5/11/2012__Dinner meeting
List 2: Bill
Event Date__Discription
1/4/2012__Office Meeting
6/2/2012__Golf meeeting
[code]....
Is there an existing program or file out that can accomplish?
View 1 Replies
View Related
Apr 10, 2009
I'm looking for a way to convert an old church address list that is formatted in a single column. There are no blank rows, but the amount of rows for each entry can vary. For instance, there could be as little as 3 rows of data (church name, address, city/state/zip) or more if email addresses and websites are provided.
The data is currently in the format below (notice how one entry has a website while the other does not).
First Church
102 Main Street
Dallas, TX 12345
email@whatever.com
Second Church
500 Second Street
Austin, TX 12376
email2@whatever.com
http://www.boguswebsite.com
So I'm looking for the data to be formatted like the following:
First Church 102 Main Street Dallas, TX 12345 email@whatever.com
Second Church 500 Second Street Austin, TX 12376 email2@whatever.com http://www.boguswebsite.com
I was able to find the following code from a Google search, but it can't dynamically adjust the range.
Sub x()
Dim rng As Range
Set rng = Range("A1").Resize(5)
Do Until IsEmpty(rng.Cells(1, 1))
rng.Copy
Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial Transpose:=True
Set rng = rng.Offset(5)
Loop
End Sub
I think what I need to make this code work is a way to dynamically adjust the range so that it can determine when to move to the next row of data. Static ranges break the process due to the amount of data being provided not being uniform. What I was thinking is that I could use the word "church" as a start point and end point in a loop so the script knows when to jump to the next row and begin copying the proper number of columns. I'm just not sure how to accomplish this in vba.
View 9 Replies
View Related
Jul 25, 2009
I need to rename some jpg's in the c: emp directory ( about 600 ! )
In Col A starting at A1 I have the following:-
DFCF0156
DFCF0157
DFCF0159
DFCF0161
DFCF0164
etc
In Col B starting at B1 I have the following:-
ID3425
ID5823
ID427
ID7272
ID8875
etc
In c: emp is have:-
DFCF0156.JPG
DFCF0157.JPG
DFCF0159.JPG
DFCF0161.JPG
DFCF0164.JPG
etc
What I want to end with in C:TEMP is:-
ID3425.JPG
ID5823.JPG
ID427.JPG
ID7272.JPG
ID8875.JPG
View 9 Replies
View Related
Oct 27, 2006
I have a list of terms in a spreadsheet. Assume they start in cell A1 and they descend down for the next 300 cells. Basically I need to pull those terms into a single text string where the terms are comma delimited.
What I have been doing is concatenating them so they all end with a comma, copy them 25 at a time, pasting values and transposing then running a concatenate formula for the 25 terms. Do this 10-15 times to create that many comma delimited lists then concatenate those lists to create one all in one list.
Example:
The list (starting in A1) looks like this:
Dog
Cat
House
Car
Boat
Mom
Dad
but I need:
Dog,Cat,House,Car,Boat,Mom,Dad
If possible to do this with a formula please do so as my knowledge of using VBA modules is limited but if this must be done using VBA please realize that I'm in the thrid grade compared to your knowledge so please explain how to implement the module as clearly as possible.
View 4 Replies
View Related
Feb 20, 2007
i am working on a long drop-down list which consists of a series of numbers, such as 1,2,3.... When users select 2 from the drop down list, the cell value will be automatically converted to the value "movie" that "2" is corresponding to.
The list behind the drop-down list is like this:
column A column B
1 music
2 movies
3 books
4 games
5 travel
View 9 Replies
View Related
Jun 12, 2014
I have the following two columns, and would like to obtain for each individual Company, the corresponding Country values excluding duplicates as text in a single cell.
Company 2Country B
Company 2Country C
Company 3Country C
Company 3Country C
Company 5Country A
Company 5Country C
Company 5Country C
For example:
- For Company 2, a cell containing "Country B, Country C"
- For Company 3, a cell containing "Country C"
- For Company 5, a cell containing "Country A, Country C"
I've approached generating an array using an IF statement, as in =IF(INDEX(A1:A8="Company 5",,),INDEX(B1:B8,,)," "), which returns the following array: ={" ";" ";" ";" ";" ";" ";" ";"Country A";"Country C";"Country C";" ";" ";" ";" "}.
The question is: how do I get that array to produce, as text in a cell: "Country A, Country C". Note that the duplicate Country C has been removed.
There are a few "StringConcat" User-defined functions that I've found elsewhere on the internet, but they don't seem to be able to handle to conditionally generated IF Index array, which I would think is key to parsing between Countries corresponding to each Company in the list.
View 3 Replies
View Related
Aug 21, 2014
I have a list or log that is updated by a number of people on a sharepoint file. The list consists essentially of 2 columns - lets call them Location and Date.
The Locations are populated from a pulldown list but can be repeated a number of times throughout the list. I have the list set up using Table Formatting so the range updates dynamically
Example:
Location Date
Site1 8/1
Site2 8/2
Site3 8/3
Site4 8/5
Site2 8/6
Site2 8/7
Site3 8/8
As this list gets items added to it I want to populate a summary table on another sheet showing the dates each site was visited like this...
____8/1 8/2 8/3 8/4 8/5 8/6 8/7 8/8 8/9
Site1 X
Site2 -----X-------------X---X
Site3 -------X
Site4 --------------X
(Had to add dashes above to get the X's spaced out properly)
I'm competent with lookups and such but I imagine this needs an array formula or some index/match combination which I'm a little weak on.
The solution should also not require any updating as the source list is updated periodically.
View 4 Replies
View Related
Oct 16, 2013
I have been using Excel to record the routine daily issue of items to different groups in a matrix layout, I use a different workbook for each month with worksheets for each group. The matrix takes the form of the item issued being the left hand column and the date issued the top row of the matrix, the quantity issued is recorded at the intersection. Each item can have a different quantity issued on different days. I'm using Excel 2011 for Mac but could use PC Excel 2010. Is there a way to convert the data held in this way to a list? What I'd like to achieve is a list showing the Item, the Quantities Issued and the the Issue dates
View 9 Replies
View Related
Jun 6, 2006
I have a consolidation workbook and source files.I would like to convert the data from the source files into a list format in the consolidation workbook.
I have attached a sample of the sheet format of the source files in the attached file, called 'Page 5'. The other 2 sheets are 'Template' and 'Instructions'. The 'Template' sheet is what I imagined would be the list format of the data copied from the 'Page 5' sheet. Instructions is where the lookup table for currency is.
So basically starting from row 8 in 'Template' sheet, I would like to copy and paste from 'Page 5' sheet to 'Template' sheet:
- H2 to A8 & B8
- B2 to C8
- According to the list of currency in 'Instructions' sheet, lookup the currency according to operating unit in C8 and paste to D8
- D5-I5 to E8
- row A8-A23 to column F-N
I actually have had a similar problem before, which Derk has helped me here - link: Use Access or XL? (I've decided to start a new thread because this is a more relevant forum).
I have tried to modify the code but I am rather lost as to which part I am supposed to modify.. Note that in this code, the source data is in separate file instead.
Sub add()
Dim wb As Workbook, f As Worksheet, t As Worksheet, j As Integer, k As Integer, n As Integer
Dim mty As String, yr As Integer, d As Date, bu As String, cur As String, sTodo As Variant
sTodo = Array("Page 5") 'finish adding the names
Application. ScreenUpdating = False
Set t = Workbooks("Example1.xls").Worksheets("Template")
i = t.Cells(65536, 2).End(xlUp).Row
View 9 Replies
View Related
Sep 29, 2006
I have a table with unsorted Time Data and Headings for each Row and Column (See attachment). I need to display this data in another worksheet as a scrollable list.
Then when I click on any list item, it displays only that data in the following format:
A1 = Time. A2 = Row Heading. A3 = Column Heading.
Easier to understand if you view the simple spreadsheet attached.
View 4 Replies
View Related
Nov 22, 2007
I've been given a long list of mailing addresses in Excel in formatted as a single column, each address using three rows with no blank rows. Example:
John Doe
123 Maple St. #2
Cambridge, MA 02139
Jane Smith
321 Elm St. Apt 24
Austin, TX 34557
etc.
etc.
I need to get this data into the form ...
John Doe 123 Maple St. #2 Cambridge MA 02139
Jane Smith 321 Elem St. Apt. 24 Austin TX 34557
I would think this has been done, but I've searched the web and this forum without success.
View 3 Replies
View Related
