R
Romolo
Hi,
the following macro has always worked fine in XL 200 and 2003 environments,
and is still working well in XL 2003 SP3, BUT, once executed at this level
and then exported down to both the previous XL level systems, it stops al
the ***** signalled code, being unable to resolve the DATE instruction (?!?!).
Have you ever heard something like that?
Thanks in advance for any help
Romolo
Private Function evento(ByVal classe As String, StPoint As Integer) As Integer
Application.Volatile
'restituisce il puntatore dell'evento nella lista degli eventi inseriti in
Calendario
On Error GoTo handlerror
Dim errdes As String
Dim Lista_Eventi As Range
Dim Classi As Range
Dim Rientri As Range
Dim Rientro As Date
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim test As String
Set Classi = ThisWorkbook.Worksheets("CSorted").Range("H3:L200")
Set Lista_Eventi = ThisWorkbook.Worksheets("CSorted").Range("D3200")
Set Rientri = ThisWorkbook.Worksheets("CSorted").Range("G3:G200")
StPoint = StPoint + 1
For i = StPoint To 200 'i = puntatore lista eventi = n. riga
If Not IsDate(Rientri(i)) Then
Exit Function
Else
Rientro = Rientri(i)
End If
'*****************
If Rientro < Date Then GoTo ispassed 'HERE it stops
'*****************
For j = 1 To 5 'J = puntatore classi partecipanti all'evento = n.
colonna
test = UCase(Classi(i, j))
test = Trim(test)
If test = "" Then Exit For
If classe = test Then
evento = i
Exit Function
End If
Next j
ispassed:
Next i
evento = 0
Exit Function
handlerror:
errdes = Err.Description
End Function
the following macro has always worked fine in XL 200 and 2003 environments,
and is still working well in XL 2003 SP3, BUT, once executed at this level
and then exported down to both the previous XL level systems, it stops al
the ***** signalled code, being unable to resolve the DATE instruction (?!?!).
Have you ever heard something like that?
Thanks in advance for any help
Romolo
Private Function evento(ByVal classe As String, StPoint As Integer) As Integer
Application.Volatile
'restituisce il puntatore dell'evento nella lista degli eventi inseriti in
Calendario
On Error GoTo handlerror
Dim errdes As String
Dim Lista_Eventi As Range
Dim Classi As Range
Dim Rientri As Range
Dim Rientro As Date
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim test As String
Set Classi = ThisWorkbook.Worksheets("CSorted").Range("H3:L200")
Set Lista_Eventi = ThisWorkbook.Worksheets("CSorted").Range("D3200")
Set Rientri = ThisWorkbook.Worksheets("CSorted").Range("G3:G200")
StPoint = StPoint + 1
For i = StPoint To 200 'i = puntatore lista eventi = n. riga
If Not IsDate(Rientri(i)) Then
Exit Function
Else
Rientro = Rientri(i)
End If
'*****************
If Rientro < Date Then GoTo ispassed 'HERE it stops
'*****************
For j = 1 To 5 'J = puntatore classi partecipanti all'evento = n.
colonna
test = UCase(Classi(i, j))
test = Trim(test)
If test = "" Then Exit For
If classe = test Then
evento = i
Exit Function
End If
Next j
ispassed:
Next i
evento = 0
Exit Function
handlerror:
errdes = Err.Description
End Function