This file works perfect on my main computer, but will not work on my wifes machine. Both machines have the same Excel program. Maybe I have downloaded a addon, just not sure. On the machine that it does not work I get Could not load object because it is not available on this machine.
View 3 Replies
Borowed This Code From The Site And Indeed It Comes In Very Handy .....
View 9 Replies View RelatedIs it hard too add a popup calendar too my date box. Can it go too year 2075?
When you open the calendar you could click on date too install.
I followed this guide for a popup calendar
How can adjust this so the calendar popups to the right of the cell thats called it. At present it just pops up in the middle of the screen.
using this code ....
View 14 Replies View RelatedIs there a way to add a popup calendar to a user form? I have tried the Calendar 12.0 but I would like a popup calendar for users to click on.
View 4 Replies View RelatedI need to popup a calendar when user clicks on a cell.
I am using the internal add-in MScal 8.0 but can only insert date
my clicking on a cell and activating the macro.
also is there a way if user selects enable macros on digital certificates
that the addin can be selected automaticly for the user?
Is there a way to choose the date to be entered into a cell by having a basic calander pop up and clicking the desired date ?
View 7 Replies View RelatedIs it possible to have a cell "pop up" a calendar for users to pick a date from and have that date entered into the cell?
I have popup calendar in a spread sheet that works fine until I share the film which produces the error in the title. Here is the code for the calender:
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
'ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End Sub
[Code] ...........
writing the correct command to auto popup a calendar when a user doubleclicks in any cell in a range of cells. I have the code for individual cells but would like to apply to a very large range of cells and do not know what the correct command is.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$C$160", "$C$161", "$C$162", "$C$163"
Cancel = True
Call OpenCalendar
End Select
End Sub
Got this neat Calendar from another thread on this site,but it has problems. Played around with what little skills I have with no luck. When you open the calendar go to Jan, 1992 click on first four days and everything works. When you click on Thu 2 the problem begins.
View 14 Replies View RelatedThis is a shared worksheet. When I look at it I can manipulate the calendar, but for others it is just a non-interactive image.
I'm sure this has something to do with them not having this control in their computer, but is there a work around?
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 am using a great pop up calendar without ActiveX made by a guy called Phil Johnson. When you click a specified cell the calendar appears. The only problem is that the calendar doesn't default to today's date when it opens.
I have the original file Calendar source code if anyone needs it.
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 workbook in excel 2003 which I had been running the following macros (listed below). We recently upgraded to Excel 07, and neither are working. When I try to run them, the "debug" option highlights the following line in the sort macro "Range("A2:z" & lastcell).Sort key1:=.Columns(1)". This is driving me crazy, as the macros worked perfectly under the older version of Microsoft. Is there an issue with crossfunctionality between '03 and '07'.
Private Sub Worksheet_change(ByVal target As Excel.Range)
If target.Column = 1 Then
ThisRow = target.Row
startRow = 1
i = 1
Set ws = ActiveSheet
maxRow = Cells.SpecialCells(xlLastCell).Row
maxCol = Cells.SpecialCells(xlLastCell).Column
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
Do While i
In cell a3 user selects yes or no. Then in cell b3, if they selected yes for a3, a pop up box should appear which asks for a value (1-100), and if they selected no for a3, then b3 automatically becomes zero. How can I do this.
I have a macro that deletes the row where the active cell is on. Works perfectly.
I want to have my macro display a pop-up box that gives the user the option to either delete or not delete the row.
I would like the question to read . . . Are You Sure You Want To Delete?
I'm trying to write a code (and I have little to no knowledge of VBA!) so that when a line is inserted onto any worksheet in the workbook a msgbox appears....
Trying to get it myself I created this- it's probably COMPLETELY wrong, like I've mentioned I have little to no knowledge and just using websites/other codes I've seen to put this together... o.O
How do you create a pop-up box that opens every time a specific worksheet is activated that asks "What was the first month of activity?" The month that is entered needs to populate in Cell "A7". I also want the 11 months following the answer to the above pop up box to populate in cells A8-A18.
View 7 Replies View Relatedto create a macro that will launch a pop up box once cell B5's value is equal to "3".
I need the pop-up box to say, "You win the game!"
I'd like to have a warning message pop up if the value of column AF is 3 or less.
Column AF is counting entries in columns E:I by using the formula
=COUNTBLANK(E1:I1)
to create the value
A value of 5 is OK (no data in E to I), and 4 is also fine (just one entry in E to I) A value of 3 or less, indicating more than one column in E to I having data, needs to display the message. Presently I have a conditional format on another column to display red background when AF is 3 or less, but it's a little ambiguous, so a message would be neater!
I like to know if this can be done. The entry of data for cell A3 is from a pre-determined list. I like to create a Userform to allow the user to select from this form. the idea is to have this form popup whenever cell A3 is selected.
View 9 Replies View RelatedCodes are entered manually only in Column A starting at A1..A10000+ ranges.
As Unique codes are entered ie. 1234 or 2345 or 3456 in the next empty cell down,
I need a specific popup message for each of the three codes instructing the user what to do next.
I script that on open would pop up asking if a sync was done with an option for yes or no. If yes is pressed then it would just open, if no selected it would give a message "must sync before use" and close the workbook.
I do not want this message to pop up when other spreadsheets are open when this one is still open so im guessing private workbook_open
I am designing a program which basically calls another program for all dates back to a specified time. Certain dates will not have data and there will be a pop-up message saying something along those lines.
What I want is a way for VBA to "know" there has been an error message (so I can set a boolean to true or false so I can do an if tree) and then also a way to click "OK" to proceed through the error message.
I've got a data sheet (called "data") which contain a bunch of data, if someone edits the data manually then a msg boxpopups. which i've done using the code below in the code on that tab. However, I also have vba that places data on the tab that also triggers the popup message.
So how do i make it such that if the vba is run then the popup doesnt appear but if they edit the data manually then it does?
VB:
Sub Worksheet_Change(ByVal Target As Range)
Dim WatchRange As Range
Dim IntersectRange As Range
[Code].....
Is it possible to create a popup window that contains drawing objects?
I created a "form" with the objects, but I don't know how to use the form.
I want to have this image, or form, or whatever it is, to popup when the user clicks a cell. Is this possible without getting into programming?
Can it be hidden and then made visible when the cell is selected?
