Error runtime 438

[Spartacus85]

Ciao a tutti.

Ho la seguente Macro, semplice, sicuramente non ottimizzata, ma di facile lettura.

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
Dim Month, Year As String
Dim i, YearNum As Integer
Set Ws1 = Worksheets("Foglio 1")

For i = 6 To 13
Month = Left(Cells(66, i + 12), 4)
Year = Right(Cells(66, i + 12), 2)
YearNum = CInt(Year)
YearNum = YearNum - 1
Year = CStr(YearNum)
Ws1.Cell(66,i).value = Month & Year
Next i

End Sub

La riga seguente mi genera l'errore 438.

Codice: Seleziona tutto

Ws1.Cell(66,i).value = Month & Year


Come mai? Non riesco a venirne a capo.

[scossa]

La riga seguente mi genera l'errore 438.

Codice: Seleziona tutto

Ws1.Cell(66,i).value = Month & Year


Come mai? Non riesco a venirne a capo.

Senza entrare nel merito del codice, la proprietà Cell non esiste, devi usare Cells:

Codice: Seleziona tutto

Ws1.Cells(66,i).value = Month & Year


[Spartacus85]

...Thanks

[Spartacus85]

Ora in relata mi da errore 424...

[ricky53]

Ciao,
il tuo codice ha qualcosa che non va bene ma, anch'io, non entro nei meriti.

L'errore l'hai su quale istruzione?

[Spartacus85]

Su questa istruzione ho l'errore:

Codice: Seleziona tutto

Ws1.Cells(66,i).value = Month & Year


Se al posto di questo codice inserisco

Codice: Seleziona tutto

Ws1.Range("F66").value = Month & Year


e il ciclo for lo faccio da i=6 to 6 (al posto di i=6 to 13) la formula funziona.

[ricky53]

Ciao,
a questo punto: un file di esempio, senza dati riservati, ci potrebbe essere di aiuto per aiutarti ad arrivare alla soluzione del problema.