Risultati da 1 a 3 di 3

Discussione: Macro che da messaggio di errore quando non trova immagine



  1. #1
    L'avatar di Gavino
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Sardegna
    Messaggi
    9
    Versione Office
    2013
    Likes ricevuti
    1

    Macro che da messaggio di errore quando non trova immagine

    Ciao a tutti, il problema è il seguente:
    Premetto che nel mio file esiste una macro che mi inserisce correttamente un'immagine nel foglio "Casa". Il problema è con la presente perchè mettiamo che uno non abbia inserito con la prima macro l'immagine e per errore preme il pulsante nella form che esegue la presente. Giustamente la macro non trova l'immagine da eliminare e mi da l'errore come da link allegato https://www.dropbox.com/s/46rrrwegfw...rrore.JPG?dl=0 e di conseguenza mi rende anche visibile il foglio "Casa".
    Io desidererei che la macro una volta che non trova l'immagine mi dicesse "Non si può eliminare un'immagine che non esiste" e di conseguenza uscire tenendo il foglio "Casa" nuovamente nascosto.

    Sub EliminaLogo()
    '
    ' EliminaLogo Macro

    'Questo comando evita di farmi vedere a video le operazioni della macro
    Application.ScreenUpdating = False


    MsgBox "Attento!!! In questo modo eliminerai il tuo logo.Se sei sicuro premi OK e il logo verrà eliminato"

    With ThisWorkbook.Worksheets("Casa")
    Application.ScreenUpdating = False
    .Visible = xlSheetVisible

    Sheets("Casa").Select

    ActiveSheet.Pictures(1).Delete
    Sheets("Inser_Dati").Select
    Range("H1").Select

    .Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True
    End With

    'Bisogna inserire alla fine anche questo
    Application.ScreenUpdating = True
    End Sub

    Con la speranza di essere stato chiaro vi ringrazio anticipatamente.

  2. #2
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17
    se invece dell'immagine dell'errore ci alleghi il file
    la cosa diventa più semplice e non si deve ricreare un file di esempio
    per provare
    penso che basta inserire un ON ERROR
    Codice: 
    Sub EliminaLogo()
        'evita di farmi vedere a video le operazioni della macro
        Application.ScreenUpdating = False
        MsgBox "Attento!!! In questo modo eliminerai il tuo logo.Se sei sicuro premi OK e il logo verrà eliminato"
    '-----------------------------------------
        On Error GoTo vainerrore
    '-----------------------------------------
        With ThisWorkbook.Worksheets("Casa")
            Application.ScreenUpdating = False
            .Visible = xlSheetVisible
            Sheets("Casa").Select
            ActiveSheet.Pictures(1).Delete
            Sheets("Inser_Dati").Select
            Range("H1").Select
            .Visible = xlSheetVeryHidden
            Application.ScreenUpdating = True
        End With
        
        'Bisogna inserire alla fine anche questo
        Application.ScreenUpdating = True
        Exit Sub
    '-----------------------------------------
    vainerrore:
        MsgBox "L'immagine non esiste!!!"
    End Sub
    n°3 - Win10pro + Office 2010 ----- n°1 - Win7pro + Office 2010 ----- n°1 - WinXPpro + Office 2010

  3. #3
    L'avatar di Gavino
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Sardegna
    Messaggi
    9
    Versione Office
    2013
    Likes ricevuti
    1
    Grazie comunque zio tom dell'iedea :208:

    Spiego come ho fatto per adattarla alle miia richiesta iniziale

    Sub EliminaLogo()
    'evita di farmi vedere a video le operazioni della macro
    Application.ScreenUpdating = False

    On Error GoTo errore ' Nel caso non sia presente un'immagine nel foglio Casa interviene la If Err.Number

    With ThisWorkbook.Worksheets("Casa") ' Mentre nel caso sia presente elimina l'immagine. In entrambi i casi il foglio Casa rimane sempre nascosto
    Application.ScreenUpdating = False
    .Visible = xlSheetVisible
    Sheets("Casa").Select
    ActiveSheet.Pictures(1).Delete
    MsgBox "Attento!!! In questo modo eliminerai il tuo logo.Se sei sicuro premi OK e il logo verrà eliminato"
    Sheets("Inser_Dati").Select
    Range("H1").Select

    .Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True

    errore:
    If Err.Number <> 0 Then
    MsgBox "Non è stato inserito nessun logo"

    .Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True
    End If
    End With


    'Bisogna inserire alla fine anche questo
    Application.ScreenUpdating = True

    End Sub

Discussioni Simili

  1. Formula per fare andare a capo un testo in cella quando trova la maiuscola
    Di Mcmatt nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 14/03/17, 17:54
  2. convalida dati con messaggio d'errore
    Di vittorio dit nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 04/12/16, 13:38
  3. [Risolto] Creare messaggio di errore
    Di Jabets nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 07/09/16, 15:10
  4. Quando apro un file di Excel...appare questo messaggio....
    Di Dilly nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 18/07/16, 01:27
  5. Impedire comparsa messaggio errore foglio protetto
    Di Lcbsm nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 28/04/16, 11:15

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
  •