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] ..........
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.
It show error, how to correct it .
[Code] ......
I have a VBA code that works really well but i wondering if there is a way to do the same thing but without the message box and just enter in the dates instead.
View 11 Replies View RelatedI want to be able to validate the data input into an input box. It must be in the following format
Jun-07
First three letters of the month, a dash then the last two numbers of the year.
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'm trying to get a date picker to open with the current day's date, and am running into some trouble...
I added this line to the Initialize function:
Code:
Private Sub UserForm_Initialize()
DTPicker.Value = Date
End Sub
...and this to a button which opens the form:
Code:
Sub Open_frmPatientData()
frmPatientData.Show
frmPatientData.txtLastName.Value = ""
frmPatientData.txtFirstName.Value = ""
frmPatientData.txtID.Value = ""
frmPatientData.txtDay.Value = DTPicker1.Day
frmPatientData.txtMonth.Value = DTPicker1.Month
frmPatientData.txtYear.Value = DTPicker1.Year
End Sub
and I get a 'Run Time Error 424: Object Required' error on the line frmPatientData.show (in red). If I remove the line from the Initialize event, then everything works fine, but of course the current date isn't shown. What am I doing wrong?
I was wanting to input the date Before Printing. I want to write some code.
Private Sub Workbook Before_Print (cancel as booleen)
Inputbox = "Enter the date you would like in Mondays cell C4"
Application.Worksheet.Range("C4").Value = InputBox.Value
PrintDialogBox.Show
End Sub
I know I am making a very rough attempt at what I am trying to achieve, I just don't know coding that well.
I am trying to get the user to enter a relevant date but code returns date in US format. That is mm dd yyyy instead of dd mm yyyy.
View 5 Replies View RelatedI am writing a module which have a different test based on for each of the previous 2 column cells. It calculate the days passed or in simple way calculate the date difference for the 2 columns and puts them in third. But i need to use a inputbox for entering the first date for monday of the month each time i use the worksheet.
When i try using the module for each cell of the column it display the input box for each cell. is there any way so that i just enter the value in input box and it can be used in rest of the module.Without using it again and again.
How can I set the value of a cell to give the current date when that cell is clicked or given focus. I want A5 to show as blank, nothing there, until I click the cell, or somehow select the cell, and then have it show the the current date. If I want that date I hit tab or enter and it will record it.
If I don't want to record anything i can arrow past it and it will not record anything. If I want to change it I double click or click again(If I'm in the cell already) and I can type over or just put in the date I want.
However If the user records a date in that cell and goes back to that cell do not record the default current date on tab or enter it most be double clicked in order to change it. This is a safety that they don't tab to it and past it and have it changed by mistake. Once a date is recorded they have to double click to change it.
This is not for just one cell but for the range of cells in colum A starting on A5.
In a new worksheet, I enter the following inputs:
Input # 1: 08/26/08 and see 8/26/2008
Input # 2 (in a different cell): 08/26 and see Aug-26
Input # 3 (in the same cell as #2 because I didn't like the result I saw): 08/26/08 and I still see Aug-26
Question: The desired result I would like to see in all three cases is: 8/26/2008
Would someone please explain:
1) How do I set the default date to automatically assume current year if I merely enter 08/26 ?
2) Why entering 08/26 is such a grievous sin that I should so horribly point Excel in the wrong direction - or at least until I reformat that cell?
System info: Windows XP Pro & Office 2003
Regional Settings: short date format M/d/yyyy
In the attached file I have put together a userform that contains a drop down calendar in order for users to select relevant dates.
I have two questions:
1 - I've noticed that from creating the userform (04/01/10) the date has remained as this and not updated to the "current date". Is there any way this could be achieved?
2 - Is there any way the code etc. could be manipulated to alter the dates in the Date Entry boxes, based on that entered into the "Rostered Start Date" box.
I.e. If a user was to select 09/12/09 in the "Rostered Start Date" box, the other date boxes would automatically change to that date.
I have a worksheet that has a drop down box with the options PPP, MONTHLY, TOKEN & DEFAULT, next to this i have a date when a payment is expected, what i want to do is automaticaly set this to default after the date has expired, the problem i have is that there is data validatrion in this box so i cant enter a formula, is there a way around this
i am trying to change the date format for the B column.
if you look the format for this column is dd/mm/yyyy, BUT, it is not. the real format should be mm/dd/yyyy.
ex. 08/01/2006 (mm/dd/yyyy) but excel thinks it is dd/mm/yyyy
I am creating a spreadsheet on a British-based system using the d/m/y date system as default, but I am unfortunately entering data using the american m/d/y system and would like to change the default to the american system.
View 5 Replies View RelatedI 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 RelatedI have set up a calendar control on a userform and got it to pop up when selecting one of 3 cells on a worksheet. The various bits of code making this work are below.
This code is attached to the Userform.
VB:
Private Sub Calendar1_Click()
With ActiveCell
.Value = Calendar1.Value
[Code]....
What I am struggling with is that I'd like to have the calendar that pops up in cell C18 (which is Date of Birth) default to starting on 1st January 1987 not todays date. Also, if there is a value in either of the 3 cells that use the calendar, then I'd like the calendar to display that date. If the cell is empty then todays date is fine for cells G3 and G26.
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?
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.
I am new to VBA. Using Excel 2010. I have a date picker on a userform named LtPayCalFm1. I have created a named range on a sheet within the workbook called LQD which is a date. I want the date picker to show the date LQD when the form opens. The code I have is
Code:
Private Sub LtPayCalFm1_Initialize()
Dim LQD As Range
DTPicker1.Value = LQD
End Sub
I get Run time error '380': Invalid property value How do I correct this?
I have a spreadsheet that from a button I want to run a macro that will input todays date, the value in cell A1 as the filename into a default dialog box that is at a default file path. I have been trying to do this for several hours and can not completely get it done.
View 9 Replies View RelatedI 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 RelatedThe 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 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"
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".
I am trying to simply the data input for someone who is not very experienced.
I have had some success but need to have an extra option in case of mistakes.
Ideally I need the following -
I want an inputbox that will appear when the user starts the macro and for example asks Enter Surname
Then I know what I want but I don't know how to do it.
I want a box to display the Surname that the user typed into the inputbox with a message asking Are Details Correct? with a Yes and No Button.
Clicking the Yes button moves onto the next inputbox clicking the No button cancels the whole macro before it enters data into cells.
How to use Exit Sub when I push Cancel with InputBox. Heres my code
VB:
Dim fName As String
Dim strMessage As String
strMessage = "Select .csv File"
MsgBox strMessage
[Code] ....
Its working at the moment when I push cancel, but when I select a csv file to import it comes up with an incompatible error.
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] ......
i have a close workbook with path ("Z:42766Jan 2 Dec 2014Tally.ERP9GrpSum.xls") from another open workbook i want to popup a inputbox to select the sheet and run the macro on selected sheet.
e.g
i put 2 in inputbox than run the macro on sheet2