Charles Chung
10-25-2004, 07:13 PM
I developed a macro in my Office Pro 2003 and it works fine. But my users are using Office XP & Mac Office 2004.
It works fine in XP platform and most of the buttons work fine for Office 2004 too, but except for the following:
I created a commandbarbutton called "Add Record". When the users clicks it, a form pops out and there is a combo box (pull-down menu) and a OK button inside. In the combo box's rowsource property, I set it to "Category_Items", which I have already defined by selecting "E10:E20" and giving it that name.
If the user selects the combo box in Office XP, he can see the items SHORTS, T-SHIRTS, SKIRTS inside. And after he clicks OK button, a row will be inserted and the values of the combo box will be copied to the worksheet.
But if you open it in Excel 2004, there would be nothing for you to choose in the combo box and when you click the OK button, you will receive an error...
Any comments are greatly appreciated! Thanks in advance!
The code of the OK button is as follows:
Public Sub cmdOK_Click()
Dim CurrentRow As Integer
Dim CopyRow As Integer
Dim Ws As Worksheet
Set Ws = ActiveWorkbook.ActiveSheet
'UnProtectSheet Ws 'wsPurchaseOrder
CopyRow = 16
CurrentRow = wsControl.Range("Record_CurrentRow")
'Copy a row from template
wsTemplate.Rows(CopyRow & ":" & CopyRow).Copy
Ws.Rows(CurrentRow & ":" & CurrentRow).Insert Shift:=xlDown
Ws.Cells(CurrentRow, D_) = cbxCategory.Value
CurrentRow = CurrentRow + 1
wsControl.Range("Record_CurrentRow") = CurrentRow
'ProtectSheet Ws 'wsPurchaseOrder
frmRecordDetail.Hide
End Sub
It works fine in XP platform and most of the buttons work fine for Office 2004 too, but except for the following:
I created a commandbarbutton called "Add Record". When the users clicks it, a form pops out and there is a combo box (pull-down menu) and a OK button inside. In the combo box's rowsource property, I set it to "Category_Items", which I have already defined by selecting "E10:E20" and giving it that name.
If the user selects the combo box in Office XP, he can see the items SHORTS, T-SHIRTS, SKIRTS inside. And after he clicks OK button, a row will be inserted and the values of the combo box will be copied to the worksheet.
But if you open it in Excel 2004, there would be nothing for you to choose in the combo box and when you click the OK button, you will receive an error...
Any comments are greatly appreciated! Thanks in advance!
The code of the OK button is as follows:
Public Sub cmdOK_Click()
Dim CurrentRow As Integer
Dim CopyRow As Integer
Dim Ws As Worksheet
Set Ws = ActiveWorkbook.ActiveSheet
'UnProtectSheet Ws 'wsPurchaseOrder
CopyRow = 16
CurrentRow = wsControl.Range("Record_CurrentRow")
'Copy a row from template
wsTemplate.Rows(CopyRow & ":" & CopyRow).Copy
Ws.Rows(CurrentRow & ":" & CurrentRow).Insert Shift:=xlDown
Ws.Cells(CurrentRow, D_) = cbxCategory.Value
CurrentRow = CurrentRow + 1
wsControl.Range("Record_CurrentRow") = CurrentRow
'ProtectSheet Ws 'wsPurchaseOrder
frmRecordDetail.Hide
End Sub