Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Error runtime 438

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Error runtime 438

Postdi Spartacus85 » 13/09/13 10:18

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.
Spartacus85
Utente Junior
 
Post: 50
Iscritto il: 23/07/13 12:30

Sponsor
 

Re: Error runtime 438

Postdi scossa » 13/09/13 11:04

Spartacus85 ha scritto:
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
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 424
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: Error runtime 438

Postdi Spartacus85 » 13/09/13 12:17

:D ...Thanks
Spartacus85
Utente Junior
 
Post: 50
Iscritto il: 23/07/13 12:30

Re: Error runtime 438

Postdi Spartacus85 » 13/09/13 12:31

Ora in relata mi da errore 424...
Spartacus85
Utente Junior
 
Post: 50
Iscritto il: 23/07/13 12:30

Re: Error runtime 438

Postdi ricky53 » 13/09/13 12:38

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

L'errore l'hai su quale istruzione?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Error runtime 438

Postdi Spartacus85 » 13/09/13 13:52

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.
Spartacus85
Utente Junior
 
Post: 50
Iscritto il: 23/07/13 12:30

Re: Error runtime 438

Postdi ricky53 » 13/09/13 14:29

Ciao,
a questo punto: un file di esempio, senza dati riservati, ci potrebbe essere di aiuto per aiutarti ad arrivare alla soluzione del problema.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Error runtime 438":

errore runtime
Autore: alex34615
Forum: Software Windows
Risposte: 0

Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti