Maximum Date In Array Macro Code
May 4, 2008
I'm writing a macro that will pull a set of dates from a worksheet and put them into an array. Then I want to find the max date in the array (most likely using some sort of sorting method).
The code below is how I'm putting the dates into an array. I'm not sure if using the date data type is best. I can't tell how it will sort the information. Is there an easy way to find the maximum of an array of dates?
Dim Date_Array() As Date
If Sheets("Sheet1"). Range("N" & i) = "Date" Then
j = j + 1
Redim Preserve Date_Array(j)
View 5 Replies
ADVERTISEMENT
Jul 15, 2009
I would like to run a macro loop to find Maximum value out of these three column and return text into a cell as "maximum value found = A" or B ....
View 12 Replies
View Related
Oct 9, 2008
Look in Column E and find the MAX value. Once you find the MAX value, (let's say E27) display the date that's in C27. I bet this is really easy but I've been screwing around with it for over a half hour and can't get the correct result.
View 2 Replies
View Related
Nov 12, 2008
Very simple problem. I need the second highest value in an array. Max gives me highest. Min gives me lowest. I need a kind of a MAX2 function.
View 3 Replies
View Related
Feb 5, 2009
I've gotten were Cell formulas.
I need this for VB code, for an array that is the product of another macro hence it's dynamic.
B 3
E 2
E 8
D 2
B 1
B 7
How do I subtotal Col A,B according to Col A?
Total 3 B entries with a subtotal of 11
Total 2 E entries with a subtotal of 10
Total 1 D entry with a subtotal of 2
View 9 Replies
View Related
Feb 26, 2008
i've come across something that i'd like to do with regards to populating an array/variant not using a global variable.
i currenty have this for testing purposes which works, but perhaps not the best solution?
Private vntArrayCodes() As Variant
Sub populateVntArrayCodes(ByVal intArrayCount As Integer, _
ByVal strCode As String)
Redim Preserve vntArrayCodes(intArrayCount)
vntArrayCodes(intArrayCount) = strCode
End Sub
Is there another way to do this without using a OO Classes?
View 9 Replies
View Related
Jun 7, 2008
I have been trying to take a variant array that has 6 columns, output it to a new worksheet (although I would prefer to just sort the array but can't get that working - how I can do this please feel free), sort the worksheet by 2 different columns, and then move these values back into the original array. I think I have the dumping and sorting down but I can't figure out the putting back into the array part. Here is the code I have thus far. varRecords is the array I am dumping to the new worksheet.
Dim dumpSheet As Worksheet
Set dumpSheet = Sheets.Add
Range(Cells(1, 1), Cells(1, UBound(varRecords))) = varRecords
Range("A1:F" & numRows).Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range _
("A2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
View 5 Replies
View Related
Apr 30, 2008
I have created an array in Excel VBA 2003 and successfully loaded it with values. The array variable is called "Week". I am currently getting the sum of the numbers in the array by creating a dim variable that adds them statically one at a time:
Dim finalvalue As Integer
finalvalue = week(1) + week(2) + week(3)
That works, except as time goes on there are more weeks and I need to dynamically add all the values together in one fell swoop.
View 9 Replies
View Related
Apr 23, 2008
I'm trying to enter a series of formulas referencing the first cell of each row.
With Range("A40")
Range(.Cells(1, 1), .End(xlDown)).Offset(0, 1).FormulaR1C1 = "= COUNTIF(Details!R2C2:R65536C2,RC1)"
Range(.Cells(1, 1), .End(xlDown)).Offset(0, 2).FormulaArray = "=RC[-1]-SUM((Details!R2C2:R65536C2=RC[-2])*('Details'!R2C11:R65536C11=RC1))"
Range(.Cells(1, 1), .End(xlDown)).Offset(0, 4).FormulaArray = "=SUM((Details!R2C2:R65536C2=RC1)*(Details!R2C4:R65536C4>TODAY()-7))"
Range(.Cells(1, 1), .End(xlDown)).Offset(0, 5).FormulaArray = "=RC[-1]-SUM((Details!R2C2:R65536C2=RC1)*(Details!R2C11:R65536C11=RC1)*(Details!R2C4:R65536C4>TODAY()-7))"
Range(.Cells(1, 1), .End(xlDown)).Offset(0, 7).FormulaArray = "=SUM((Details!R2C2:R65536C2=RC1)*(Details!R2C4:R65536C4>TODAY()-30))"
Range(.Cells(1, 1), .End(xlDown)).Offset(0, 8).FormulaArray = "=RC[-1]-SUM((Details!R2C2:R65536C2=RC1)*(Details!R2C11:R65536C11=RC1)*(Details!R2C4:R65536C4>TODAY()-30))"
End With
While this code works for the first formula, the following 4 are arrays, and for some reason, will only reference the first A40 cell.
View 9 Replies
View Related
Dec 6, 2012
I want to search a data set and return the maximum value based on 3 criteria using (array) formulas.
Say the data set contained the following:
Row 1: column headings (date, name, data 1, data 2, data 3, etc)
Column A: dates
Column B: names
Columns C through G: data
I want to find the maximum value for a given name, in a certain month, and a nominated data column (e.g. data 2). For example:
Month = June
Name = Geoff
Data column = Data 2
Max value = ????
All of the data in the data columns is numeric.
View 4 Replies
View Related
Sep 9, 2012
I am trying to populate many arrays with the same code using something like this. For this test, assume the following data in A1.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Code:
Sub populate()
Dim firstArr(5), secondArr(5), thirdArr(5), fourthArr(5), fifthArr(5) As Integer
Dim r, c, num As Integer
[Code]....
The above code does not work of course and falls over. I am unsure whether I should try and concatenate with something like this eg "" & arrName(i) = Cells (r,c) or go down a different route.
View 6 Replies
View Related
Jan 26, 2009
Some time ago I was developing a worksheet with a large amount of code in it, and I got some kind of 'out of memory' error. I seem to remember it turned out that the error was because I had too much vba code in a single worksheet. I think I overcame the problem by moving routines out of the sheet and into a module.
I'm probably going to be approaching this limit again with something I'm wroking on now (although I haven't had any errors yet.) Does anyone know what the maximum amount of code you can have in a single worksheet in Excel 2003 is? And is there an easy way to find out how much code you have in a worksheet?
View 3 Replies
View Related
Oct 22, 2012
01-Oct-12
02-Oct-12
03-Oct-12
04-Oct-12
05-Oct-12
10
212
23
24
58
Here the maximum value is 212, Is there any way to find its corresponding date. Date in Row(A1:A5), Values in Row(B1:B5). Tried my best to get the date; but no way.
View 4 Replies
View Related
Dec 2, 2007
I have an Excel- sheet with 2 columns (Salesman and Date)
Salesman Date
A 2004-01-01
A 2006-01-01
A 2007-01-01
B 2003-01-01
C 1999-01-01
C 2002-01-01
D 2005-01-01
D 2007-01-01
I would like to filter the sheet so that every salesman is listed only once with his/hers latest date - The result of the example above should be:
Salesman Date
A 2007-01-01
B 2003-01-01
C 2002-01-01
D 2007-01-01
View 2 Replies
View Related
Mar 14, 2008
If I have a row full of dates and I want to find the most recent date, how do I do that?
View 2 Replies
View Related
Feb 29, 2008
Suppose the current month is Feb-08. How will I be able to get the next and the next months in this format(i.e Mar-08 and Apr-08). I am able to get Feb-08 but unable to get the following months. i did lots of google search but was unable to find any examples..
View 2 Replies
View Related
Apr 21, 2008
I have a column which has dates in format: dd/mm/yyyy - there are no headers in this worksheet.
I need to sort the worksheet according to the row date field ... but it's causing issues.
It is assuming the dd is mm ... and when i reverse the format to yyyy/mm/dd before sorting - then it assumes mm is mm BUT it keep sorting with dd, regardless of the month. with both ways, the assumptions are interchangeable ...
View 3 Replies
View Related
Dec 9, 2009
I am currently using an array to return the MAX date value. This formula will enter 1/0/00 if the referenced cells are blank. I'd like the furmula to LEAVE THE CELL BLANK if the referenced cells are blank. {=MAX(IF(Bid_Circuits=$A45,Bid_Trim_Completed,""))}
View 5 Replies
View Related
Mar 21, 2008
I am working on a manning document which tells me when people report, and depart based on their job position. I have all of the info in one worksheet, and want to generate a bar like graph on another worksheet in the workbook (by just changing the cell color for ease) for a snapshot to view holes in job positions.
The snapshot worksheet has the list of jobs on the left, and months/years in a line acorss the top i.e.
2006
| J | F | M | A | M | J | J | A | S | O | N | D |
Job Position X X X X X X
Job Position X X X X X X
Here was the code I started with, and it doesn't do anything!
Private Sub Workbook_CreateCalendar(ByVal Sh As Object, ByVal Target As Range)
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim Fcol As Date
Dim Lcol As Date
Dim Lencol As Long
Dim CalcMode As Long
Dim ViewMode As Long
'Set the Start Date of your Sheet
Dim DatTim1 As Date
DatTim1 = #1/1/2006#
View 5 Replies
View Related
Nov 10, 2009
in which the OP was trying to find the maximum date (Col B) in which the value in Col A occurred, DonkeyOte used this formula as a possible solution
View 4 Replies
View Related
Mar 31, 2014
I have a user form we are using to transfer data into an excel spread sheet. When transferring the date from a text field it is formatted as general, I need this to be a date format DDMMYYY. The cell needing formatting is N2
View 5 Replies
View Related
May 20, 2008
I have cells in a column that record time in date. Unformatted it would appear as 19789.51407 but formatted to show time and date it would as appear as 3/6/54 12:20 PM. I am making graphs with the data and I want the title of my x axis to read "GMT Time (mm/dd/yyyy - mm/dd/yyyy)" or "GMT Time (mm/dd/yyyy)" depending on if the event spans more then one day. Using the following code, it almost accomplishes this.
Dim strDate As String
Range("CO3").Value = Range("A3").Value
Range("CP3").Value = Range("A" & Drag).Value
Range("CO3:CP3").NumberFormat = "m/d/yyyy"
If Range("CO3").Value = Range("CP3").Value Then
strDate = "GMT Time (" & Range("CO3") & ")"
Else
If Range("CO3").Value < Range("CP3").Value Then
strDate = "GMT Time (" & Range("CO3") & " - " & Range("CP3") & ")"
End If
End If
Where "Drag" is a variable that signifies the total number of cells in the column; ie the first and last dates. It compares the values and saves the results as a string. The problem is that when the string is saved it saves the date in mm/dd/yyyy hh/mm/ss. How can i separate the date from the time so I can have the title of my x axis appear as i need them?
View 3 Replies
View Related
Apr 28, 2009
I have a spreadsheet with two columns - column A contains dates and column B has the corresponding data (always numbers). The data is not uniform (i.e there may be lots of entries in any given day and none over the next few). The data is always sorted in chronological order.
I want to set up a summary table to show the min, mean, median, max for each week. I have set up an array to calculate the mean, but I am having trouble working out a good way of gettting the others short of having a set of columns that manually define each cell...for instance =min(b3:b27) or =min(b28:b30).
View 2 Replies
View Related
Sep 30, 2009
I have a table of dates and values and would very much like to know a formula for returning the min and mean values for each column within a specified time (date) period.
Table is as follows
Date value(a) Value (b) ....
1/1/09 10 8
2/1/09 8 6
3/1/09 5 2
View 4 Replies
View Related
Aug 9, 2013
In excel 2007 i have three sheets.
In sheet1 : Cell : "D3" : I have find out & show maximum date with two criteria (i.e. code & series) from all sheets.
Also in cell : "E3 : I have find out maximum date with two criteria from particular one sheet only.
I have mentioned comments in attach file.
In sheet name 1112 & 1213 : I have a lot of data approx 40000.
Column A : Invoice no
Column B : Invoice date
Column C : Code
Column D : oano
Column E : Name
Column F : city
Column G : distric
Column H : Series
In yellow highlighted cell i required formula.
View 5 Replies
View Related
Mar 21, 2012
So I have a workbook that has a range of dates in one column and a corresponding range of times in the column next to it. On a separate sheet I want to return the lowest time&date, and then the maximum time&date. I've tried a few different things but nothing is working.I tried this:
Code:
=MIN(B:B+D:D)
This didn't work for some reason. It did return a time, but it wasn't the lowest. The maximum wasn't even close.
Previously I was just doing the min/max of the date in one cell and then the min/max of the time in a different one, but obviously that didn't work since the time wasn't going off of the maximum date, so it was just showing the lowest time period.
View 9 Replies
View Related
Oct 23, 2008
I was hoping that my formula would give me the count number based on the Maximum time (latest time) and the Name field...My result is a 0 instead of 62 (the correct answer).
=SUM((Download!$H$2:$H$10=A4)*(Download!$D$2:$D$10=MAX(IF(Download!$H$2:$H$10=$A4,Download!$D$2:$D$1 0)))*Download!$I$2:$I$10)
Would a Index/Match/MAX function be more efficient?
View 4 Replies
View Related
May 15, 2009
I have two columns of data. The first column is the 'type' and the second column is the 'value'. I need to find the maximum 'value' for each individual 'type'
The 'types' are not necessarily next to each other and the data cannot be sorted to do so.
Example:
type value
A 15
B 6
A 21
C 7
B 13
I need to be able to say the MAX for 'A' is 21, the MAX for 'B' is 13 and the MAX for 'C' is 7.
View 2 Replies
View Related
May 16, 2009
i have a table same this in 5000 rows and 10 columns that are years from 1998 to 2007. ISO2 is two digit names of countries.
ISO2 D1998 D1999 D2000 D2001 D2002 D2003 D2004 D2005 D2006 D2007
CL 135 147 180 192 48 629 494 137 135 359
CL 132 145 177 190 45 623 491 134 132 356
CL 129 141 174 186 42 617 488 131 129 353
EC 126 139 171 184 39 611 485 128 126 350
EC 123 135 168 180 36 605 482 125 123 347
EC 120 133 165 178 33 599 479 122 120 344
KH 117 129 162 174 30 593 476 119 117 341
KH 114 127 159 172 27 587 473 116 114 338
KH 111 123 156 168 24 581 470 113 111 335
PH 108 121 153 166 21 575 467 110 108 332
PH 105 117 150 162 18 569 464 107 105 329
PH 102 115 147 160 15 563 461 104 102 326
PH 99 111 144 156 12 557 458 101 99 323
VE 96 109 141 154 9 551 455 98 96 320
i want a macro to advance filter column A and make a unique list of it and then find the maximum value of each country in column A in 10 years. for example final table for country "CL" must be same this
ISO2 D1998 D1999 D2000 D2001 D2002 D2003 D2004 D2005 D2006 D2007
CL 135 147 180 192 629 629 494 137 135 359
View 3 Replies
View Related
Aug 29, 2007
Anyone know the maximum lenght/size limitations for a macro in excel?
hit this limitation a couple times, and it serves to be quite a annoynace... end up having to link them together with a Application.Run command.
Would be good information to have if anyone knows...
my guess is 2000 lines, but havnt tested, and am not sure if it is limited to lines necessarily... could be size too,
View 9 Replies
View Related
