Occurrence Selector - User Filling Array
Jun 11, 2013
I am trying to make an "Occurrence Selector" for our documents, because we want to import some data from HTML files we recieve and fill in a CSV Template. The problem is, the HTML files we receive contains a lot of information, and about half of the information is usefull for us. Therefor we want to select some occurrences and not all of them.
All i want is the user to input the occurrence number in the inputbox, and then the macro simply search for "Occurrence #(firstinput)",does its job, then "Occurrence #(secondinput)",does its job again, and so on until all of the required occurences have been transplanted into the CSV file.
This is what i currently have
VB:
Dim jobtodo As Variant
Set jobtodo = Application.InputBox(Prompt:="Type in each occurences that need to be inserted in the upcomming CSV file. Please seperate them all with a COMMA (,) between them.", Title:="Occurence Selector", Default:="1,2,3,4,...", Left:=150, Top:=150, Type:=64)
MsgBox (jobtodo)
Type is 64 because i want an Array, (i guess?)
When i input anything, i get an error message stating my formula has an error.
View 2 Replies
ADVERTISEMENT
Nov 12, 2008
filling an Array then I have used in this macro?
View 3 Replies
View Related
Apr 18, 2012
Im doing an assignment for my VBA class and im in a jam.I have a form with a listbox and numerous textboxes. The user is to select a name and then the information from this name fills the corresponding boxes.
First off, my teacher is horrible, i have to learn by just reading so that's why I'm so puzzled. I have an array i made by importing/parsing a text file. I've attached the .txt file for reference. I currently want to add just the names from the array to then when the user selects the name, fill the remaining boxes with the corresponding information.
This is what I have thus far...
Code:
Dim nValues As Integer
textFile = "C:UsersMattDocumentsemployeedata.txt"
Open textFile For Input As #1
[Code]....
need it to ONLY display the name, but then display ALL names in the array. What do i need to do?
View 9 Replies
View Related
Oct 9, 2013
I have a quick question in relation to filling a range with an array.
When I use the following code:
Code:
Sub justdoit()
s = Array(1, 2, 3)
Range("A1:C1") = s
End Sub
It works fine. but when I try to populate the range in rows instead of colums, the array value stays as the first value.
Code:
Sub justdoit()
s = Array(1, 2, 3)
Range("A1:A3") = s
End Sub
I'm experimenting with arrays and would like to get better at them, but this has me stumped for the moment. How to get the values to work going down, like they do going across.
The above code is a small sample of data, I am wating to replicate with using over 80K lines and cell by cell is too slow.
View 2 Replies
View Related
Dec 3, 2009
Filling all elements of a two dimensional array?. I know that I could write something like:
View 3 Replies
View Related
Mar 29, 2013
I am trying to use the below code to fill a combobox with unique values. It works great except I can't figure out a way to replace BLOCK 1 with BLOCK 2. I want to use BLOCK 2 to populate mgNames so that only specific values are filled into mgNames. Currently BLOCK 1 just fills mgNames with an entire range without any conditions. how I can get BLOCK 2 to work in the way i'm intending it to?
Code:
Sub findNames()
Dim mgNames As Variant
Dim myCollection As New Collection
[Code]....
View 4 Replies
View Related
Dec 7, 2006
I am trying to declare a dynamic sized array. When the code runs, I get 2 errors:
Compile error, array already dimensioned (on the redim line)
when I remove the redim statement I get
error 9 - subscript out of range
I need to create this code to work in excel as well as an application running VBScript.
Dim myarray()
myarray(1) = "a"
myarray(2) = "b"
'etc...
Redim preserve myarray(UBound(myarray))
View 5 Replies
View Related
Feb 26, 2014
I am trying to fill an array with only a few values within a loop (when XspacingA is 0.5, add the value of the Line to the array) and keep getting the error "Subscript out of range".
View 3 Replies
View Related
Oct 2, 2008
I have a class module with several private variables, including one that is an array of a user-defined type. I am trying to set the values of a single element of this array with "Property Let ..." from a string array:
View 4 Replies
View Related
Apr 16, 2014
I have a list of equipment and want to select from three criteria to obtain the result; indoor1, Type and Power (all drop down) I have used index and match to get results in various cells but can't get a correct result for Outdoor and Indoor2, Indoor3, and Indoor4 (all coloured red).
Spreadsheet attached.
View 14 Replies
View Related
Aug 22, 2013
I have a database of at least 350 products, and would like to know how I can use a form button, when clicked it will randomly display a picture of one of the list of products. I want to use this method for a mystery prize draw.
View 14 Replies
View Related
Mar 9, 2012
I am trying to limit the user from selecting only what has been selected from the first selector. The selection are based on a drop down (data Validation list)
Excel 2007BCDEFGHIJ1LOOKUP Table2Should only allow from 3only what availble from First SelectorBus/Cntry Level 2Bus/Cntry Level 14ALLALL5First SelectorSecond SelectorAPACALL6TerritoryAPACAPACAPAC Regional Office7APACAsia Licensees8APACAustralia9APACChina10APACHong
[Code] .........
View 5 Replies
View Related
Dec 24, 2013
I'm getting an export from a CDR. This export contains the date and times people log on and off from a queue. For logging in they dial 511, for logging out they dial 512. They get a voice prompt and type their password. I need to know how much time they daily spend in this queue
At first this looks pretty easy. I just make a sum of all the times they called to 511, then a sum of all time they called to 512 and finally I substract those values and I end up with the correct time spend in the queue.
The problem comes when they call multiple times to 512 without actually logging off. For example, they type the wrong password or simply hang up.
Result is this in the CDR
FROM TO DATE TIME
101 511 23/12 08:34
101 512 23/12 11:58
101 511 23/12 12:34
101 512 23/12 14:45
101 512 23/12 14:47
101 512 23/12 15:00
The actual time spend in the queue is 5 hours and 50 minutes. But Excel calculates this as 35 hours and 22 minutes, because it counts the 512 values no matter what.
How can I make sure that Excel only calculates the values of they are either the last value in the row OR if they are preceded by 511?
View 2 Replies
View Related
Jun 19, 2013
I have a form created using the instructions here [URL] ..... however I only have two boxes that I need completing. What I need to do is combine both inputs from the form into one cell. The code below shows this working but I am unable to get the array to work.
Essentially I need to get the array to drop in the old number and new number into the new cell so it looks something like this:
Old Number - 1234
New Number - 6543
Value in cell 1234 6543
The code I am using is set out below:
VB:
Private Sub submitmeterswap_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim myarray As Variant
Set ws = Worksheets("x")
[Code]....
View 4 Replies
View Related
Oct 1, 2009
I have a function in VBA of the type. Function MyFunc(Indx As Integer, k As Long, Rho As Range, A As Range) As Variant .... End Function
which is called as a user-defined function from within the Excel worksheet. When called with the last two arguments being a range (i.e. Result = MyFunc(1,98,A1:A2, B1:B2)) it works fine. However, when I try to directly use an array constant instead of a range (i.e. Result = MyFunc(1,98,{10,11}, {20,30}), it returns a #VALUE error.
I thought I could fix it by redefining the last two arguments as arrays of type double, but this didn't work either (i.e. Function MyFunc(Indx As Integer, k As Long, Rho() As Double, A() As Double) As Variant .... End Function ).
View 3 Replies
View Related
Feb 22, 2007
This is what i want to do: SEE ATTACHEMENT
•Write codes to pop up an InputBox to ask the user for a customer name.
•The program uses the user’s input to check whether the name is on the list. If it is, display an msgbox saying that the customer name is on the list, and the corresponding cell will be indicated in boldface and in blue. Otherwise, an msgbox will be displayed saying that the customer name is not on the list.
Dim the customer list as an array (string var. type) and Dim Found as Boolean. You will need the If-Then construction and For-Next or Do-While/Until loop too). Create a button to run and another to restore the formatting to its original style.
This is what i did so far and still having problems with it:
Option Explicit
Sub customers()
Dim Arr()
Dim R As Integer
Dim C As Integer
Dim ReturnColumn As Boolean
View 6 Replies
View Related
Jun 18, 2007
I have dates & times in column A1:A20. In B1:B20 I have the corresponding temperatures for each date. I have set up the following dynamic ranges to refer to these ranges.
DateRange refers to A1:A20
TempRange refers to B1:B20
I have also made a user defined function that will determine if a date/time is between two times. Eg., If 21/05/06 07:30 is between "07:00" and "17:00". This function isn't concerned with the date, just if the time falls between the start and end times.
Function BetweenTimes(dDate As String, dStartTime As String, dEndTime As String) As Boolean
dDate = CDate(dDate)
dStartTime = CDate(dStartTime)
dEndTime = CDate(dEndTime)
BetweenTimes = False
'If the end time is before the start time, see if date/time falls between start and end..........
View 9 Replies
View Related
Feb 22, 2013
I am trying to find a value in an array based on partial input from a user.
The user will enter the last four digits of a number.
Then the formula should find the number in a list and return that complete number
I will explain using example.
Here is the list of numbers (array):
3003280197
3003283233
3003625456
User input= 3233
formula output = 3003283233
View 3 Replies
View Related
Nov 20, 2008
I'm trying to create a dynamic array so that when a user enters the first sheet name via an input box, excel will know to select the other sheets with ending (2), (3), (4) etc.
Currently this code works only if there are 4 sheets present (as I set this way), anything lower/higher is out of range.
How do I make it so that it will select sheets if there are less than 4 sheets present?
I tried nesting, but I pretty sure this array needs redimming or something. Is ubound a better option?
View 5 Replies
View Related
Jun 27, 2013
I have the below VBA code associated with a sheet called "Select View". When the workbook opens there is another code that displays only "Select View", all the other sheets are hidden. In "Select View" there is a data validation list. Based on the selection the user gets to see only certain sheets. For example, if the user selects "Region 1" they see only the sheets "Region 1", "Panama City" and "Pensacola".
As you can see some of the names in the "Target.Value" are the same as sheets in an array. The ones that do are lead schedules, that is information from other sheets in an array roll into it. That is values from "Pensacola" and "Panama City" flow into "Region 1", the lead sheet.
What I am trying to do is finish the code where based on the "Target.Value" selected it automatically takes the user to the lead sheet. For example, when the user selects "Region 1" in the data validation it takes the user directly to the sheet "Region 1". The user of course can also see the other sheets in the array, that is "Pensacola" and "Panama City" and can manually select the tab to view or go into one of the later
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Not Application.Intersect(Range("B10"), Target) Is Nothing Then
For Each sh In Sheets(Array("Panama City", "Pensacola", "Region 1"))
sh.Visible = Target.Value = "Region 1"
Next sh
[Code]....
View 6 Replies
View Related
Apr 17, 2009
the task for the code below is to search through rows in array and check if there's no "text" in it like user inputed in box. But it always shows that there's no such email,i can't figure out the mistake, Maybe the problem is in the type the InputBox returns? But i've tried entering type := 2 (text),dunno what else i can do...I've also tried using p = InputBox("Please,eneter email!").
View 2 Replies
View Related
Oct 14, 2006
I would like to lookup the last occurence of a particular cell value in a worksheet and use the cell value in the column immediately adjacent to this one in a calculation.
For example, The text "Run #" occurs several times in a sheet with a numerical value in the next column over. I would like to use the last occurence - or as far as that goes, the largest occurence of the numerical value. Unfortunately, there is additional data in between the "Run #" occurences, so a simple max() for the column will not work.
View 9 Replies
View Related
Jan 9, 2007
I am trying to extract the last occurence of ppp (4th column). So as long as 4th column is "ppp", i would want to extract the row wher the the last "ppp" occurence start and display in sheet2 "108-Jan-07vcdppp4". If data in 4th column is detected to be "ppp1", it would also extract the row wher the last "ppp1" occurence start and display in sheet2.
Note that the number of ocurrence is random and do not follow specific pattern. Pls see the attached for the example.
View 9 Replies
View Related
Jul 11, 2012
I have an excel file with multiple sheets. I want my HR team to update that file, but one user shouldnt see the entries of other users. I want to make a consolidated file out of three files. This excel template is for salary input.
View 3 Replies
View Related
Feb 9, 2010
I have a user form that has a combo box "City" two text boxes one called "Flight" and the other "Date". What I'm trying to do is to prevent the user from saving the data input from the user form if any of those three fields is left blank. The code that I have so far checks all of the required fields, if any are left blank a message notifys which field(s) is left blank and return the focus back to that field. But the rest of code also fires.
What I really need is either to stop the code if any fields are blank and return the focus back to the blank field, the user completes the field(s) and clicks the save again, or better yet, pause the code until all the required fields are completed and then complete the save. (There is actually another 200+ lines of code in this sub, but I deleted it to keep the post a little shorter.)
View 2 Replies
View Related
Jun 16, 2006
find attached zip file . if you open the file then you can understand the problem.
I need to change cells color and text color as per user choice in Password protected sheet : (user is useing excl2000)
Kindly open attahced file i putted the note inside the file.
View 3 Replies
View Related
Feb 17, 2010
I am trying to check a user input to see if the user has entered the date correctly. I am using the code below but it keeps giving me a "Type Mismatch" error.
View 2 Replies
View Related
Feb 20, 2014
I have two sheets:
Sheet 1
Col A
A
B
C
D
Sheet 2
Col ACol B
AXX
BYY
AXX
AZ
DD
DD
I want to count the number of unique occurance of value in Col B in Sheet 2 as per value in Col A in sheet 1 and Sheet2.
My output result should be like following:
Result
Col ACount of col B value in Sheet 2
A2
B1
C 0
D1
View 3 Replies
View Related
May 26, 2014
I need to find out last occurrence of price (Last Date of Occurrence). Column A contains Date; Column B contains Highest Price of Equity Stock in that date. Reference price (Price we want to look up) is calculated in Cell E1, Cell E2 contains start of evaluation period (date), Cell E3 contains end of evaluation period (date). I want to find out the date on which "last" occurrence of Reference price in Column B "during the evaluation period" was found.
I have tried using array formula
{=MATCH(E1,IF(A2:A21>=E2,IF(A2:A21=E2,IF(A2:A21
View 5 Replies
View Related
Jun 13, 2002
I am trying to find a way to return an second answer for a second occurance using a VLOOKUP function. (maybe it can be done with something else?)
ex. range= A1:C3,
A1 = 40CA B1 = 30R2 C1 = TRUCK
A2 = 40CB B2 = 30A1 C2 = CAR
A3 = 40CA C2 = 30B3 C3 = TRAILER
VLOOKUP("40CA",A1:C3,3,FALSE) Returns "TRUCK"
How can I get a formula like this to return "TRAILER" the
second occurance of "40CA"?
View 9 Replies
View Related
