I 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
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.
I have a userfrom with 2 textboxes used for entering dates. would like to either force the user to enter the date as xx/xx/xxxx or have a calendar feature where they can select a date. I checked my 'additional controls' in my toolbox but do not see a calendar option.
I have a userform which allows user to selected a date formt he calendar. In my code I name the value selected myDate. I want to have a line of code at the begginning of my code that checks if myDate = a date already listed in column H on a sheet named "all dor's". if it does match then a msgbox appear saying "date already entered" and the code return to the opened userform.
I have a workbook that has multiple spreadsheets. Data is added to the spreadsheets using userforms for each spreadsheet. I have created a pop-up calendar to add dates and want to know if there is a way to add dates without having to create multiple calendars for each txt field on each userform. I would like it so that when I click on the calendar it would put the date into the text field it was launched from.
This is the code in the calendar which only puts the date into the field named Dat_Clsd.
I currently have a worksheet that when a user clicks on the cell, a calendar form opens. From here they can select a date, click ok, and the date gets placed in the corresponding cell they clicked on.
Now if the user needs to change that date, i want them to be able to click on the cell again, and when the calendar opens, the date in the cell would be selected on the calendar. I was able to do this in a userform, but im not sure how to edit it to work on the worksheet. I am using the below to populate the calendar.
Code: private sub worksheet_selectionchange(byval target as range) if not intersect(target,range("aa16:aa24")) is nothing then .show calendar When the user clicks the date, the below code places it in the cell.
Code: private sub ok_click() with active cell .value=calendar1.value end with unload me end sub
Now the below code was used when I was using a userform, but im not sure how to edit this to pull the date from the active cell.
Code: privatesub userform_activate() me.calendar1=date if not tb is nothing then if isdate(tb.value)then me.calendar1.value = tb.value end if end sub
I have a program where I can update the calibration due date of an item. I have attached a cut down version of my program showing the relevant areas. There is usually password protection on the worksheet so it can only be edited via the form (the vba coding removes the password protection before editing, then re-enables the password protection after editing). The "Update Calibration" button is usually on a "Menu" sheet.
Once the form is opened a serial number is typed in the textbox. The calendar button is then clicked, which brings up another form with the calendar on. The due date is selected on the calendar. When "OK" is clicked, the date label caption is then changed to the selected calendar date. When "Submit" is clicked, the spreadsheet will search for the Serial Number, once found, the label caption (being the date selected) will be entered into the cell to the right of the serial.
If the day selected on the calendar is greater than 12 the date is entered correctly onto the sheet. example: calendar date selected = 15/01/2010. shown on sheet as 15/01/2010. However, if the day selected on the calendar is 12 or less, the date is for some reason entered incorrectly onto the sheet. example: calendar date selected = 08/12/2010. shown on sheet as 12/08/2010???? What is going on here? how come the day and month are swapped around if the day is less than 12????
I am having a little bit of difficulty find ways to effectively incorporate a checkbox panel into a form interface. What I am trying to do is all the user to select using checkboxes which of 31 separate columns will automatically be deleted or not deleted. The method I have been using is to create 31 checkboxes, and then use the value of the checkbox (true/false) to determine a value in an array, which then can be used to delete the column by a separate sub.
However, I am interested in being able to have the checkboxes start checked or start unchecked by values contained in a different array. My problem is that I am unable to reference the checkbox itself until the form containing the checkbox is opened, but at that point I don't know of a way to cause the desired checkboxes to automatically be selected without placing a command button that must be pressed to fill them in. Essentially I want to be able to open a userform that has checkboxes preselected.
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 have a userform with two pop up calendars (calendar1 and calendar2). Calendar1 is the "start date" and must be a Monday. I have this portion working fine. If they select a date other than a Monday an alert message will pop up notifying the user a Monday must be selected. I need to limit the user to a date selection in calendar2 to be a minimum of three years out from Calendar1. I would like an alert message to pop up in Calendar2 should the user select a date inside of my three year minimum. Am I even in the ballpark with the following:
If Trim(Calendar2.Value) < (Calendar1.Value + "not sure here") Then Calendar2.SetFocus MsgBox "Select End Date 3 Years Out From Start date", vbExclamation
I've created a userform to populate rows in a worksheet. The userform gets details of flights with inbound and outbound dates. I'd like a calendar to popup so the user can just select a date with the click of the mouse which then resides in the textbox until sent to the sheet. I know how to get the calendar to pop up when entering directly into the sheet but I don't want the user to have to touch the sheet unless making amendments.
I want the user to select a date from a calendar and insert a new sheet if a new date has been selected otherwise display the calendar again; then get the user to select a 2nd date and use this is in a Vlookup formula:......
Show the user the calendar Record the value Format it and check it against existing sheetsIf it doesn't exist, insert a new sheet ( name = date)If it is already present ask the user to enter another date and present the calendar to them againShow the user for the calendar for the 2nd dateRecord the valueCheck it against existing sheet names (names = dates) - it needs to be a valid date = sheet nameIf it's valid, use it in the vlookup formulaIf it's invalid, warn the user and display the calendar againOnce 2 correct dates are entered, I have a routine that then runs fine ....
I'm getting very lost in when the routine 'SheetAlreadyExists' and 'InsertNewSheet' should run (ie before/after each other etc.)
When you create a userform in the vba editor, then go to another module, then return to the userform, you see the userform object by default and in order to show the code you have to right-click on the userform and select "view code".
How can I make the "view code" view the default view for the form in the VBA editor? (i.e. so that when the form is selected, I am presented with the code, not the object).
I have a userform with 10 textboxes which will all contain a time in HH:MM format. Could I have the userform to fill the textboxes with a default value once a time has been entered into textbox1. I would like the default value to be the time from the previous textbox plus 30 mins.
eg. So if I enter 14:00 into textbox1 I would like textbox2 to display 14:30, textbox3 to display 15:00.
If this is possible, could I add a Listbox with the options 1 to 10. Then would I be able to only uses the textboxes based on the number selected in the listbox. So if I selected 2 then just Textbox1 and Textbox2 would have values in them. For 8 being selected then Textboxes 1 through to 8 would be filled.
VBACode for Calendar to display in Userform textboxWhat code so I use in order to have a userform1 calendar linked to a worksheet cell and then have the worksheet cell data displayed in another userform2 textbox?
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.
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
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