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.
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
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>>>>>
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
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.
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
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:
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
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?
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.
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).
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.
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.
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?
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.
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?
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)
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.
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?
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.
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.
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
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".