run time error with calendar

  • Thread starter Thread starter ceplane
  • Start date Start date
C

ceplane

I am using excel 2000. I have a userform and is using acxcalendar lik
a text box to aid the user on dates.
While running I get an error 438 message. I don't understand why.
can use some advice from the experts.
Thank you.

Private Sub CompeButton_Click()
Sheet2.Activate
Range("K3").Activate
ActiveCell.Offset(0, 0).Value = "23"

Range("G3").Activate
ActiveCell.Offset(0, 0).Value = Calendar1.Value
ActiveCell.Offset(0, 1).Value = Calendar2.Value
ActiveCell.Offset(0, 2).Value = Starttime.Value
ActiveCell.Offset(0, 3).Value = Endtime.Value
ActiveCell.Offset(0, 5).Value = Comment.Value


Set rng = Range("A3:E366")
For Each rcel In rng
If rcel.Value > 1 Then
rcel.Formula = rcel.Formula
Else
rcel.Formula = rcel.Value
End If
Next rce
 
I suspect an error on the .value properties of the calendar object. Check
that these exist for the control you are using.

It might be more like????

Calendar1.StartTime

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)
 
Nick,
I've tried using Calendar1.StartTime in the formula. I get the erro
on that statement too. ?????? I'm missing the connection somewhere
 
It is still difficult to know without knowing the exact control you are
using as there are many, all with different properties, methods, etc.

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)
 
Back
Top