info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Problema con cancellazione di pulsanti aggiunti con Buttons.Add
33 views
Skip to first unread message
RE.MOTO
May 10, 2022, 1:43:28 AM5/10/22
to
Col metodo Buttons.Add aggiungo per ogni cella in un determinato range di intervallo dei pulsanti. Come cancellarli senza cancellare altri pulsanti?
Con questo codice ho provato ad avvicinarmi al risultato ma non funziona cosa secondo voi non va se voglio far rimuovere alla macro tutti i Button eccetto quelli dichiarati nella catena logica?
For Each BTN In ActiveSheet.Buttons
With Sheets("Foglio1")
If BTN.Name <> "Button 5" _
And BTN.Name <> "Button 162" _
And BTN.Name <> "Button 163" _
And BTN.Name <> "Button 164" _
And BTN.Name <> "Button 165" _
And BTN.Name <> "Button 370" _
And BTN.Name <> "Button 373" _
And BTN.Name <> "Button 377" _
And BTN.Name <> "Button 1346" _
And BTN.Name <> "Button 1421" _
And BTN.Name <> "Button 1424" Then
BTN.Delete
End If
End With
Next BTN
Grazie
Con questo codice ho provato ad avvicinarmi al risultato ma non funziona cosa secondo voi non va se voglio far rimuovere alla macro tutti i Button eccetto quelli dichiarati nella catena logica?
For Each BTN In ActiveSheet.Buttons
With Sheets("Foglio1")
If BTN.Name <> "Button 5" _
And BTN.Name <> "Button 162" _
And BTN.Name <> "Button 163" _
And BTN.Name <> "Button 164" _
And BTN.Name <> "Button 165" _
And BTN.Name <> "Button 370" _
And BTN.Name <> "Button 373" _
And BTN.Name <> "Button 377" _
And BTN.Name <> "Button 1346" _
And BTN.Name <> "Button 1421" _
And BTN.Name <> "Button 1424" Then
BTN.Delete
End If
End With
Next BTN
Grazie
RE.MOTO
May 10, 2022, 2:15:43 AM5/10/22
to
Restituisce codice errore di runtime numero 1004 con la seguente specifica:
"Impossibile trovare la proprietà Name per la classe Button." Se anziché andare in debug scegliessi FINE osservo che mi cancella i tasti aggiunti e non quelli da conservare. OK! Ma come mai si ferma la routine? Non capisco!
Ringrazio in anticipo chiunque potrà darmi una mano.
"Impossibile trovare la proprietà Name per la classe Button." Se anziché andare in debug scegliessi FINE osservo che mi cancella i tasti aggiunti e non quelli da conservare. OK! Ma come mai si ferma la routine? Non capisco!
Ringrazio in anticipo chiunque potrà darmi una mano.
issdr
May 10, 2022, 6:00:05 AM5/10/22
to
"RE.MOTO" wrote:
> Restituisce codice errore di runtime numero 1004 con la seguente specifica:
> "Impossibile trovare la proprietà Name per la classe Button." Se
> anziché andare in debug scegliessi FINE osservo che mi cancella i
> tasti aggiunti e non quelli da conservare. OK! Ma come mai si ferma la
> routine? Non capisco!
Button? nel codice che hai postato c'era solo Buttons, che è una
> Restituisce codice errore di runtime numero 1004 con la seguente specifica:
> "Impossibile trovare la proprietà Name per la classe Button." Se
> anziché andare in debug scegliessi FINE osservo che mi cancella i
> tasti aggiunti e non quelli da conservare. OK! Ma come mai si ferma la
> routine? Non capisco!
proprietà (lista di pulsanti). poi il singolo pulsante viene "caricato"
in BTN, che avrà la proprietà Name.
il With che hai utilizzato non ha senso.
fai questi due controlli e riprova
Graziano Ruggiero
May 10, 2022, 8:16:07 AM5/10/22
to
Continua a girare mal ed io a non comprendere...
Dim BTTN As Variant
For Each BTTN In ActiveSheet.Buttons
If BTTN.Name <> "Button 5" Then
BTTN.Delete
End If
Next BTTN
Dim BTTN As Variant
For Each BTTN In ActiveSheet.Buttons
If BTTN.Name <> "Button 5" Then
BTTN.Delete
End If
Next BTTN
Graziano Ruggiero
May 10, 2022, 10:51:30 AM5/10/22
to
Eseguita la prova su altro calcolatore funziona senza intoppi. Continuo a non comprendere. Grazie
0 new messages