Is it possible to count the number of indexes in an integer array that have a value > 0 without looping through the array? I found something using Filter, but that only appears to work on string arrays.
View 2 RepliesI am using arrays to try and move select data in a row between workbooks. I read in the data to an array, I set the value of the range I want to write to to the array. That part works well.
However, the range I am trying to write to is part of an Excel Table (ListObject). There are formulas in that table that I need to keep as formulas. I know (well, believe) that if I populated the data into the array manually and skipped over the formula cells it would not change those cells at all.
How can I (after populating the entire array with data) go back and say "The data at index 3 is really nothing, so exclude it."
I've tried setting the value to Null, Empty, and vbNullString. My array is currently typed as a Variant.
Example:
myArray = Sheet1.Range("A1:A10").Value
myArray(3) = ????????
Sheet2.Range("A1:J1").Value = Application.Transpose(myArray)
wondering is there a VBA equivalent of --() in excel that turns trues and falses to 1's and 0's?
View 14 Replies View RelatedI have defined array say like this:
Dim myarray (1 to 5, 1 to 2)
Is possible to define something like this?
myarray (x, 1) as string
myarray (x, 2) as integer
x is anything between 1 to 5 .
I have an array of data with both positive and negative numbers. I want to locate the largest number (farthest from zero) regardless of sign. But I will need to retain the sign because I will be dividing every number in the array by that number to normalize the array to values between 1 and -1?
View 12 Replies View RelatedI need to count, not list, all of the factors of an integer. For instance the number 12 has the following, 1 2 3 4 6 12, so the solution to the NoF(12)=6.
View 9 Replies View RelatedI have a userform that as lots of text boxes on.
The text boxes are called "pos1" & "skill1" the number ranges up to 18.
I am trying to put the contence of the boxes on a worksheet using a loop so the 1 will change to 2 and so on.
How do I go about seting the loop up so it changes the name of the control each time.
I have stored the contents of a worksheet table to an array, thus:
Code:
Public TeamArray() As Variant
Sub StoreTeamsToArray()
Dim NoOfTeams, NoOfColumns As Integer
[Code]....
The first column of the array contains team names, the second represents a colour that will be used for the background of a cell, the third represents the colour that will be used for the font of a cell.
What I now want to do is cycle through the first column of the array to see if the value contained within it matches the value contained in another variable ("Team"), then store the corresponding values from the second and third columns to other variable names ("BackgroundColour" and "FontColour".
I have a big macro that runs whenever there is a change made. I'm not gonna link it all because I don't think that would be useful... This macro does:
1. Disables Events.
2. Removes Protection
3.Calls some macros that check a few values and change a few cells.
4. Activates events.
5. Hides or shows ranges of cells depending on the results of the called macros.
6. Reactivates protection.
As well as the cells the called macro changes, there is a column of True/False results stretching from AE16 to AE491 with several blanks in the list as well. (All of this is decided upon a different macro that isn't linked with the change.) I want a loop that will read the True/False column and if it finds a false, make 8 buttons invisible.
I tried putting this code between Step 5 and 6 of the macro.
Code:
Dim J As Integer
J = 16
Do
[Code].....
This isn't working at all... I was thinking if there was gonna be an issue then it would be the opposite where it stops the buttons appearing all together but even when there are falses and I am changing things it doesn't seem to make a difference.
I am trying to write code that will loop through one sheet, fill an array and then use that array to populate cells in another sheet. I have a sheet with group names in column A, then in column B through Column IV there are the members of that group. There may be no members in a group or every cell through Column IV could contain data. I need to loop through each row, one at a time, see if a cell contains data, if it does, put it in the array, if it's empty then the array is done for that row. I then need it to go to another sheet and dump that data, however, now it needs to drop it in five consecutive cells in a row, then drop to the next row for the next five cells, etc.
Once this is done it then goes back to the first sheet, drops to the next row nad starts over.
I know how to loop through the rows, I just am not sure how to fill an array using variables for rows and columns. i.e., I can't say fill array with b1 to b30 instead I have to say fill array with intRow,intFirstColumn through intRow, intLastcolumn.
I wanted to do a multiple return vlookup so I used an Index formula. I have account names and am trying to vlookup contacts associated with those accounts (4 max). So I have a list of Accounts all with 3 blank rows in between them.
How do I loop an array formula? So far I have the code..
[Code] .....
This finds the 4 contacts associated with the first account in C5 which I named the cell "myVar". I now want it to find the contacts associated with the accounts in C9, C13, C17 and so on until the first empty cell.
there just want to ask about on how to count records using array attach here is my sample file.!
View 6 Replies View RelatedI was wondering if there is a way to have the elements of an array counted. I have something like this:
View 6 Replies View Relatedi have this worksheet to fill out, i will attach it if anyone wants to take a look at the whole thing.. but, basically, i need a command where it will look at gender which is in column c, then age which is in column d, then gpa to count it, which is in column e, the gpa its looking for is >=3.0... and that is only one criteria.. an example is g=m, a=15 or above, gpa = >=3.0.. i also think i messed up on another part.. ...
View 11 Replies View RelatedI need a formula to count the total number words occurred in an array. It has to separate the "," and count.
Here is a scenario:
1.Apple
2.Banana
3.Orange
4.Mango
5.Banana
6.Mango
7.Orange
8.Apple, Banana
9.Banana, Mango
10.Mango, Apple
11.Banana
I am working with imported survey data - all the questions are sorted by columns with each respondent's answer in rows. One open ended question on the survey asks people in which states they have lived, so each response cell can contain multiple text values if they have lived in multiple states (and they often respond in full sentences - as in, "we lived in Texas for three years then moved to Arizona"). How do I search all the rows in that whole answer column to count all the mentions of each state? (To complicate matters, the search cannot be case sensitive - although I guess I could do a find and replace to fix the variance).
View 14 Replies View RelatedI am trying to use an array formula based on column A of sheet 1. Also using column A of sheet 1 last row ref for Sheet2 Array formula.
I have attached the document in here "Sample.xlsm"
When I run the macro for the dates, all I got is just "Date". I just want unique dates using the array formula which work without using VBA but the column A in Sheet1 is a dynamic sheet.
I am trying to use an SUM array to count occurances of a given criteria.
Here is an example of one that works for me.
I have a code below. Whenever there's no file in this directory C:Summary_Reports_from_VBA , an error will surface that says "Runtime error '9'.
Subscript out of range". And once the debug option is selected, it point to this statement => ReDim Preserve s(UBound(s) - 1) .
Sub Example() ...
I have a workbook with several sheets, some are permanent and then there are certain sheets whose quantity varies depending on how many sub-contractors we use on a given job. The workbook starts as a template and there are 10 sub-contractor sheets to start with, if we only have 5 subs then the last five sub sheets are deleted. The sheets start out with the tabs named "Sub 1" "Sub 2" etc. but after the book is set up the sheet tab names are changed to the sub name. I've included some partial code below, with the goal being to run code on the sub-contractor sheets no matter the tab name or how many there are.
So the workbook has 5 "non-sub" related sheets, I was thinking that if I could do a sheet count -5, and get that number into the array it would accomplish what I want to do. And if someone added a new sheet it would still be processed with the others.
Public Sub SubConEstNum()
On Error Resume Next
Dim S As Worksheet, names As Variant, i As Integer
names = Array(6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
For i = LBound(names) To UBound(names)
Set S = Sheets(names(i))
S.Range("T3").Value = S.Range("S3").Value
S.Range("T1").Value = S.Range("S1").Value
S.Range("T2").Value = Sheets("Bill").Range("K1").Value
Next i
End Sub
Suppose I have the following data in column A from A1 to A12
Pass
Pass
Pass
Pass
Exceed
Fail
Fail
Exceed
Pass
Pass
Fail
Exceed
I want two formulas one to count the how many times the following pattern of data have been repeated in the range:
1- Exceed after Pass
2- Exceed before pass
array variables:
How can I count the number of elements of a particular dimension of an array variable that have actually been filled with items/values?
For example, the array variable in this procedure has two dimensions. Dimension 1 has three elements, and dimension 2 has 5 elements. I then add values to some, but not all the defined elements of dimensions. How can I count, for each dimension, the number of elements that have values rather than are empty?
Option Base 1
Sub test()
Dim ExampleArray(3, 5)
ExampleArray(1, 1) = 3
ExampleArray(1, 2) = 4
ExampleArray(1, 3) = 2
ExampleArray(1, 4) = 6
ExampleArray(2, 1) = 5
ExampleArray(2, 2) = 9
End Sub
I have used macro to ftped a couple of files to my desktop and save them in a folder but i have problems performing the following.
1) Count the number of files in this directory "C:Summary_Reports_from_VBA". Note that the number of files is not fixed every time.
2) Rename each files to .txt files. (intially files do not have any extension and we do not know the name of the file until it has been ftped over but all files will end with a term "sorts" eg renaming of "xxxsorts" to "xxxsorts.txt")
3) Save each renamed files in an Array such that i can "opentext" each file in an excel worksheet. So if there's multiple files, there will be multiple worksheets.
I have this array formula
=IF(ROWS(A$11:A13)1,IF(MSB!$A13"",SMALL(ROW(Table1[APP DATE])-ROW(MSB!$A$11)+1,ROWS(A$11:A13)),""))))
the problem is that when both if statements are true i want it to get the row number, this is because table1 has blank rows (can not be avoided as the data is linked from a closed workbook)
i can see this works up until it meets the first blank row and i get #value error.
on table1 data exists on row 1,2,5 and 8 so my problem is getting the small function k to report these numbers?
I need to modify the underneath Count Array Formula to count unique values based on multiple conditions. I can get the formulas to work with NUMERIC values in Column A in the N1 & N2 tabs. However, I cannot get the formula to work when column A contains TEXT values in the TX1 & TX2 tabs.
I've attached the XL file for your review of the project.
=SUM(IF(FREQUENCY(IF(('TX1'!$B$2:$B$15=B2)*('TX1'!$C$2:$C$15=C2)*('TX1'!$D$2:$D$15=D2),MATCH('TX1'!$A$2:$A$15,'TX1'!$A$2:$A$15,0)),MATCH('TX1'!$A$2:$A$15,'TX1'!$A$2:$A$15,0))>0,1))
I received a reply somewhere
Dim i As Integer
is better used as
Dim i As Long.
Integers get cast to long in the OS, and then back to Integers when passed nback, so it is a unnecessary overhead.
but didn't want to hi-jack that thread
QUESTION:
why would we still use "integer" then?
I tested with
Sub testInteger()
Dim starttime As Double
starttime = Timer
Dim i As Integer
For i = 1 To 32766
Dim j As Integer
For j = 1 To 32766
Next j
Next i
I have been working on a basic input sheet for progress reporting at work to standardize the information and acheive a half decent automated report.
I am have trouble validating the textbox to only allow an integer to be entered in the box. On result of text being entered on add, a msgbox should prompt the user to enter only text.
How might I do this?
Private Sub CommandButton6_Click()
Dim iRow As Long
Dim ws As Worksheet
how can i sum integer like
1548=1+5+4+8=1+7=8
I have a problem with vlookup. Here is an example:
A1= 1.3
Then my data array would be something like this
C D
1 a
2 b
3 c
4 d
My problem is that the reference for the look up is a non-integer, but the data in the lookup is. How can I make this work?
Below is a snapshot of data in a column. I need a way to extract the number, may be a whole, may be decimal, and leave behind the text description. Result to be put into a new column:
Hernia Umbilical 553.1
Perirectal Abscess 566
Diverticulitis 577.0
553.21 Hernia Vental/Incisional
Abdominal Pain RUQ789.01
Abdominal Pain RLQ789.03
217: Benign Breast mass
541-appendicitis
Chronic 575.11 Cholecystitis
SBO560.81
786.05SOB
226/ Thyroid neoplasm
The idea here is that the integer could be integrated in anyway imaginable with the associated text. I don't need the text. The end result must display this in a new column:
553.1
566
577.0
553.21
789.01
789.03
217
541
575.11
560.81
786.05
226