Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opening a Workbook
Below is the macro I am using that I have assigned to a
button that is located on a menu in Excel. I have this macro saved in Personal.Xls. I would like to add the code to it to check to see if Workbook Stats Manager.xls is open, and if it is not open, to open it from P:\Stats Manager.xls. After the workbook is open it needs to run the following code. Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opening a Workbook
I haven't tested the following, but it should (mostly) work:
Dim wb As Workbook On Error Resume Next Set wb = Workbooks("Stats Manager.xls") On Error GoTo 0 If wb Is Nothing Then set wb = Workbooks.Open ("P:\Stats Manager.xls") wb.Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly Keep in mind that if the data to be pasted was copied from Excel, most likely your macro will clear the clipboard and leave you with nothing to paste. -- Vasant "Todd Huttenstine" wrote in message ... Below is the macro I am using that I have assigned to a button that is located on a menu in Excel. I have this macro saved in Personal.Xls. I would like to add the code to it to check to see if Workbook Stats Manager.xls is open, and if it is not open, to open it from P:\Stats Manager.xls. After the workbook is open it needs to run the following code. Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opening a Workbook
Why would it clear the clipboard?
-----Original Message----- I haven't tested the following, but it should (mostly) work: Dim wb As Workbook On Error Resume Next Set wb = Workbooks("Stats Manager.xls") On Error GoTo 0 If wb Is Nothing Then set wb = Workbooks.Open ("P:\Stats Manager.xls") wb.Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly Keep in mind that if the data to be pasted was copied from Excel, most likely your macro will clear the clipboard and leave you with nothing to paste. -- Vasant "Todd Huttenstine" wrote in message ... Below is the macro I am using that I have assigned to a button that is located on a menu in Excel. I have this macro saved in Personal.Xls. I would like to add the code to it to check to see if Workbook Stats Manager.xls is open, and if it is not open, to open it from P:\Stats Manager.xls. After the workbook is open it needs to run the following code. Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opening a Workbook
Because Excel's copy and paste is quirky and needs very little encouragement
to clear the clipboard <g. I think you just need to try it out and make sure that there is something to paste. -- Vasant "Todd Huttenstine" wrote in message ... Why would it clear the clipboard? -----Original Message----- I haven't tested the following, but it should (mostly) work: Dim wb As Workbook On Error Resume Next Set wb = Workbooks("Stats Manager.xls") On Error GoTo 0 If wb Is Nothing Then set wb = Workbooks.Open ("P:\Stats Manager.xls") wb.Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly Keep in mind that if the data to be pasted was copied from Excel, most likely your macro will clear the clipboard and leave you with nothing to paste. -- Vasant "Todd Huttenstine" wrote in message ... Below is the macro I am using that I have assigned to a button that is located on a menu in Excel. I have this macro saved in Personal.Xls. I would like to add the code to it to check to see if Workbook Stats Manager.xls is open, and if it is not open, to open it from P:\Stats Manager.xls. After the workbook is open it needs to run the following code. Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opening a Workbook
Oh I tried and it works perfectly.
-----Original Message----- Because Excel's copy and paste is quirky and needs very little encouragement to clear the clipboard <g. I think you just need to try it out and make sure that there is something to paste. -- Vasant "Todd Huttenstine" wrote in message ... Why would it clear the clipboard? -----Original Message----- I haven't tested the following, but it should (mostly) work: Dim wb As Workbook On Error Resume Next Set wb = Workbooks("Stats Manager.xls") On Error GoTo 0 If wb Is Nothing Then set wb = Workbooks.Open ("P:\Stats Manager.xls") wb.Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly Keep in mind that if the data to be pasted was copied from Excel, most likely your macro will clear the clipboard and leave you with nothing to paste. -- Vasant "Todd Huttenstine" wrote in message ... Below is the macro I am using that I have assigned to a button that is located on a menu in Excel. I have this macro saved in Personal.Xls. I would like to add the code to it to check to see if Workbook Stats Manager.xls is open, and if it is not open, to open it from P:\Stats Manager.xls. After the workbook is open it needs to run the following code. Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly . . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Opening a Workbook
Good! Glad to hear it.
-- Vasant "Todd" wrote in message ... Oh I tried and it works perfectly. -----Original Message----- Because Excel's copy and paste is quirky and needs very little encouragement to clear the clipboard <g. I think you just need to try it out and make sure that there is something to paste. -- Vasant "Todd Huttenstine" wrote in message ... Why would it clear the clipboard? -----Original Message----- I haven't tested the following, but it should (mostly) work: Dim wb As Workbook On Error Resume Next Set wb = Workbooks("Stats Manager.xls") On Error GoTo 0 If wb Is Nothing Then set wb = Workbooks.Open ("P:\Stats Manager.xls") wb.Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly Keep in mind that if the data to be pasted was copied from Excel, most likely your macro will clear the clipboard and leave you with nothing to paste. -- Vasant "Todd Huttenstine" wrote in message ... Below is the macro I am using that I have assigned to a button that is located on a menu in Excel. I have this macro saved in Personal.Xls. I would like to add the code to it to check to see if Workbook Stats Manager.xls is open, and if it is not open, to open it from P:\Stats Manager.xls. After the workbook is open it needs to run the following code. Worksheets(1).Range("C5").Select ActiveSheet.Paste MsgBox "Data Pasted!", vbOKOnly . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I stop blank workbook from opening when opening an existing | Excel Discussion (Misc queries) | |||
when opening an Excel Workbook, another blank workbook also opens | Excel Discussion (Misc queries) | |||
when opening an Excel Workbook, another blank workbook also opens | Excel Discussion (Misc queries) | |||
Preventing opening workbook inside active workbook. | Excel Programming | |||
Question for Experts: Opening workbook with workbook references | Excel Programming |