Get Default Value From Cell For Inputbox
Oct 2, 2008
I am working on a production spreadsheet, and I'm trying to figure out the easiest way for my coworkers to enter data into the system. Each shift, we produce from 5-20 different varieties of chips, and we keep track of how much we've made of each. I've decided that a simple ADD and DEL button at the end of each row will work (unless anyone can think of something easier or better, let me know pls).
Cell G3:G30 is where data will be stored for each variety. The default value for each variety is stored in column C. I found a very basic macro that adds a value to a selected cell, but I wish for it to find the default quantity for the variety in that row (changes day to day as per our schedule), and add it to the value in column G. The DEL button will do just the opposite.
I have 3 worksheets that I need this macro in as well (days, afternoons, midnights), but I don't think that will be any problem. I've searched around for a solution, to no avail.
View 6 Replies
ADVERTISEMENT
May 27, 2013
I made a selection and coloring macro, the filter is based on the inputbox that pops up. What I would like to do here is, that when the box pops up it would have a written date in it, which is the today always. And the filter should select all which is 2 weeks later than current date.
Code:
Sub kethet()
Dim datum As Long
Dim most As String
LRow = Range("E" & Rows.Count).End(xlUp).Row
[Code] ..........
View 5 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
Apr 23, 2007
I am using the first part of the code to select the last cell in a column. I wish to enter that cell into a InputBox, rather that the default "A3" shown below. How do I modify the second part of the code?
Dim strName As String
Sheets("Prices").Select
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Set wSheetStart = ActiveSheet
strName = InputBox(Prompt:="Type in column A cell to paste component into", _
Title:="Price List Paste", Default:="A3")
Range(strName).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
View 7 Replies
View Related
Nov 21, 2007
I have made a macro to nominate a % rate in an input box , then have a value multiplied by this rate. Now i need the macro to place the rate followed by a '%' symbol in the cell below.
View 9 Replies
View Related
Jan 13, 2012
I'm trying to write a bit of to take a text string collected from an inputbox, and paste it into a specific cell.
Should be easy but where my text string from the inputbox is "XYZ", when it enters it into the required cell it enters it as " ="XYZ" ".
Attempt at code is below -
Code:
Sub EmailEdit()
Dim Response As String
Response = Application.InputBox("Input administrator email address", , , , , , , 2)
'Check to see if Cancel was pressed.
If Response = "" Then
[Code] .....
View 2 Replies
View Related
Apr 21, 2006
I want to be able to specify inside the message the word that is in cell F6. So it would say "You Must Give A Reason For The Amount Of Mgr Voids For Shawn"... shawn being the name in cell F6.
If Range("F9").Value > 50 Then
MyInput = Application.InputBox("You Must Give A Reason For The Amount Of Mgr Voids For This Employee")
If MyInput = "" Then End
If MyInput = False Then End
ActiveSheet. Unprotect ("13792468")
ActiveSheet.Range("F9").AddComment
Range("F9").Comment.Visible = False
Range("F9").Comment.Text Text:="" & Chr(10) & (MyInput) & Chr(10) & ""
ActiveSheet.Protect ("13792468")
End If
View 3 Replies
View Related
Nov 20, 2009
I'm working on a tracking spreadsheet that needs to be able to function on both Excel 2004 for Mac as well as Excel 2007 for PC. The code below is written to ask for a date when the status of a particular row of cells is changed to a value other than "". These cells have validation lists where the list itself is just below the cell in hidden rows. It then places the date entered in the corresponding cell to the right of the list choice in the hidden rows and the top row is simply a vlookup to show the date with the status choice.
This way, when the status cell is changed again, it retains the date in the hidden rows while setting a different one. The code below is obviously not the full code, the whole code includes other functions and is a bit long, but I've narrowed it down to this:
View 5 Replies
View Related
Jun 15, 2012
I have the following code in Destination.xlsm that is intended to:
request the user to select a multi-cell range in a column of single-sheet Source.xlsm, in which some but not all cells contain "Y" (to indicate that this row of data relates to a National Account, versus a Territory Account)loop through the selected range, and whenever a cell contains "Y", copy the entire row and insert it in Destination.xlsm above a cell named "rngDest".
Code:
Sub Copy_NationalAccounts_Rows()
Const Message As String = "Select the entire range containing National Account Y flags, then press Enter or click OK."
Const Title As String = "Copy National Accounts"
Dim rngSource As Range
Dim rngDest As Range
Dim r As Range
Dim c As Integer
Dim wbk As Workbook
[Code] ........
View 5 Replies
View Related
Jan 16, 2010
If I've defined borders for a range of cells and then, changing my mind, change it to "No Borders", those cells are still different than the normal, non-formated cells. Is there a way to get back the default cell bounders?
View 3 Replies
View Related
Oct 1, 2009
I've been asked to make an Excel spreadsheet for work that tracks each employee's gross earnings, deductions, and net earnings, as well as calculates the holiday pay. I'm mostly done, but I've run into a problem.
Holiday pay is 4% of the gross earnings. I've got gross earnings in column B, and the formula in the holiday pay column is =PRODUCT(BX,0.04), where X is the row (i.e. in row 4, it is =PRODUCT(B4,0.04).) However, if the cell in BX is empty, the holiday pay displays as 0.04. So for whatever reason, it is assuming that the value of an empty cell is 1. Now, I can solve this by manually entering 0 into every gross earning cell.
View 2 Replies
View Related
Aug 13, 2007
i want a cell to always show the default value of "tier 1" if its empty.
View 9 Replies
View Related
Aug 14, 2013
I need a cell to display a default value (something like "Input Here") which a user can overwrite with a value. When the value is erased, the cell should return to the default. Preferably, it'd be great if the cell reset to the default value whenever the workbook is opened as well (i.e. won't save the user's input value).
View 2 Replies
View Related
Mar 10, 2014
I would like to change the default color of any excel sheet I use to grey from the standard white and I am struggling to find out how this is achieved.
In other words, I am trying to have all cells in the sheets I work with appear grey on my screen by default. A coworker of mine used to work in banking and she has grey cells but does not know how she changed them.
View 1 Replies
View Related
Jan 15, 2010
Is it possible to get the value of the E39 cell, and use that value as the default text for a text box in a user form?
View 2 Replies
View Related
Oct 8, 2008
Is it possible to set the default contents of a cell instead of having it blank? I want a cell to say "No Data" if you have not entered any data into that cell, and when you do, then it is replaced by whatever you entered. If you delete the contents of the cell, it goes back to the "No Data". Hence the "No Data" being the default contents of the cell.
View 5 Replies
View Related
Jun 27, 2007
In a worksheet, I should have selected the region where data is present, and center align all the cells. Instead, I selected the entire worksheet and did the same, so that whenever new data comes in the relative cells are already formatted. This has caused the workbook size to increase dramatically. (So, I assume that changing a cell property from the default value uses some memory). Is there a way to restore the format of the blank cells to the default values, so that memory is freed and the workbook size decreases again?
View 3 Replies
View Related
Mar 22, 2013
I am trying to get a particular cell to have normal dimensions when not within that cell, but once opened, contains a default text preferably within a text box format/size.
View 9 Replies
View Related
May 11, 2007
I wish to be able to change the default appearance of a cell's comment. Currently, the default font size is too small to be useful - is there a way of changing this setting, without reverting to a VBA tidy-up?
View 2 Replies
View Related
Nov 9, 2005
I'm using a formula to copy a time from one cell to another
across sheets. The format of the time is h:mm AM/PM.
However, when the formula references an empty cell, it puts in a
default value of 12:00 AM and I need it to remain blank, (just as
the referenced cell)
It's such a simple copy formula. ie:
=sheet1!A1
e-mail... howard<dot}coakleyatcoakley<dot].codotuk
Skype ID: howie10 (get skype from www.skype.com)
View 10 Replies
View Related
May 24, 2006
I need a formula for identifying the last cell, of every third cell, that has an numeric entry, of a row. For example, in a range of (F7:V7), I need a formula that examines F7,I7,L7,O7...., and displays the last cell that has a numeric entry, while ignoring the other cells, ie G7, H7, J7, etc.
View 8 Replies
View Related
Feb 3, 2008
It seems that you can change position when you editing comment and its remembered, but when its showing its alway's on default position.
Is there way to change position of displayed (when you mouse over cell and coment pops up) comment position?
View 3 Replies
View Related
Nov 19, 2009
Three columns.
A - Date last checked
B - Due Date
C - Actual Date checked
Currently column B is formatted to Date and simply has =A+84 and will display a date 3 months in future. However if there is no date in column A, then column B displays a default 1900 date.. Is there a way of making this blank if there is no date in col A?
View 5 Replies
View Related
Jul 26, 2013
I am entering data for ships arrived every month. There are about 200 records to be entered and for every record there are 4 date fields.
My question is : Is it possible to set default month (for ex = July) and year ( for ex = 2013 ) in these 4 cells so that
If I just type 16 it should be 16/07/2013. Because all my dates will be within that month July 2013.
View 2 Replies
View Related
Mar 17, 2012
How to change these defaults...
It involved opening a new workbook and changing the number of worksheets in a new workbook, cell sizes, font, and font sizes... and then saving the workbook in one of the system folders under the name "workbook" to change the default workbook attributes, or "worksheet" to change default worksheet attributes.
View 3 Replies
View Related
Feb 23, 2014
I used Excel 2013 and Win 8.1
When I insert a Hyperlink in a cell, this changes the Default Font Type and Size
View 1 Replies
View Related
Sep 25, 2008
I have another dilema. I am writing a macro that essentially takes a template from a workbook and copies it to another workbook that already has data. the data is then imputed into the pasted template through the macro... my dilema is that I have numerous data sheets so at the begining of the code I need the macro to pause so the user can manually select the cell or range that the copied template is to be pasted too... I was thinking an inputbox would work but I am unsure how to write this part of the code.
View 3 Replies
View Related
Jul 31, 2007
The report is a "template" that will be ran once a month every month and will look back at the previous month's data. What i've invisioned is writing a vb script to load on workbook open asking various questions via "inputbox()" method.
SET NOCOUNT ON
DECLARE @StartDate DateTime
DECLARE @EndDate DateTime
SET @StartDate = '20070731 10:10:51.450'
SET @EndDate = '20070731 10:11:51.450'
SET ROWCOUNT 100
SET NOCOUNT OFF
SELECT EventTagName = EventHistory.TagName, Value
FROM EventHistory
INNER JOIN AnalogSnapshot ON EventHistory.EventLogKey = AnalogSnapshot.EventLogKey
INNER JOIN SnapshotTag ON SnapshotTag.SnapshotTagKey = AnalogSnapshot.SnapshotTagKey
WHERE SnapshotTag.TagName IN ('SysSpaceMain')
AND DateTime >= @StartDate
AND DateTime
View 9 Replies
View Related
Dec 30, 2008
I have a macro that sends data from excel using MS Outlook. I want to add a more specific Subject header in outlook, and do this using an input box.
I thought adding something like this would work, but it doesn't... (below are just extracts from a very long code...)
Dim CurMonth as String
CurMonth = InputBox("Please enter the reporting month","")
.Subject = "Trial Balance - All companies" & CurMonth
When outlook generates the email, all I get in the subject line is "Trial Balance - All companies"
View 9 Replies
View Related
Jun 4, 2009
I am trying to create an inputbox using code from this site:
Sub NumericDataType()
Dim lNum As Long
On Error Resume Next
Application.DisplayAlerts = False
lNum = Application.InputBox _
(Prompt:="Please enter you age.", _
Title:="HOW OLD ARE YOU", Type:=1)
On Error Goto 0
Application.DisplayAlerts = True
If lNum = 0 Then
Exit Sub
Else
MsgBox "You are " & lNum & " years old."
End If
End Sub
I get an error on the first line that says, "Compile error: argument not optional".
View 4 Replies
View Related
