Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

rendere invisibili controlli Activex da codice

Ultimo Aggiornamento: 25/01/2017 15:57
Post: 109
Registrato il: 09/04/2015
Età: 45
Utente Junior
2013
OFFLINE
25/01/2017 12:23

Ciao a tutti,

ho un problema che mi sta facendo odiare excel.... e vba....
fino a ieri questa parte di codice mi funzionava benissimo (da oltre un mese) e non l'ho più modificato!

la Sub Delete_click, che si trova nel modulo 1, ha la funzione di ripulire i 2 fogli (RICERCA e PAYMENT) da tutti i dati ed inoltre di nascondere i seguenti controlli:

2 label
2 textbox
2 commandbutton

Non mi nasconde più nulla, mi potete aiutare? Non conosco altro modo per riuscire a farlo ed ho necessità che questi spariscano dal foglio RICERCA.

Grazie mille

Post: 3.654
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
25/01/2017 15:57

Sub Delete_Click()

Worksheets("RICERCA").Activate
If [A2].Value = "NON TRAT" Then
ULTIMARIGA = Cells(Rows.Count, 4).End(xlUp).Row
For x = ULTIMARIGA + 2 To 3 Step -1
    Rows(x).Delete
Next
Else
ULTIMARIGA = Cells(Rows.Count, 1).End(xlUp).Row
For x = ULTIMARIGA + 2 To 3 Step -1
    Rows(x).Delete
Next
End If
For Each Ctrl In ActiveSheet.Shapes
    Ctrl.Visible = False
Next
Worksheets("PAYMENT").Activate
'ActiveSheet.Shapes("CALCOLO").Visible = False
Range(Cells(3, 1), Cells(300, 16)).Clear
[A3].Select

Worksheets("ELENCO").Activate
Range("A4").Select
    
End Sub


----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 02:08. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com