Thread
:
Program no longer work on Excel 2003
View Single Post
#
5
Posted to microsoft.public.excel.programming
gvlral
external usenet poster
Posts: 3
Program no longer work on Excel 2003
Hello,
I'm experiencing the a similar type problem with Excel 2003, I will write a
line of code using the
VB
Editor an it won't run. However, when I use the
Record A Macro to generate the exact same line then copy/paste it in. The
code will run without a problem !!!! Apparently something has changed!!!
Regards,
gvlral
"maxifire " wrote in message
...
Hi!
Sorry for the late reply. That's what I did but it seems like MS Office
Web Components is missing. I tried downloading and reinstalling the
component from microsoft.com but it doesn't seem to help.
Could there be any change in the way of coding in Excel 2003?
Rgds
Mark Rosenkrantz wrote:
*Maxfire;
It seems to me that one of the references in VBA is not longer
available or
valid.
I think the first is the case.
Check that in the VBE editor in :
Tools | References
Check for a checkmark for the desired project or library in the
available
references dialogbox.
Mark.
--
More Excel ?
www.rosenkrantz.nl
or
--------------------------------------------------------------------
"maxifire " wrote in
message
...
Hi, I've been running this VBA program on Excel 2002 for quite some
time
until I've upgraded one of my computers to Excel 2003 and the
program
would generate an error:
Compile Error:
Can't find project or library.
May I know how do I go about solving this problem? Thanks!
Here's the code I use.
---
Sub OkBtn_Click()
Dim b As Integer
Dim uid As String ' a = userid
Dim pwd As String ' c = password
uid = UserNameTB.Value
pwd = PasswordTB.Value
Sheets("EmpList").Select
For b = 2 To 100
Cells(b, 2).Select
If ActiveCell.Value = uid Then
If ActiveCell.Offset(0, 1).Value = pwd Then
chkGrp
Else
MsgBox ("Invalid Password")
Unload Me
End If
Else:
End If
ActiveCell.Offset(1, 0).Select
Next b
Cells(1, 1).Select
End Sub
Sub chkGrp()
Sheets("EmpList").Activate
With TimesheetEntry.TSENameCB
For Row = 7 To 106
TimesheetEntry.TSENameCB.AddItem
Sheets("EmpList").Cells(Row, 2)
Next Row
End With
If ActiveCell.Offset(0, 2).Value = "N" Then
Unload Me
TimesheetEntry.TSENameCB.Text = UserNameTB.Value
TimesheetEntry.Show
ElseIf ActiveCell.Offset(0, 2).Value = "A" Then
Unload Me
TimesheetEntry.TSENameCB.Text = UserNameTB.Value
LoginOption.Show
End If
End Sub
---
Thanks!
---
Message posted from
http://www.ExcelForum.com/
*
---
Message posted from
http://www.ExcelForum.com/
Reply With Quote
gvlral
View Public Profile
Find all posts by gvlral