Is there a way to prevent a user from clicking on the days in the Calendar Control 8.0? I am trying to place 12 calendar controls on a worksheet for reference only. I am using a linked cell to reflect what date the Calendar is to display.
View 2 Replies
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????
Using Excel 2007 Calendar Control:
I want to select a date of choice from a calendar in a field within an Excel spreadsheet.
I do not know how to do userforms and so that is why I wonder if I can add this in just a spreadsheet.
This is how far I have gotten so far: After doing the following, I have a static calendar setting in my spreadsheet like a text box showing the current date.
Developer
Insert
More Controls
Calendar Control 12.0
I have one issue with my protected worksheet. Some locked cell contents are linked to cell contents located in another sheet. When I double clicked on these cells, a warning window poped up but also opened the sheet in which the corresponding cell is located. This is quite annoying to have to go back to the former sheet. How can I prevent it ?
View 3 Replies View RelatedAfter countless hours of finding a way to click a link between divs. My Current code:
Code:
Sub test()
Dim ShellApp As Object
Dim ShellWindows As Object
Dim IEObject As Object
Dim strURL As String
Dim Document As Object
[Code] .......
However, When trying to go trough the link objects, it just skips the whole code. I Tried numerous ways of trying to click a link:
HTML Code:
<ul class="th-menu2" id="C6_W28_V29_mainmenu" style="width:171px">
<li class="th-menu2-item"><a id="C6_W28_V29_IC_INBOX" class="th-lk" href="javascript:void(0)" *******="htmlbSubmitLib('htmlb',this,'thtmlb:link:click:0','myFormId','C6_W28_V29_IC_INBOX','IC_INBOX',0);return false" title="Inbox" onfocus="thtmlbSaveKeyboardFocus('C6_W28_V29_IC_INBOX');" oncontextmenu="return false;">Inbox</a></li>
</ul>
Is there some reason why the VBA code is skipping the for each function?
I have a user form that has a combo box "City" two text boxes one called "Flight" and the other "Date". What I'm trying to do is to prevent the user from saving the data input from the user form if any of those three fields is left blank. The code that I have so far checks all of the required fields, if any are left blank a message notifys which field(s) is left blank and return the focus back to that field. But the rest of code also fires.
What I really need is either to stop the code if any fields are blank and return the focus back to the blank field, the user completes the field(s) and clicks the save again, or better yet, pause the code until all the required fields are completed and then complete the save. (There is actually another 200+ lines of code in this sub, but I deleted it to keep the post a little shorter.)
An Excel file named CLEARING is availble in thr central server system. it will be accessed by 5 or 6 staffs from some other systems what i need is when one person accesses/edits this file the others should not even able to open in the read only file ,when the file is saved and closed ,then only the next person should access it
View 1 Replies View RelatedSome code that would prevent my user form (calendar) from popping up when the worksheet is protected?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$8" Or Target.Address = "$G$14" Or Target.Address = "$G$17" Then
CalendarFrm.Show
End If
If Target.NumberFormat = "m/d/yy;@" Then
[Code] ........
I'm trying to make it so that when a user clicks on a certain cell, a calendar pops up so they can pick a date. This seems like a pretty common thing to want; I hope Microsoft puts it into the next release.
Anyway, I've read the tutorial found at [url]which tells you how to create a userform, add the calendar control to it, etc.
I've also modified it so that the calendar comes up when the user clicks on a certain cell, and so that the form closes when they choose a date.
I had to use the selection_changed subroutine to tell if someone clicked on the cell, but there are some flaws.
First, moving over to the cell with the keyboard arrows brings up the calendar (undesired result; I only want it to come up with clicking)
Second, if the cell is already selected, clicking it doesn't bring up the calendar since the selection didn't change (also undesired; I would like the form to come up whether the cell was previously selected or not).
I want to be able to show a calendar control, have the user select a date, and then fill a cell with that date. The range I would want the calendar to appear is B2:B100.
View 9 Replies View RelatedI got a file from someone that uses a Calendar Control in a user form, but my machine does not seem to have it installed, and Excel removes the control. I have Excel 2003 with SP2. I use the same version on my home machine but it does have Calendar Control, and the file works fine there. I tried copying the MSCC.* files from the OFFICE11 directory from home to this machine. Is there some straightforward way to install that control?
View 3 Replies View RelatedHas anyone out their ever seen an Calendar type of control totally built in an Excel vba UserForm?
My problem that I’ve tried to resolve for some time is utilizing some type of pop-up calendar to eliminate format issues in my published Excel forms. I have tried a number of calendar controls but all have to be registered on the local machine and this cannot be guarantied for every machine.
If someone could direct me to a vba UserForm that has this built in that might do the trick. Or is their another way to deal with this?
I am about to write a small macro to do a iteration calculation. I would like though for the user to select me a cell so that the macro uses the value in that cell to start calculations. Now, what I think would be the problem is how do I code a "time" or notice an action such as clicking in a cell to continue with the macro.
Would it be by inserting a pause in the code of a certain time so that gives the user time to click and wait for the code to start? If so, how would much time is enough? Is there another thing that could restart the code such as "noticing a click in a cell" command in VBA?
Over in the following thread
[url]
you can see we've hit a problem with the Calendar Control object.
I submitted a workbook which has an Activex calendar control embedded on a User Form. On my PC everything appears as you'd expect, with the calendar showing the individual days in the calendar matrix. However when the user loads the form on their system, although they see the calendar as you'd expect, and they can change the month & year at the top of the calendar, they don't see the individual day numbers, 1,2,3 etc. within the body of the calendar.
Having created a spreadsheet with active x calendar control I find that if the worksheet is password protected I'm unable to use the control to enter a date. Take the password off and it works fine. Is there a way around this??
The password for the attached example is "date"
I have a spreadsheet that will always have the dates needed in cells H40 and H42. I would like the calendar to utilize the data validation in the cell to only allow someone to choose a date that is between the dates in H40 and H42.
Code:
Private Sub Calendar1_Click()
'ActiveSheet.Unprotect Password:="pbrmeasap"
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
Calendar1.Visible = False
[Code] ...
Could I add this code anywhere to make it work?
Code:
Sub DataValidation()
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$H$40", Formula2:="=$H$42"
[Code] ......
I have the following code in my calendar initialize: ....
View 9 Replies View RelatedIs there a way to calculate a conditional minimum? I have a range of 1000+ values and I need to find the minimum, but the minimum has to be greater than a specified minimum threshold
View 2 Replies View RelatedI'm trying to use the Calendar Control 10.0 object in one of my worksheets. I basically want to be able to display a value by clicking on one of the dates in the calendar. Example: Say I want the contents of cell A1 to be displayed in B1 when somebody clicks on the 17th of February 2006. Is there any way to do this?
View 5 Replies View RelatedI am using calendar1 in my userform added from ms toolbox. When I open the file it shows dates of previous month when the calendar was added to the userform but not today date.
How can I set it to show as defaut day of today?
Is it possible to use one (1) calendar control to add different dates to different cells?
View 5 Replies View RelatedI would like to distribute a workbook that makes use of the calendar control in a userform.
Trouble is.... Not all the end users have the control installed or even a copy of the mscal.osc file.
This workbook is going to be rolled out to a large number of users with varying levels of computer literacy. For this reason I would like to try to 'attach' the calendar control to the workbook OR somehow distribute the mscal.osc fil and automate the installation.
how to multiple dates can be selected using the calendar control object? I haven't actually explored this for very long
View 5 Replies View RelatedUser selects a date from a pop up calendar. The date and user ID is entered into the active cell of the active sheet. This I have. I would like at the same time to have it enter the value of just the date (without the user ID) to cell A1 on the sheet labeled final.
Also, while I'm on the topic, I have another workbook where I would like to do the exact same thing with the exception that the user will only be allowed to select a date equal to today or up to 60 days from today?
I would like to be able to calculate the number of Net Working Days between 2 dates using the dates returned from the calendar form and have the number of working days placed into a separate cell. Example, I use the popup calendar in A1 and select 10/1/06, I then use the popup calendar in B1 and select 10/9/06 and the number of Net Wroking Days is placed in cell C1. Is there a way to calculate the number of working days between the two chosen dates?
I have the forms for the calendar already created and am using this for the popup calendar but don't know where to start to calculate the working days from the calendars results.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'This will launch when A1 and/or B1 is selected
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
CalendarFrm.Show
End If
End Sub
I'm looking for is a simple calendar that will be used, for example, to see if a certain date is available for vacation. The end user just needs to see the calendar. Open dates could be one color, and closed dates could be another. They will access this from a central location via a desktop shortcut as part of an overall toolkit.
I'm not entirely sure how to do this. Most of the calendar programs I've seen are dynamically generated, so there really wouldn't be a way to set certain values in it. It would need to be updated by me via an 'Administration' control panel (password protected, most likely)
I'm using MSCal.OCX to have a user select a date from a calendar in a user form. It all works fine on my machine and the machines of my colleagues. All of these are running XP Pro with Office Pro, Excel version 11.8120.8122. All have SP2 installed.
The problem comes when the customer tries to use it on their machine. They are running XP Pro with Office for Small Businesses, version 11.6560.6568.
I have done a search through Google and I have made sure he has the most up to date version of MSCal (11.0.6650.0) and registered it, using regsvr32 mscal.ocx. I've even made sure he has unregistered and deleted any previous versions. The error message he is getting reads: "Compile Error in Hidden Module: Module 4". This comes up when the calendar is supposed to appear. I have also tried getting the user to register the control in Control Toolbar -> More Controls -> Register Custom Controls but they still get the same error.
Have a slick way to have multiple textboxes on a userform updatable by a single calendar control located on it's own userform.
basically, i have a userform with multiple textboxes. A double click brings up another userform with a calendar control. How do you idenitfy which textbox called up the calendar?
how I would display a simple msgbox to a user if a date they select from monthview isn't a date I want them to select. They can only chose dates between aug and dec 07 and i have the code lines
If MonthView1.Month = "12" And MonthView1.day = "15" Then december15.december15
I have a user form that has a calendar button. Once clicked it updates a txtbox on my user form. What I would also like is for another txtbox (txtQtrLeave) to be auto populated based on this entry. Below is the code I've tried:
If CalendarEnd.Calendar1.Value > #3/31/2008# And CalendarEnd.Calendar1.Value < #1/6/2008# Then
Qtr = 1
frmAddClient.txtQtrLeave.Value = Qtr
... Qtr 2, 3 etc
It seems to return a value if I have one criteria but it doesn't work once I add the And element. What am I doing wrong (this has been driving me mad all morning)?
