vba sheets



  • vba sheets
    di kcpastore data: 14/02/2015 21:50:33

    Buona sera tutti ed un ben tornato a Vecchio Frac.
    Avrei una domanda da porvi.
    Ho installato OFFICE 2013, funziona benissimo tranne un piccolo problema con il codice vba SHEETS.
    Mi spiego meglio, subito dopo vi posto anche il codice, in pratica alla fine della SUB dovrebbe passare ad un altro foglio ma mi da il seguente errore: "" ERRORE DI RUN-TIME 57121 - ERRORE DEFINITO DALL'APPLICAZIONE O DALL'OGGETTO """ come posso risolvere questo problema???
    Grazie in anticipo e vi auguro un buon fine settimana.


     
    Dim messaggio, titolo
    Dim NUMERO As Integer
    titolo = "STAMPA ATTESTAZIONE FATTURA"
    messaggio = "INSERISCI NUMERO D'ORDINE CHE SI INTENDE RISTAMPARE"
    valore = InputBox(messaggio, titolo)
    If valore = "" Then Exit Sub
    Range("G1").Select
    ActiveCell = valore
    NUMERO = valore
    Select Case valore
    Case NUMERO = 0
    Exit Sub
    
    Case NUMERO = 1
    Range("B2:E2").Select
    '=================================================================
    End Select
    
    
    Selection.Copy
    
        Range("K1").Select
        ActiveSheet.Paste
        Range("G1").ClearContents
        
    Sheets("NUOVA_BOLLETTA").Select       ----qui si blocca e da l'errore sopra indicato.
        Range("B29:D29").Select
    
    Application.CutCopyMode = False



  • di isy data: 14/02/2015 22:06:13

    Ciao

    Con OFFICE 2013, il codice funziona benissimo.
    Allega un file d'esempio che riporti il problema



  • di Vecchio Frac data: 14/02/2015 22:09:58

    cit. "Buona sera tutti ed un ben tornato a Vecchio Frac. "
    ---> Ciao e grazie :o)

    La domanda stupida è: esiste un foglio chiamato NUOVA_BOLLETTA? magari Excel 2013 è anche case-sensitive.
    Comunque googlando sto trovando diversi riferimenti all'errore di run time 57121.





  • di Vecchio Frac data: 14/02/2015 22:11:33

    Quoto questa risposta che forse è banale ma potrebbe valere la pena di provare.

    "Your code is okay, it's a BUG inside VBA.
    Copy your sheet, delete the original sheet, rename the copied sheet to the original name. This force a rebuild of all controls and your error should be history.
    Or protect your VBAProject, crazy but works. "





  • di kcpastore data: 14/02/2015 22:56:40

    ok faccio prova



  • di kcpastore data: 15/02/2015 13:49:47

    Problema risolto ho cambiato il nome al foglio "NUOVA BOLLETTA"
    Grazie a tutti per la collaborazione.
    Saluti