Risultati da 1 a 7 di 7

Discussione: Errore run-time n. 13 Tipo non corrispondente



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6771
    Versione Office
    2013
    Likes ricevuti
    716
    Likes dati
    164

    Errore run-time n. 13 Tipo non corrispondente

    Ciao a tutti e scusate per il titolo forse poco esplicativo.

    Ho questa routine che mi dovrebbe visualizzare in un msgbox il numero dell'ultima riga piena in ciascun foglio.

    Codice: 
    Sub prova()
    Dim sh As Worksheet
    Dim ur As Integer
    For Each sh In ThisWorkbook.Sheets
        ur = Worksheets(sh).Cells(Rows.Count, 1).End(xlUp).Row
        MsgBox ur
    Next sh
    End Sub
    Purtroppo mi dà l'errore in oggetto su questa riga

    Codice: 
    ur = Worksheets(sh).Cells(Rows.Count, 1).End(xlUp).Row
    Dove sbaglio?

    Allego file

    Alfredo
    File Allegati File Allegati

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao Alfredo,
    ho solo il cell e non posso provare l'allegato...

    non è che il numero di riga supera il limite dell' integer?
    Prova a definire "ur" come "long".

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. I seguenti utenti hanno dato un "Like"


  4. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6771
    Versione Office
    2013
    Likes ricevuti
    716
    Likes dati
    164
    Tore grazie della risposta ma non è quello il problema.

    Anche mettendo Variant il risultato non cambia.

    Alfredo

  5. #4

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1011
    Versione Office
    .
    Likes ricevuti
    365
    Likes dati
    0
    E' sbagliato Worksheets(sh): sh è il foglio

    ur = sh.Cells(Rows.Count, 1).End(xlUp).Row

    P.S.: comunque ur deve essere dichiarata Long.

  6. I seguenti utenti hanno dato un "Like"


  7. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6771
    Versione Office
    2013
    Likes ricevuti
    716
    Likes dati
    164
    Questa invece funziona

    Codice: 
    Sub prova2()
    Dim ur As Long
    Dim i As Integer
    For i = 1 To Worksheets.Count
        ur = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
        MsgBox ur
    Next i
    End Sub
    ma vorrei capire perché la precedente non va.

    Alfredo

  8. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6771
    Versione Office
    2013
    Likes ricevuti
    716
    Likes dati
    164
    Hai ragione Marco mi sono perso in un bicchier d'acqua.

    E dire che quella istruzione l'avrò vista miliardi di volte.

    Grazie

    Alfredo

  9. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Giusto Marco,
    non avevo fatto caso al foglio "sh"...

    parafrasando una frase sentita nel nuovo telefilm "Mr. Robot" :
    "il debug non consiste tanto nel trovare dove sia l'errore, quanto capire il perchè ci sia l'errore".:288:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  10. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. [Risolto] Errore Run time 13 se aggiungo righe in menù a tendina
    Di Kiter nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 17/10/16, 10:24
  2. Errore run-time 62
    Di yoghi87 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 06/10/16, 13:26
  3. Errore run-time 9 Indice non incluso nell'intervallo: Help
    Di Giuspy82 nel forum Domande su Excel VBA e MACRO
    Risposte: 27
    Ultimo Messaggio: 20/09/16, 10:12
  4. Errore di run-time 424
    Di Khan nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 15/05/16, 16:50
  5. Errore run-time 1004
    Di revenge9 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 05/11/15, 10:52

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •