Inputbox Integer Verification
Feb 21, 2013
In the following code snippet I have worked out a way to verify that the user inputs an Integer and then prompts downstream if an improper value was entered. The user is prompted for a corrected reponse and loops until they get it right. The initial Cancel at the first prompt was causing issues until i saw poster: titarelli use StrPtr(). Except for subsequent cancels, the code works but it is clunky at best. How to tighten this up?
VB:
Dim Quantity As Variant
Dim CorrectedQuantity As Variant
Dim j As Integer
j = 194
Quantity = 0
CorrectedQuantity = 0
[Code] ......
View 2 Replies
ADVERTISEMENT
Jun 3, 2008
I have a VBA userform with various textbox fields like 'Name' and 'Address' and 'Amount'
I would like an input box to pop up that asks the user to 're-enter for verification'
So that they have to type the same thing twice, to protect against typos
How do I code it so the program compares the inputbox to the textbox and passes only if they are identical?
(or even, using two inputboxes instead if that would be easier)
View 13 Replies
View Related
Jun 30, 2009
I have the inputbox so i can set a string value,
When the inputbox Cancle button is pressed i want to exit sub,
If the inputbox value is nothink and ok button, I want the msgbox displayed then goto newname.
If the inputbox has a value do >>>>>>That>>>>>
View 6 Replies
View Related
Jan 6, 2014
how do I code in vba for it to wait until the user has checked the file that has been made make a few amendments and then when done one would click OK or resume for the program to carry on with the rest of the code.
View 2 Replies
View Related
Apr 6, 2008
i have followed the following criteria correctly
Create a function GetProducerRow() which takes in one String input (give it any name following the conventions) and returns an Integer.
Write a Select Case statement inside the function.It should compare the input string with the various companies listed in the Voting tables in cells F5:F9.
The Case should not use hard coded values for the names of the companies but something like Range("F5").Value.
In each case, set the return value by assigning the appropriate row number. For example, the value assigned would be 5 for "The Hershey Company" store in F5.
Remember to write Case statement for each of the 5 producers.
Add the Case Else in-case none of the producers match the input and have the return value set to 0.
Function GetProducerRow(strProducer As String) As Integer
strProducer = Range("F5")
Select Case strProducer
View 9 Replies
View Related
Jul 19, 2008
I am trying to check what was selected from a validation list range. I need to put up a message box if a certain selection is made. I will try to give some more explaination and detail.
I have a 'Labor Type' cell that has a validation list based on the 'LaborType' range that contains things like T&M, PM, Claim*, Quote, etc. When Claim* is selected, I want to put up the message box reminding the user to enter some additional information.
I have tried a few things like Worksheet_SelectionChange that I can't seem to get to work. I admit it has been a while since I have used a function like this (and never with a list).
View 9 Replies
View Related
Jun 29, 2013
I started a new collection of cards (soccer cards actually) and since I trade with some of my friends via mail, I needed something to keep track of the ones I have and the ones I don't. I made an excel spreadsheet with the numbers of the cards.
Here's my question (I don't know if its possible or not):
I there any way I can create a way to make the verification easier by, for example:
I just got card A20. I write A20 on a specific cell and, in the main table, that number changes color to indicate that I already have that card.
And in the end, a way to reverse the process so I can have the table brand new for the next use.
View 1 Replies
View Related
Jun 26, 2014
Just curious if there is a way to do some sort of Data Validation form that will check the previous selection and remove it from a list for the next selection? I have several machines that my company sells and I am working on an advanced invoice. I am trying to set it up so that if one machine is selected, it will populate the data validation boxes with one set of "options" for that particular machine. Also, when the user clicks on one option, no matter which one, it will remove that option from the list below it. I have posted up somewhat of a screenshot/crop/paste example of what I am attempting to do.
View 1 Replies
View Related
Jul 16, 2008
Title should read "Data Validation Lists"...oops
I'm trying to format a spreadsheet so that based on the value in Column A, Coulmn B displays one of two spearate dropdown menus.
I know the following formula will not work, but that is the effect I want in Column B.
View 7 Replies
View Related
Mar 5, 2008
I'm trying to write what is supposed to be a simple script that looks at a column of usernames (ColumnA) and passwords (ColumnB). I start off by prompting the user to enter their username in an input box and then I want a loop to check this value against the values in Column A. If the username exists, I want to prompt an input box for the password. If the username does not exist I need some kind of limit on the loop to prompt an input box for the user to enter a new username and password that I'll add to the last row of the data table. The loop part is kicking my butt, this is what I have so far...
Sub Main()
Set StartRange = Worksheets("16.10"). Range("A1")
username = InputBox("Please enter your username.", "Enter username", "Jdoe")
i = 1
Do While StartRange.Offset(i, 0).Value <> "username"
i = i + 1
Loop
If StartRange.Offset(i, 0).Value = "username" Then
password = InputBox("Please enter your password.", "Enter password", "password")
End If
End Sub
View 7 Replies
View Related
Apr 17, 2014
I am trying to have a column that returns either "secure" or "re-assignable" depending on whether the employees title matches the appropriate office/ space allocation.
e.g. an employee who's title is "CEO" and office type is "Large Exterior Office" would return a secure. However an employee with a title of "Admin Assistant", who's office type is "Large Exterior Office" would return "re-assignable"
View 1 Replies
View Related
Nov 13, 2012
I have a condition setup (under "This Workbook") upon opening a spreadsheet to verify a computer's predetermined motherboard serial number that will shut the Excel workbook down if the numbers do not match. This works fine. What I'd like to do is to add a second condition that will allow a password to be entered in a textbox if the numbers do not match so that the serial number condition could be manually overridden, if necessary. If the serial number and the password are incorrect the workbook automatically closes.
Here is the code that works:
Private Sub Workbook_Open()
If CreateObject("Scripting.FileSystemObject").GetDrive("C:").SerialNumber "-XXXXXXX" Then ActiveWorkbook.Close False
End Sub
Here is what I am attempting to do that is not functioning properly - need to add a textbox to enter a password to override an incorrect serial number
Private Sub Workbook_Open()
If CreateObject("Scripting.FileSystemObject").GetDrive("C:").SerialNumber "-XXXXXXX" Then
Dim Rng
Rng = InputBox("aaaaaa")
If Rng "aaaaaa" Then ActiveWorkbook.Close False
End Sub
View 9 Replies
View Related
Feb 15, 2010
I would like to add a piece of code into the user form that will check and verify if a part has already been added so as to avoid multiples in a user-driven/created database.
here is a repost of the current code i am using for the user form (I have posted it before in another thread .. Blane245 helped me out with a different question I had)
View 7 Replies
View Related
Apr 16, 2007
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
View 9 Replies
View Related
Sep 12, 2009
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
View 9 Replies
View Related
Dec 8, 2009
how can i sum integer like
1548=1+5+4+8=1+7=8
View 9 Replies
View Related
Oct 6, 2008
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?
View 2 Replies
View Related
Oct 17, 2009
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
View 10 Replies
View Related
Mar 30, 2009
i need is a script that will add two boxes together to get a sum in a third box, but where it is tricky for me is that i need the third box to retain the summed value even when either of the first two box values are deleted.
For example, say i have box A1=10, B1=40, and C1= SUM of A1 & B1 (so C1=50). Easy enough, but where im lost is that i want to be able to delete the value of either A1 or B1 and then have C1 still = 50, so then i can input another value into either A1 or B1 to continue to add to C1.
View 6 Replies
View Related
Aug 27, 2009
I'm creating a user form where the user can enter latitude and longitude in either Deg/Min/Sec format or Decimal Degrees. To go from decimal degrees into Deg/Min/Sec I need to do the following
A=Decimal Degrees (Single)
X=Degrees (Integer)
Y=Minutes (Integer)
Z=Seconds (Single)
X = Integer(A) <-- I need to cast A as an integer or truncate it. Not sure how to do this in VBA. Y = Integer[( A - X ) * 60] <-- Again, needs to be cast as an integer Z = {[( A - X ) * 60] - Y} * 60. I didn't see a native truncate function in Excel and in the past I've always used Left() or Right()
View 3 Replies
View Related
Apr 9, 2004
I am using the IsDate() and IsNumeric functions in my VBA code. Is there an equivalent function for testing if a value is an integer?
View 5 Replies
View Related
Jan 22, 2009
I'm trying to format a number inside of a chain of a string. So,
Worksheets("TASK").Cells(task_sht_current_row, task_sht_act_id_column) = Cells(current_act_row, work_package_column) & "-" & Cells(current_act_row, cti_wp_column) & "-" & current_act_step_num
So I'm trying to format the last variable so that it is always four digits, ie, 0001, 0034, 0204, 1234, etc...
Any clue how to do this, I've searched around and can't seem to find the code for it. I could do it with a long set of conditional statements, but I'm pretty sure there is a format function or something.
View 9 Replies
View Related
Jun 15, 2009
While reading the book "VBA and Macros for Excel", I can not understand the following
Dim concat As Variant
concat = 0#
What does the # indicates?
View 13 Replies
View Related
Feb 23, 2009
Take a look at the sample sheet. I get the information as an import that looks like the info in column A.
I want it to look like the data in Column B. If I try to format as a number it always turns the last number to a 0. I also dont want the 0's on front of the digits either.
I dont really care how its done. But I would like a routine to turn column A into and like the example in Column B. No zeros on the front and maintaining all numbers.
View 9 Replies
View Related
Oct 12, 2009
How to make A1= A2xA3 and round the result to the higher integer that can be divided by 6 ????
View 3 Replies
View Related
Feb 9, 2010
I'm trying to write an if statement that checks if a value is a whole integer value or not. I was initially using the Mod operator but realized that the Mod operator rounds values to whole numbers before determining the outcome. Initially I tried:
View 3 Replies
View Related
Nov 4, 2011
I 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 Related
Feb 5, 2012
I would like to round down to interger or half. I would give you some examples:
3.76 to become 3.5
2.48 to become 2
-1.12 to become -1.5
0.05 to become 0
I tried to use round down fucntion but I am not able to have the desired outcome. I thnink the issue is with the second argument of the aforementioned function. How many digits should be indicated? I put 1 but it does not work.
View 9 Replies
View Related
Mar 26, 2012
I want to set constraints as an integer in solver. But I don't know how to do it.
View 5 Replies
View Related
Dec 17, 2012
I set a column width to some integer like 10, and the next time I open the file it has changed to something like 9.89. Is there some configuration that prevents this from happening and leaves my setting alone?
View 4 Replies
View Related
