Wookbook Update
No, I have 4 Workbooks open. So no matter which one it is, I still get the
same error message. It has to be one of them.
1: Master_Engineering_Spec.xls (Excel 97-2003 Workbook)
2: Master_Engineering_Spec.xlsm (Excel -Macro-Enabled Workbook)
3: Master_Engineering_Spec.xlsx (Excel 2007 Workbook)
4: Master_Engineering_Spec.xltm (Excel -Macro-Enabled Template)
When I look at the VBAProject the sheets are shown as Sheet01 (Cover Sheet)
On the Tab in the Work Book, the tab say's Cover Sheet
What did I miss here?
"Tim Williams" wrote:
Sounds like you do not have an open workbook with that name, or if you do,
it doesn't have a sheet with that name.
Assuming you get the error on the "With..." line.
Tim
"Brian" wrote in message
...
I added the .Value
Here is the code
' Update Engineering Spec Button
Private Sub Update_Engineer_Spec_8_Click()
With Workbooks("Master_Engineering_Spec.xls").Sheets("C over Sheet")
.Range("D19").Value = Me("Location_4").Value
.Range("D20").Value = Me("Address_41").Value
End With
End Sub
I get the following error message, Run-Time Error"9": Subsciprt out of
range
I removed the .xls extension and still the same error message
"JLGWhiz" wrote:
You night also need to add .Value after your TextBox and ComboBox.
.Range("D19").Value = Me("Location_4").Value
.Range("D20").Value = Me("Address_41").Value
I think that if it was the file extension, you would be getting a
"Subscript
out of range" message, unless you have alerts turned off.
"Brian" wrote in message
...
I have a Work Book that only contains a User Form in it. This User Form
is
for Updating 3 other Work Books. In my User Form I have a Control
Button
named "Update_Engineer_Spec_8". When I fill in the information on the
User
Form I click the Update Button and it fills in the Cells on the other
Work
Book.
Control Button name is "Update_Engineer_Spec_8"
User Form Name is "UserForm1
Text Box name is "Location_4"
Combo Box name is "Address_41"
Workbook name is "Master_Engineering_Spec"
Workbook Sheet name is "Cover Sheet"
This is the code I have, but for some reason the Work Book "Master
Engineering Spec" does not Update when the Control Button is clicked.
What
did I do incorrectly?
' Update Engineering Spec Button
Private Sub Update_Engineer_Spec_8_Click()
With Workbooks("Master Engineering Spec").Sheets("Cover Sheet")
.Range("D19").Value = Me("Location_4")
.Range("D20").Value = Me("Address_41")
End With
End Sub
Thanks
B
.
.
|