i've got a sample database (attached) with a userform for inputting of data. What i want it to do is automatically generate the next number and add it to textbox "our ref" on the userform. the number is in Col C. This is the code i've tried using the code highlighted in red which doesnt work.
View 12 RepliesCode:
Private Sub cmdSearchButton_Click()
Dim txtbox As String 'stores lookup value
Dim x As Variant 'value for wwid txt box
Dim ForeName As String
Dim SurName As String
Dim wwid As Variant
Dim iPosition As Integer
[Code] .......
Here is my code, it does a vlookup and if the persons name is not found it will split the text entered into forename and surname but when i try and add
Code:
frmAdd.txtForename.Text = "&ForeName &"
frmAdd.txtSurname.Text = "&SureName &"
It actually displays &ForeName & in the text box of the next from rather than what ForeName is..
eg. John Smith -> search button -> user not found msg -> user wants to add user -> string is split into forename and surname -> forename = John , surname = Smith -> display this in the second form.
What code should i be using to do this, i thought that &ForeName & would work.
I am creating a userform in excel 2010 (64 bit) that is a 14 question survey. I am trying to get a simple datepicker to appear when user clicks or tabs into a designated textbox which I have named TextBoxDate. I would then like the user to select a date and for that date to appear in the dd/mm/yyyy format in the textbox. Should be easy, right?
I have tried downloading several datepickers, most from the open source thread Non-activex Datepicker Calendar Control on this site. But I am unable to successfully tweak the code to get the datepicker to work how I want. I also am not looking for a datepicker that is complex with max and min date ranges etc.
Convert carton data from unreadable form to text box form (human readable form). I use this code:
=MID(n_combo,11,5)&"-"&MID(n_combo,16,4)
But it works if i close the user form and open it.
I am trying to show the number of years in the userform textbox based from today's date and into the date the eqpt was installed. I stuck with the below code.
Code:
Private Sub DTPicker1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text "" Then
TextBox2.Text = Year(DTPicker1.Value) - Year(TextBox1.Text)
End If
End Sub
Where in textbox1 I have this code that activates on userform initialize
Code:
If Me.TextBox1.Value = "" Then
Me.TextBox1.Value = Format(Date, "dd.mm.yyyy")
End If
End Sub
Textbox2 is where I want the number of years to appear .
I want to require the user of my Excel Userform to input a number greater than 100. How do I do that?
View 4 Replies View RelatedI am using a formula =SUMIF(B:B,B1,C:C) in an effort to return the total of those cells in column C where the value of B1 remains the same in column B. (did that make sense?). I've used a similar formula previously but on this occasion it returns an incorrect total.
View 2 Replies View RelatedI have a form that has three fields (1. Comments (TEXT), 2. Legacy_Comments (TEXT), 3, Comment date (DATE))
Now my users need to keep adding comments to the comment text box, and when they do it automatically adds the date they entered the comment in the Comment date box. Now my problem is that since they keep adding comments to the comment box, I need to keep track of these comments in the Legacy_Comments (Text box).
For example, the First time a user enters a comment into the (1) comment text box it auto populates the date in the comment date box, and then adds the comment and date to the Legacy_Comment box. the end result is (comment,4/3/2014 now lets say a user needs to add a comment to the comments box tomorrow - I want the legacy_Comment box to then read (comment, 4/3/2014; comment2, 4/4/2014, ...., comment(n),date(n)) OR it can be vice-verse, because I just need to keep track of the comments, I am not worried if the new comments are before or after older (yesterdays / the day before yesterdays comments)
How can I write a VBA code that will always add the new comment to the legacy_comment field, without deleting the comments that were entered previously?
Code:
If isnull(me.comment.value) Then
Exit Sub
ElseIf me.comment.value = true Then
me.comment_date.value = date
me.legacy_comment.value = me.comment.value & "," & me.comment_date.value & ";"
me.legacy_comment.value = me.legacy_comment.value & "," & me.comment_date.value & ";"
It adds the comment only the first time, but it does not concatenate the string from yesterday to the string to today. I do not care which order the comments are, meaning if I added a comment today it can be before OR after the comment from yesterday.
I've been using the following code to conditionally format userform textboxes based on a specific value (in this case 2490):
[Code] ........
What I'm looking to do now is amend this so rather than use a specific value, to use the value in a specific textbox on the same userform.
I need a userform textbox event that fires after I tab or click out of the textbox. Going by the list of options:Beforedragover, BeforeDroporPaste, Change, DblClick, DropButtonClick, Error, Keydown, Keypress, keyup, mousedown, mousemove, mouseup.
I can't figure out which one will do what I want. The change event happens instantaneously which doesn't work. I need to fire off the event when my focus leaves the textbox.
I need the value of active x control textbox on my worksheet 1, to be copied to a textbox in my userform, that pops up from that sheet....
And I want it to display after the textbox on my worksheet has been updated and the comman button for the userform is clicked...
I tried looking for everywhere, but i still cant seem to find the solution.. I have an Active X textbox on a worksheet, and I need it's value to show up on a textbox on my userform, that shows up through a command button on that worksheet. I'm fairly new to vba.
View 1 Replies View RelatedI have a userform that I'm using to add data to a worksheet, with the following
Private Sub CommandButton1_Click()
Dim OutSH As Worksheet
Set OutSH = Sheets("Sheet1")
OutSH.Cells(nextrow2, 1).Value = Surname.Value
OutSH.cells(nextrow2,2).value = ID.value
OutSH.cells(nextrow2,3).value = Date.value
......
I need to ensure that duplicate entries are not made for the same person on the same date. The ID is unique to each person.
IF statement that can check for a duplicate and then come up with a dialouge box with some custom text, and then exiting the sub?
I am trying to copy data from a Textbox in a Userform to a Textbox in another Userform. Is it possible?
In Userform1 I have a button from which I can open Userform2 keeping the Userform1 opened. When closing Userform2 I want to copy the data from TextBox2 in Userform2 to TextBox1 in Userform1.
I was trying to guess the code... but it is not working...:
UserForms("Userform1").TextBox1.Value = UserForms("Userform2").TextBox2.Value
I Have a Userform which Have My Data i Print User Form Using Print Command Button And My Code Is
[Code] ......
But Its Printout Whole Form I only Wants To Print contents of Text Box's Or only Text From Userform TextBox. How To Print out Only Content of User Form Not The Whole Form ...
Basically I want to calculate each team's home winning/drawing/losing streak. Here is a sample of the table (I've simplified it a bit and added fictional results):
(See Attached)
So, I want a formula that can tell me a given team's (e.g. Arsenal's) latest result, and how many previous consecutive results of that kind there have been. For example, for Arsenal, the result would be something like "W2" (i.e. Won the last two games). At the moment, the best I can do is to get the TOTAL NUMBER of a given team's latest result using this formula:
=LOOKUP("ARS",B:B,C:C)&SUMPRODUCT(--(B1:B13="ARS")*(C1:C13=LOOKUP("ARS",B:B,C:C)))
(Which also returns "W2").
I have excel sheets with 71936 rows of data collected ~30 times a second for 40 minutes during and driving simulator drive (for 51 participants! all in separate worksheets). The output I get from the simulator includes speed, lane position etc. I've been averaging the data out into minute blocks for most variables, but what I really need to know is: if they exit the "lane" for more than 3 seconds, and if so, how many times they exit the lane in each minute.
Column A is the minute, column B is their lane position. Lane position ranges from -540 to 540. The middle of the left hand lane is -180 (the left hand lane ranges from -360 to 0 - we drive on the left in Australia). If they exit the left hand side of the lane, the lane position value will be between -360 and-540, and if they exit the right hand side the lane position value is 0 or greater.
A formula in a new column that can give a "1" each time they exit the lane for more than 3 seconds would be great, then I think I can make it sum how many times they do it in each minute.
I've got a problem involving several Dim'd Variables needing to be added up, they're all Dim'd as Variants though as they can be either strings or numbers at any time.
I need a formula (VBA) to add them up (to add their actual numeric values - not just a "1" if they contain a number) and ignore them all together if they contain string values.
I have an excel spreadsheet to record employee holiday and sickness figures.
It is set on as a grid e.g. column A stores all the dates and then employee names are used as column header.
One of the triggers I need to use is where, an employee has been absent 28 consecutive days. When an employee is absent I simply enter 'ABSENT' against there name.
Countif will count the number of time absent appears in the column however I need it to only recognise it if it is only 28 days in a row.
In cells v43:v52 I have data which will change often the data is always either a 1,-1 or a 0, I need a way to count from the bottom up and ignore anything that is not part of the chain. It can also contain 0 in rows that are not populated yet but the 0s will always be on the bottom and never in the middle or top.
I.E. in 3 weeks it could be
1
1
1
0
0
0
0
0
0
0
0
0
I would want the formula to spit out 3 because it was 1 3 times in a row..
Now say in week 5 it is
1
1
1..............................
I have a spread sheet of hourly temperatures which is broken down into year, month, day, time, and temperatures. I would like to find the top ten longest stretches of sub-zero temperatures in number of hours and the time and date in which they started and ended. I have attached a spreadsheet for your perusal..
View 3 Replies View RelatedE20 with the series of numbers in tenth, and with five numbers on one cell. Between 01-37. How do I write a formula on column R to identify any repeated numbers from E20 with E21? In the chart it shows number 10 is repeated from E21, so I place a check mark on the same row as E20 on column R.
On column S how do I write a formula to identify numbers within E20 to see if there are any consecutive numbers? On E20 there is none, on E21 there is one 10-11, and column S will let me know if there is a consecutive by placing a check mark.
In my worksheet, I have a column of ascending dates from BD7 to BD22, with BD22 being the current date. In column BN, I track whether a process is "Over" or "Under" a limit.
The values in column BN are text with either of those names.
I need to return two values in cells BO7 and BO8 respectively:
1) The number of consecutive days back from the most current day that have been "Over" the limit
2) The date going from the most current day that the first "Over" occurred
to create with the default excel functions the following calculator. I need to calculate the maximum number of positive numbers which happen in a row and the maximum number of consecutive negative numbers. For example in the following list of numbers there are a maximum of 7 consecutive positive and a maximum of 6 consecutive negative numbers:
6 000
6 360
6 742
7 146
7 196
7 628
8 086
-4 071
7 898
-4 186
8 121
8 608
-4 562
to make a formula which will calculate the maximum length of positive and negative numbers in a row? I attached this table to the post.
This always returns "B" to TextBox26.
Code:
Private Sub ComboBox1_Change()
Dim x&
With Sheets("PLAYERS")
For x = 1 To .Cells(Rows.Count, "C").End(xlUp).Row
If .Cells(x, "C").Value = Me.ComboBox1.Value Then _
Me.TextBox3.Value = .Cells(x, "D").Value
Me.TextBox26.Value = .Cells(x, "E").Value
Next x
End With
End Sub
I've got a userform which adds Textboxes automatically depending on a certain value. And the amount of Textboxes varies from 1 - 100. I add them with the line:
Set MyControl = UserForm1.Frame1.Controls.Add("forms.textbox.1", strControl, Visible)
Now my question is:
Can I add a macro to each of these textboxes automatically? A macro for the Change event I think it is.
All textboxes would have the same macro.
I kinda hoped it would be one of the following:
MyControl.OnAction = "test"
MyControl.Change = "test"
I have the code below to add a text box to a tool bar. My question is can it be a updating text box such as the forms "TextBox1_Change"? I would like it so that as the user changes the text box it runs the Loc_Box sub. Example if "H" is in the text box and the user types "1" then Loc_Box runs, or "H" is deleted it runs, is this possible?
Set TB = CommandBars("Loc Box").Controls. _
****Add(Type:=msoControlEdit)
With TB
****.OnAction = "Loc_Box"
****.Caption = "Loc Box"
****.Width = 100
End With
I'm looking at test results and would like to know how many times in a row correct answers were given before getting one incorrect. The way I have this currently set up, is if a student has the answer correct it returns a "TRUE" value, and a "FALSE" value for an incorrect answer. A typical test may have 50 questions, so I would have either "TRUE" or "FALSE" values in rows A1 through A50.
So I've been trying to figure out a formula that counts the number of times "TRUE" rows repeat 'consecutively' in a given column, in this scenario column A. The formula would need to check the current row and if "TRUE" check the row immediately after, if that row is also "TRUE" then check the row immediately after that, until it runs into a "FALSE" string, then display that total count of consecutive "TRUES" in another cell. I understand there may be duplicate results but I'm only really interested in the longest value, so duplicates can be ignored.
If it makes the formula easier, each possible result can be assigned to it's own cell. Let's assume the test has 50 questions. So if a student got all 50 questions correct the result count would be 50 in cell B50, or if they got 25 correct before the first incorrect answer, cell B25 would say 25, etc. I'm guessing I could then easily query this column for the largest value to come up with what I need at a glance.
I want to populate a textbox (output) on one userform with data from a textbox (target) on another userform.
The data in the textbox (target) is the result of calculations in the userform code and is not gathered from or saved to a cell.
I want the textbox (output) to be populated at "Userform intialize" event.
I have tried various other methods without any success.
I need to add extra text line in textbox by Toggle Button or checkbox. The problem my extra line every time I select it makes extra lines
View 5 Replies View Related