With the inputbox I want to insert a numeric value to define a cell range, for example "C15:F15"
This is the code I'm using:
x = InputBox("Insert Row")
Range("C(x):F(x)").Select
Where (x) represents the Inputbox data (the number "15") I want to insert, But it doesn't runs
Rather than having to give it a range, I'd like to have a generic range giving me room to add or subtract values in the column without changing this statement.
Code:
Worksheets("Sheet1").Shapes("Combobox2").ControlFormat.ListFillRange = _
"O2:O14"
I want to create an input box that will allow you to input the column number it should start in... so instead of it being fixed at A, you can choose column B, C, D all the way to the end if you like.
Sub SplitSheetsNoDelete1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Lmainsheet As String
Dim Lrow As Integer
Dim lcontinue As Boolean
Dim LColamaster As String
Dim lcolatest As String
'Retrieve name of sheet that contains the data
Lmainsheet = ActiveSheet.Name
'Initialize variables
lcontinue = True
Lrow = 2.....................................
In the frmula below, Is there a way for the operator to input a number between the range that is shown size of inducer wheel. Example: 2.277" could be inputed as 2.267 to 2.287" anything else would be rejected.
Air OutletGeometry# of Bolt HolesSize of Wheel Inducer
"0.010"
Noise SuppressorBackplate flange styleA/R ratioCastingPart #
StraightFixed62.277"YesFlat0.58AStraightFixed62.277"YesFlat0.58AVA-11-763 - 449633-0039
VA-11-763 - 449633-0039==IFERROR(VLOOKUP(J5,Cat,10,0),"******")
In column 'o' I have inserted a number for course name in column 'p'. I want to assign a course name to that particular number as follows:
Column 'o' Number ... Column 'p' Course name
1: A. B. C.
2: J. K. L.
3: P. Q. R.
4: X. Y. Z.
And so on as per course names.
If I enter number 1 in inputbox then I want to enter the course name in column 'b4' respectively.
how to input a data/number into excel through vba userform and get another data/number from excel back to the userform??
View 8 Replies View RelatedI am trying to auto fill one cell with one of several names using different values from another cell. Ex: when one of six numbers (100, 101, 102, 103, 104, 105) in input in A2, I want B2 to display a name (Joe, Tom, Steve, Fred, Tyler, Todd) that corresponds to that number. Cells in columns A and B will be formatted as text. Using Excel 2007.
View 9 Replies View RelatedI need to limit the number of Characters that can be inputted to the popup InputBox to just 31. How do I set MaxLength? Code I am using is listed below.
Code:
Sub NewRecipeSheet()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("1. Recipe Master Sheet")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
Application.Goto Reference:=Sheets("1. Recipe Master Sheet").Range("A1")
Range("A1").Value = InputBox("Menu Item Name?")
End Sub
Here is my formula but I want to change the "wd" to just text (no matter what text is inputted"=IF(C5="wd",MAX($C$4:$C$23),C5)+Q5
View 2 Replies View RelatedI am trying to create an input box where the user can only enter a whole number between 1 and 99. i can create the input box but am having trouble specifiying it can only be a whole number between 1 and 99.
I have an input box which asks the user to select a row that they wish to delete.
What I need to do is take the row number that has been selected and delete cells B:K and move the below cells up.
I am working on a spreadsheet and would like to create a cell that allows the user to input a number (1 to 5) which will then equate to a percentage(%). I would then like this to deduct that percentage from a total number...
To try and explain this.. Should the user input 1 into the cell, this would then equate to 3% - this would then deduct from a total that percentage. Input 2 = 5% etc..
i have a sheet that manipulates a variable amount of rows containing data input by the user. if a cell has an unexpected entry causing an error the program just halts with the default error message. the user then has to find the error which can take time. is there any way a message box can appear showning what row the error was found on ?
View 5 Replies View RelatedI am trying to create a simple set up where the operator can enter a starting date and the number of weeks they want this event to occur. This then produces a column of dates from the starting date to the end date for the number of week entered.
E.g. - start date = 16/04/2014 - No. of Weeks = 3
The output would be as below
16/04/2014
23/04/2014
30/04/2014
What i'm looking to do is create a spreadsheet where the first page allows me to input the number of teams in the group.The teams cannot play others in the group except the ones they are paired with. eg. "Enter number of team pairs in set" (in this case 4)
Team 1a vs Team 1b
Team 2a vs Team 2b
Team 3a vs Team 3b
Team 4a vs Team 4b
After number of teams in set is established click a start button on the first tab of the spreadsheet.
this auto generates a new tab with all the possible win/loss combinations of 4 team pairs.
New Picture.jpg
if the number of teams on Tab 1 is changed (say to 6) and the start button is clicked, another new tab is generated with all possible win loss combinations of a 6 team set.
remember 1a vs 1b can only be win or lose and the win lose combinations are for the set of 4 matches ( or more matches if specified on the first tab and clicked).
if you put 7 in for the number of team pairs then it would be win loss combos for 7 pairs of teams.
On the attached sheet in column X, I am trying to input the Allocation percentage dependent on a number of variables:
Type (Bar, Blank, Coil, Sheet, Special)
Sub Fam Code (2A02, BC02-05, BC99, BZ99)
Sup Category (Arcelor, Independent, Tata/ Corus)
The allocation percentage is based on the below; anything outside of this should result in "Other".
Sheet (BC02/03/04) A=40%, T=40% & I=20%
Coil (BC02 & BC03) A=40%, T=40% & I=20%
Coil (BC04) A=30%, T=50% & I=20%
Example 1:
Type - Sheet & Coil
Sup Category - Independent
Result 20%
Example 2:
Type - Coil
Sup Category - Tata/ Corus
Sub Fam Code - BC04
Result 50%
Example 3:
Type - Coil
Sup Category - Arcelor
Sub Fam Code - BC04
Result 30%
I have an excel sheet that I've automated for my shop ... Basically it copies a set of rows from one sheet, asks for which cell you want to start the paste at, then pastes it... Here's what I have so far:
[Code] .....
So I tried to use a variation of strReturn to indicate number of rows wanted but that didn't work ... Basically I'm going to create the "data" to include 50 rows, but have it selectable for the user to say they only want 5, 7 or 29 rows ...
how to create a custom function with an unknown/changing number of input parameters?
Specifically, I need to create a function that will calculate the average of 1,2 or more ranges. I can't use the built-in average function as I then need to use the average in my function.
what I have so far is:
function points(current as range, previous as range)
if previous > current then final=1
if previous < current then final=0
if previous = current then final=2
points=final
end function
This works okay if I only only have 1 range of values. but in my worksheet I need to be able to enter =points(a1,c1:f1,g1) and have the function calculate the average of c1:f1,g1 and compare it to a1.
Excel 2010 O/S XP Macro for serial number input all serial numbers have JTC0. Any VBA code to place in macro to have a cursor appear after the four characters in the macro below?
Example: JTC0| < cursor ready for input
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+s
'
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "JTC0"
End Sub
I want to force my user to input a date in a userform. I have a normal Textbox and assumed i'd be able to set the properties to mean that imput had to be an integer and the format had to be "00/00/00" but I can't see how to do this.
View 9 Replies View RelatedI would like an input box that asks users a select a range of cells....After this certain range of cells is selected....I would than like that range to be copied to a different sheet.
View 9 Replies View RelatedThis code works fine if i use static ranges, but i would like the user to input the column in which the data is stored.
'Get data for the locations of the gaming license numbers needed for the comparison
varPlayerHost = InputBox("Please enter a single letter for the" + vbCrLf + _
"Column that the Player Host License" + vbCrLf + _
"numbers are in.", "Player Host Number Location", "H")
varHostLicense = InputBox("Now enter the column letter for the copied employee" + vbCrLf + _
"license numbers", "Employee License Number Location", "U")
'Set the ranges for the data to be compared
'This is where I am getting the error???
Set rRangeA = Range([varPlayerHost,1], Range(varPlayerHost, 65536).End(xlUp))
Set rRangeB = Range([varHostLicense,1], Range(varHostLicense, 65536).End(xlUp))
'The actual comparison and deletion of record that match the license numbers copied.
'When this function finishes you will be left with a spreadsheet that only has patron
'information left for the patrons that have an invalid host number.
For Each rCell In rRangeA
If WorksheetFunction. CountIf(rRangeB, rCell) > 0 Then
rCell.EntireRow.Delete
End If
Next rCell
This exact code is kicking an error
"Run Time error 1004"
"Method 'Range' of Object '_Global' failed"
Not quite sure where i went wrong.
i have some data in array format and want to use that data in the solver. However, as per my understanding solver takes in only ranges. How can i use arrays directly? this is wht i am trying, but not working
entities = 1
spread = 3 + entities
ans = 5
SolverOk SetCell:=spread, MaxMinVal:="3", ValueOf:=ans, ByChange:=entities
Is it possible to use an input box so a user can copy rows from a particular row to the last row that has data in it?
e.g row 23 & copy all rows from 23 to end od date (and then paste them to another location - e.g. nother sheet at the next empty row.
I have a drop down box on a worksheet and once I have selected the item I want from the list, I would like the price of that item to appear in the cell next to it..
View 2 Replies View RelatedI want to enter a unique ID into an input box which will tell which row that id is available and then it will again ask me which column the cell needs to be highlighted. Once i enter the data, it will then ask me what is the change in data (again via input box). i can then enter the change data and then it stops.
View 1 Replies View RelatedI have declared a 'long' variable. however; how do I change the variable data type to string if user input is not a number? how do I recognize the user input's datatype?
View 7 Replies View RelatedI've created a userform that has one ComboBox (ComboBox1) and two text fields. I am trying to get the userform to return information to my worksheet in the same row as the name that is displayed in the ComboBox. This is my VBA code.
Private Sub Cmdpayment_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Sheet4
iRow = Cells. Find(What:=Me.ComboBox1.Value, After:=C5, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ws.Cells(iRow, 12).Value = Me.txtpdate.Value
ws.Cells(iRow, 13).Value = Me.txtpayment.Value
Me.txtpdate.Value = ""
Me.txtpayment.Value = ""
End Sub
I'm trying to get a users' selected range to display in a cell as stored text.
therefore, If a user selects A1:D7. The text in Cells("G", 10) will be:"A1:D7"
w/o the quotes.
I've attached an example workbook.
Here's the formula thus far:
Sub SelectRangeBox()
Dim rnBody As Range
Dim vaMsg As Variant
Do
vaMsg = Application.InputBox( _
Prompt:="Please enter the message-text:", _
Title:="Message", _
Type:=2)
Loop While vaMsg = ""................................
Actuall maybe my thread should be Titled. user selected cell range displayed in input box save to cell as a text value.
I have a range (C3:C56). I have a set number in each of these cells. I also have a range out to the side that calculates a number after input a % in cell BI2. The formula reads as "=AE3-(AE3*$BI$2)". Basically it is reducing the values in my range. If a number is in my range is 8 and i input 25% in cell BI2, then my result would be 6.
I have a few steps I want to happen with this range.
1 Display an input box asking for a percentage
2 I want to loop through my range and use that percentage to reduce the numbers
3 (optional but would be amazing to have) after the reduced value is determined, round down to the nearest multiple of 4.