giorno settimanamesegiorno

Sono passati 88 giorni dall'inizio dell'anno che corrispondono a 13 settimane

Arcobaleno, domani sereno



* Chattina

Aggiorna Storia
  • mar: :resistere:
    Febbraio 15, 2022, 19:44:48
  • mar: Non mi ricordavo di essere un global moderator wauuuu Ok Prof ti lascio restaurare in pace!
    Febbraio 15, 2022, 19:43:56
  • mar: :Cartelli70:
    Febbraio 15, 2022, 19:41:14
  • mar: ad cazzum pure qui?
    Febbraio 15, 2022, 19:41:02
  • mar: ciaoooo sono in perlistrazione
    Febbraio 15, 2022, 19:40:44
  • mar: :okkey:
    Febbraio 15, 2022, 19:40:20
  • Loretta/Nina: ciao a tutti
    Ottobre 04, 2021, 19:23:02
  • Loretta/Nina: :tuffarsi:
    Settembre 21, 2021, 07:08:03
  • Loretta/Nina: Buon autunno a tutti
    Settembre 21, 2021, 07:01:35
  • nuvolotta: avventure testuali
    Luglio 06, 2020, 23:26:08
  • _jan_: ...gli ultimo però....!!
    Gennaio 14, 2019, 14:45:09
  • _jan_: vedi gli ultimi post in fondo.
    Novembre 24, 2018, 19:10:00
  • mar: Trovato :Amm9:
    Novembre 24, 2018, 18:57:51
  • mar: Chi cerca trova non vi trovo! :Cartelli2:
    Novembre 24, 2018, 18:57:05
  • mar: Vado a vedere le cartoline!
    Novembre 24, 2018, 18:52:38
  • mar: :Amore145:
    Novembre 24, 2018, 18:52:21
  • mar: :Amore178:
    Novembre 24, 2018, 18:52:07
  • _jan_: Welcome Visitor.  :Party133:
    Novembre 15, 2018, 10:03:24
  • Loretta/Nina: Benvenuto ligi  :Cartelli37:
    Ottobre 09, 2018, 13:19:25
  • nuvolotta: Cucù...  :Amore20:
    Settembre 16, 2018, 01:16:47
  • Loretta/Nina: :Party133:
    Settembre 01, 2018, 17:05:30
  • _jan_: Ciao ai visitors!!
    Settembre 01, 2018, 17:02:31
  • Loretta/Nina: :fischio: :979:
    Agosto 28, 2018, 16:20:48
  • ketty: ah beh, meno male. ora il tempo e' un po' brutto
    Agosto 26, 2018, 13:27:36
  • _jan_: No, no, soqquà. Ci passo ma....... non c'è mai nessuno. Ammiro Nuvolotta, solitaria e presente.
    Agosto 25, 2018, 10:34:41
  • ketty: ma Jan è andato in vacanza? :Cartelli70:
    Agosto 24, 2018, 20:51:59
  • ketty: ciao a tutti.
    Agosto 24, 2018, 20:50:12
  • nuvolotta: :faccina_fiore: ciao ragazzioli/ole...
    Agosto 19, 2018, 23:03:49
  • Loretta/Nina: :ciao: :Party133:
    Agosto 19, 2018, 20:24:28
  • _jan_: :Felici13:
    Agosto 04, 2018, 15:30:40
  • nuvolotta: Ferie... già fatte....
    Agosto 04, 2018, 09:54:58
  • _jan_: Auguri di buon onomastico a tutti gli Alfonso....
    Agosto 01, 2018, 11:10:21
  • _jan_: chiusp per ferie?
    Luglio 30, 2018, 19:50:58
  • _jan_: Buon onomastico a Donatella Seconda........ e la prima? :Shok145:
    Luglio 30, 2018, 06:59:38
  • _jan_: Buon onomastico a tutte le Marta.  :Amore20:
    Luglio 29, 2018, 07:44:31
  • _jan_: Ci sono altre nuove iscritte viste il 26 luglio 2018..... (mica saranno monache)....  :approva:
    Luglio 26, 2018, 18:39:04
  • _jan_: Oggi, 26 luglio 2018, abbiamo una nuova iscritta "Francesca".....Benvenuta Francesca.  :Party133:
    Luglio 26, 2018, 15:49:24
  • _jan_: Buon onomastico anche a tutte le Anna!!! .....
    Luglio 26, 2018, 10:30:21
  • _jan_: Auguri di Buon Onomastico a TUO..... (ogni giorno, credo)..... :sm269:
    Luglio 26, 2018, 10:28:52
  • ketty: ma.... quando è il tuo?
    Luglio 25, 2018, 19:52:19

* Emoticon aggiuntive e link al portale


Autore Topic: Errore di compilazione  (Letto 1786 volte)

0 Utenti e 1 Visitatore stanno visualizzando questo topic.

Tullio

  • Visitatore
Errore di compilazione
« il: Ottobre 26, 2013, 10:52:43 »
Ciao micdas,
non riesco a capire che cosa stia cercando quando mi da errore di compilazione - Impossibile trovare il progetto o la libreria.
Quando devo far cancellare le forme si blocca dove è evidenziato e mi da l'errore.
Devo farti una premessa, l'ultimo sviluppo l'ho fatto sul computer di casa e questa mattina l'ho trasferito su quello in ufficio, ma anche la versione precedente aveva la stessa Sub, quindi ......boh?
Tu certamente capisci.
Ti ringrazio in anticipo.
Tullio

Sub Forme_cancella()
Dim shp As Shape
Dim nameshp As String
    For Each shp In ActiveSheet.Shapes
        'If shp.Visible = msoTrue Then
        nameshp = shp.Name
            'salva dalla cancellazione la casella di convalida
           
            If Left(nameshp, 9) <> "Drop Down" Then 'And Left(nameshp, 6) <> "Button" Then
                shp.Delete
                'shp.Visible = msoFalse
            Else
            End If
        'End If
    Next

End Sub



Offline micdas

  • Administrator
  • Hero Member
  • *****
  • Post: 848
  • Sesso: Maschio
    • sito su Excel ed il suo vba
Re:Errore di compilazione
« Risposta #1 il: Ottobre 26, 2013, 20:01:21 »
Non sei autorizzato a vedere i links. Registrati o Login
If Left(nameshp, 9) <> "Drop Down" Then 'And Left(nameshp, 6) <> "Button" Then
       shp.Delete
       'shp.Visible = msoFalse
Else
End If

Codice: Non sei autorizzato a vedere i links. Registrati o Login
If Left(nameshp, 9) <> "Drop Down" Or Left(nameshp, 6) <> "Button" Then
       shp.Delete
       'shp.Visible = msoFalse
Else
End If
il "nameshp" non può essere Drop Down e Button, ma può essere Drop Down o Button
E poi l'ELSE se è vuota non serve, se invece nell'ELSE c'è qualche azione da eseguire è OK   :ciao:
« Ultima modifica: Ottobre 26, 2013, 20:03:32 da micdas »
E' stupido pensare di non aver bisogno degli altri

Tullio

  • Visitatore
Re:Errore di compilazione
« Risposta #2 il: Ottobre 28, 2013, 10:30:50 »
Ciao micdas, ti ringrazio della pronta risposta, ma i commenti li ho lasciati solo per avere un riferimento alla routine di partenza, tutto quello che è dietro apice non dovrebbe starci ma anche se c'è non dovrebbe dare problemi.
Io ti parlo di un'altra cosa, sto cercando di inviarti l'immagine del codice vb e dell'errore che rileva ma non ci riesco almeno credo perché l'anteprima non me lo fa vedere.
Come devo fare ? per allegarti un pdf?
Tullio

Tullio

  • Visitatore
Re:Errore di compilazione
« Risposta #3 il: Ottobre 29, 2013, 08:44:27 »
Ciao micdas, ho risolto l'intoppo, mancava il riferimento al PDFCreator. :resistere: