Salve a tutti,
ho il seguente codice:
codice:
Sub Trova ()
Application.ScreenUpdating = False
Data = CDate(TextBox1)
Dim CL As Object
zona = Range(Range("U88"), Range("U88").End(xlDown))
For Each CL In zona
If CL = Data Then
W = CDate(CL.Offset(0, 1).Value)
ComboBox1.AddItem W
ComboBox1.AddItem CL.Offset(0, 2).Value
i = i + 1  'la variabile "i" è il contatore
End If
Next
If i > 0 Then
MsgBox "Sono Presenti " & i & " lavori"
Else
MsgBox "Nessun lavoro per questa data"
End If
Application.ScreenUpdating = True
End Sub
all'avvio della macro, mi scirve Errore: Necessario Oggetto, evidenziandomi la stringa:
codice:
For Each CL In zona
Non caipsco ma l'oggetto non l'ho già dichiarato con "Dim CL As Object" ?? Sempre se è a quello e non a "zona" che si riferisce.
Grazie.