Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Select Excel 2000 & 2003
Hello,
Worksheet3 rowB cells8-15, I need each cell when clicked in to call Macro PERSONAL.XLS!OpenCalendar (popup calendar) and select the cell so that when the date is clicked on the calendar it will be inserted in the click cell. To get the each cell active I've placed a rectangle to call the PERSONAL.XLS!OpenCalendar (popup calendar). But, with the code below when I click in cell 8-14 it always selects cell15. How can the code be changed so that when I click in cell 8-14 it will be selected to insert the date from the popup calendar? Sub CellDateActivate() With ActiveSheet.Shapes("Rectangle 4").Select Range("B8").Select End With With ActiveSheet.Shapes("Rectangle 5").Select Range("B9").Select End With With ActiveSheet.Shapes("Rectangle 6").Select Range("B10").Select End With With ActiveSheet.Shapes("Rectangle 7").Select Range("B11").Select End With With ActiveSheet.Shapes("Rectangle 8").Select Range("B12").Select End With With ActiveSheet.Shapes("Rectangle 9").Select Range("B13").Select End With With ActiveSheet.Shapes("Rectangle 10").Select Range("B14").Select End With With ActiveSheet.Shapes("Rectangle 11").Select Range("B15").Select End With Application.Run "PERSONAL.XLS!OpenCalendar" End Sub Thank you for your help in advance, jfcby |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Select Excel 2000 & 2003
Is this what you mean ?
No need for all those shapes then. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B8:B15")) Is Nothing Then Application.EnableEvents = False Target(1).Select Application.EnableEvents = True Application.Run "PERSONAL.XLS!OpenCalendar" End If End Sub NickHK "jfcby" wrote in message ups.com... Hello, Worksheet3 rowB cells8-15, I need each cell when clicked in to call Macro PERSONAL.XLS!OpenCalendar (popup calendar) and select the cell so that when the date is clicked on the calendar it will be inserted in the click cell. To get the each cell active I've placed a rectangle to call the PERSONAL.XLS!OpenCalendar (popup calendar). But, with the code below when I click in cell 8-14 it always selects cell15. How can the code be changed so that when I click in cell 8-14 it will be selected to insert the date from the popup calendar? Sub CellDateActivate() With ActiveSheet.Shapes("Rectangle 4").Select Range("B8").Select End With With ActiveSheet.Shapes("Rectangle 5").Select Range("B9").Select End With With ActiveSheet.Shapes("Rectangle 6").Select Range("B10").Select End With With ActiveSheet.Shapes("Rectangle 7").Select Range("B11").Select End With With ActiveSheet.Shapes("Rectangle 8").Select Range("B12").Select End With With ActiveSheet.Shapes("Rectangle 9").Select Range("B13").Select End With With ActiveSheet.Shapes("Rectangle 10").Select Range("B14").Select End With With ActiveSheet.Shapes("Rectangle 11").Select Range("B15").Select End With Application.Run "PERSONAL.XLS!OpenCalendar" End Sub Thank you for your help in advance, jfcby |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Select Excel 2000 & 2003
Hello NickHK,
Thank you for the modifed code it works but after the date is entered in B8 it goes to B2 and scrolls through all the cells B8:B15. Is there a way to add a msgbox with the option to exit sub or enter another date in next cell? Thank you for your help, jfcby NickHK wrote: Is this what you mean ? No need for all those shapes then. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B8:B15")) Is Nothing Then Application.EnableEvents = False Target(1).Select Application.EnableEvents = True Application.Run "PERSONAL.XLS!OpenCalendar" End If End Sub NickHK "jfcby" wrote in message ups.com... Hello, Worksheet3 rowB cells8-15, I need each cell when clicked in to call Macro PERSONAL.XLS!OpenCalendar (popup calendar) and select the cell so that when the date is clicked on the calendar it will be inserted in the click cell. To get the each cell active I've placed a rectangle to call the PERSONAL.XLS!OpenCalendar (popup calendar). But, with the code below when I click in cell 8-14 it always selects cell15. How can the code be changed so that when I click in cell 8-14 it will be selected to insert the date from the popup calendar? Sub CellDateActivate() With ActiveSheet.Shapes("Rectangle 4").Select Range("B8").Select End With With ActiveSheet.Shapes("Rectangle 5").Select Range("B9").Select End With With ActiveSheet.Shapes("Rectangle 6").Select Range("B10").Select End With With ActiveSheet.Shapes("Rectangle 7").Select Range("B11").Select End With With ActiveSheet.Shapes("Rectangle 8").Select Range("B12").Select End With With ActiveSheet.Shapes("Rectangle 9").Select Range("B13").Select End With With ActiveSheet.Shapes("Rectangle 10").Select Range("B14").Select End With With ActiveSheet.Shapes("Rectangle 11").Select Range("B15").Select End With Application.Run "PERSONAL.XLS!OpenCalendar" End Sub Thank you for your help in advance, jfcby |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Select Excel 2000 & 2003
The B2 selection must be happening in some other code. If you don't want
that to happen, delete that code. You don't to call your "CellDateActivate" routine now, do you ? NickHK "jfcby" wrote in message ups.com... Hello NickHK, Thank you for the modifed code it works but after the date is entered in B8 it goes to B2 and scrolls through all the cells B8:B15. Is there a way to add a msgbox with the option to exit sub or enter another date in next cell? Thank you for your help, jfcby NickHK wrote: Is this what you mean ? No need for all those shapes then. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B8:B15")) Is Nothing Then Application.EnableEvents = False Target(1).Select Application.EnableEvents = True Application.Run "PERSONAL.XLS!OpenCalendar" End If End Sub NickHK "jfcby" wrote in message ups.com... Hello, Worksheet3 rowB cells8-15, I need each cell when clicked in to call Macro PERSONAL.XLS!OpenCalendar (popup calendar) and select the cell so that when the date is clicked on the calendar it will be inserted in the click cell. To get the each cell active I've placed a rectangle to call the PERSONAL.XLS!OpenCalendar (popup calendar). But, with the code below when I click in cell 8-14 it always selects cell15. How can the code be changed so that when I click in cell 8-14 it will be selected to insert the date from the popup calendar? Sub CellDateActivate() With ActiveSheet.Shapes("Rectangle 4").Select Range("B8").Select End With With ActiveSheet.Shapes("Rectangle 5").Select Range("B9").Select End With With ActiveSheet.Shapes("Rectangle 6").Select Range("B10").Select End With With ActiveSheet.Shapes("Rectangle 7").Select Range("B11").Select End With With ActiveSheet.Shapes("Rectangle 8").Select Range("B12").Select End With With ActiveSheet.Shapes("Rectangle 9").Select Range("B13").Select End With With ActiveSheet.Shapes("Rectangle 10").Select Range("B14").Select End With With ActiveSheet.Shapes("Rectangle 11").Select Range("B15").Select End With Application.Run "PERSONAL.XLS!OpenCalendar" End Sub Thank you for your help in advance, jfcby |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Select Excel 2000 & 2003
Hello NickHK,
Thank you for your help! When I deleted the retangles that had the CellDateActivate macro assigned to it that fixed the problem. Thank you, jfcby NickHK wrote: The B2 selection must be happening in some other code. If you don't want that to happen, delete that code. You don't to call your "CellDateActivate" routine now, do you ? NickHK "jfcby" wrote in message ups.com... Hello NickHK, Thank you for the modifed code it works but after the date is entered in B8 it goes to B2 and scrolls through all the cells B8:B15. Is there a way to add a msgbox with the option to exit sub or enter another date in next cell? Thank you for your help, jfcby NickHK wrote: Is this what you mean ? No need for all those shapes then. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B8:B15")) Is Nothing Then Application.EnableEvents = False Target(1).Select Application.EnableEvents = True Application.Run "PERSONAL.XLS!OpenCalendar" End If End Sub NickHK "jfcby" wrote in message ups.com... Hello, Worksheet3 rowB cells8-15, I need each cell when clicked in to call Macro PERSONAL.XLS!OpenCalendar (popup calendar) and select the cell so that when the date is clicked on the calendar it will be inserted in the click cell. To get the each cell active I've placed a rectangle to call the PERSONAL.XLS!OpenCalendar (popup calendar). But, with the code below when I click in cell 8-14 it always selects cell15. How can the code be changed so that when I click in cell 8-14 it will be selected to insert the date from the popup calendar? Sub CellDateActivate() With ActiveSheet.Shapes("Rectangle 4").Select Range("B8").Select End With With ActiveSheet.Shapes("Rectangle 5").Select Range("B9").Select End With With ActiveSheet.Shapes("Rectangle 6").Select Range("B10").Select End With With ActiveSheet.Shapes("Rectangle 7").Select Range("B11").Select End With With ActiveSheet.Shapes("Rectangle 8").Select Range("B12").Select End With With ActiveSheet.Shapes("Rectangle 9").Select Range("B13").Select End With With ActiveSheet.Shapes("Rectangle 10").Select Range("B14").Select End With With ActiveSheet.Shapes("Rectangle 11").Select Range("B15").Select End With Application.Run "PERSONAL.XLS!OpenCalendar" End Sub Thank you for your help in advance, jfcby |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Select the first cell of the last row in a range - Excel 2003 | New Users to Excel | |||
Excel 2000 Cell Comments Did Not Carry Over from Office 2003 | Excel Discussion (Misc queries) | |||
Change cell value Excel 2000 & 2003 | Excel Programming | |||
Excel 2000 and 2003 stuck in cell | Setting up and Configuration of Excel | |||
Cell Protection over Excel 2000 and 2003 | Excel Discussion (Misc queries) |