si scusa avevo linkato il codice vecchio. comunque anche come mi hai detto tu mi da un errore
123123123131414 sdfD1.jpg
si scusa avevo linkato il codice vecchio. comunque anche come mi hai detto tu mi da un errore
123123123131414 sdfD1.jpg
Le immagini sono piccole e non si vede..
Fai prima a postare il codice che usi, scrivendo il testo dell'errore e la riga che ti da il problema. Comunque a occhio l'errore sta
Al posto di colonna_che_ti_pare devi mettere un numero, non "A1".codice:Sheets(sx2009).Cells(i, COLONNA_CHE_TI_PARE).value = anno
In pratica gli devi dire in che colonna mettere il valore ha calcolato. Metti la prima colonna libera che hai nel tuo file xls, che sennò ti sovrascrive un dato che ti serve.
Vedi?
http://msdn.microsoft.com/en-us/libr...ffice.15).aspx
Sub Ovale1_Click()
Dim i As Integer
Dim anno As Integer
i = 1
Do While Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then
anno = Val(Mid(Cells(i, 1), 8, 2))
Sheets(sx2009).Cells(i, 2).Value = anno
End If
i = i + 1
Loop
End Sub
errore di runtime'9'
indice non incluso nell'intervallo
D'accordo.. Vuol dire che gli passi un indice "fuori scala", un valore che non esiste...
Ma su quale istruzione? Sai fare il debug del codice?
Cioè, dal'editor di VBA, posizioni il cursore tra il testo della sub e premi F8. In questo modo ti fa eseguire una istruzione alla volta. Continua a fare F8 vedrai una freccia gialla scendere man mano fino a che ti da l'errore. Magari non è la prima riga di codice, ma la 2, la terza.. Magari a un certo punto i dati non sono conformi alla tua struttura e si incasina qualcosa..
Magari anche nella funzione Mid, gli dici di prenderti il carattere 8-9-10 ma la cella contiene solo 3 caratteri..
E sono solo ipotesi..