LORETTA B. forum
Linguaggi di programmazione => Problematiche Excel => Topic aperto da: Tullio - 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
-
If Left(nameshp, 9) <> "Drop Down" Then 'And Left(nameshp, 6) <> "Button" Then
shp.Delete
'shp.Visible = msoFalse
Else
End If
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:
-
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,(http://C:\Users\User\Desktop\Documento1.pdf) 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
-
Ciao micdas, ho risolto l'intoppo, mancava il riferimento al PDFCreator. :resistere: