Pagina 2 di 2 primaprima 1 2
Visualizzazione dei risultati da 11 a 14 su 14
  1. #11
    Utente di HTML.it
    Registrato dal
    Nov 2014
    Messaggi
    7
    si scusa avevo linkato il codice vecchio. comunque anche come mi hai detto tu mi da un errore
    123123123131414 sdfD1.jpg
    Immagini allegate Immagini allegate

  2. #12
    Utente di HTML.it
    Registrato dal
    Jan 2011
    Messaggi
    237
    Quote Originariamente inviata da cheta Visualizza il messaggio
    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
    codice:
    Sheets(sx2009).Cells(i, COLONNA_CHE_TI_PARE).value = anno
    Al posto di colonna_che_ti_pare devi mettere un numero, non "A1".
    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

  3. #13
    Utente di HTML.it
    Registrato dal
    Nov 2014
    Messaggi
    7
    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

  4. #14
    Utente di HTML.it
    Registrato dal
    Jan 2011
    Messaggi
    237
    Quote Originariamente inviata da cheta Visualizza il messaggio
    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..

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.