Texstbox con formattazione condizionale

Hai un problema con Excel?

Nuova discussione

Texstbox con formattazione condizionale
di marc21 data: 07/03/2015 20:08:33
Buonasera,
ho creato una userform con 20 textboxt, per visualizzare il contenuto delle relative celle di una riga.
Non essendo sempre tutte valorizzate, vorrei che le textboxt vuote non vengano valorizzate.
Come se fosse un formattazione condizionale: se vuota non rendere visibile.
Sapete se è possibile?
Grazie
di mabolsie (utente non iscritto) data: 07/03/2015 21:28:27
Ciao Marc devi mettere la proprieta"VISIBLE = false " a seconda della condizione da te scelta e vedrai che non la vedrai.

Ti allego un codicillo semplice
apri un foglio vuoto e aprici una textbox ed un commandButton copia il codice e premi il pulsante.

Ciao Max
Private Sub CommandButton1_Click() With TextBox1 If TextBox1 = "" Then .Visible = False End If End With End Sub

di mabolsie (utente non iscritto) data: 07/03/2015 21:33:28
...prova questo

Private Sub CommandButton1_Click()
With TextBox1
If TextBox1 = "" Then
.Visible = False
End If
End With
If MsgBox("vuoi rivedere la txt ?", vbYesNo, "scegli") = vbYes Then
TextBox1.Visible = True
End If
End Sub

di marc21 data: 07/03/2015 21:52:29
Ciao Max e grazie per i suggerimenti.
Perdona la mia incompetenza, ma la mia textbox è un una Userform (Userform1).
Dove posizione il codice che mi hai scitto?
Grazie
di mabolsie (utente non iscritto) data: 07/03/2015 21:55:54
devi metterlo nel codice della Userform ed adattarlo alle tue esigenze
di mabolsie (utente non iscritto) data: 07/03/2015 22:00:38
Ti ho allegato un file esempio clissa sul pulsante del foglio e ti compare la user con la text premi il pulsate nella user e vedi

Ciao Max
di marc21 data: 07/03/2015 22:26:56
Grazie ancora Max, però avrei bisogno di condizionare la visibilità al contenuto della cella A1.
Per cui quando apro la userform non mi deve visualizzare la textbox se la cella A1 è vuota, mentre se è valorizzata di deve mostrare il contenuto.
di Albatros54 (utente non iscritto) data: 08/03/2015 09:39:14
Inizializa la tua userforms
con il codice postato, fa riferimento alla cella A1.
Private Sub UserForm_Initialize() With TextBox1 If Cells(1, 1) = "" Then .Visible = False End If End With End Sub
di marc21 data: 08/03/2015 11:12:25
Certamente sbaglio o slto quancosa.
Allego file Prova testbox per spiegarmi meglio.
Nel primo foglio è come lo ottengo.
Nel secondo foglio è come lo vorrei, dove ho impostato manualmente Visible=False nell proprietà della Textbox1.
In pratica, vorrei che un codice leggesse il valore della cella A1 e se è ="" modificasse l'impostazione dell Texbox1 in modo che non sia visibile quando passo alla Userform1.show.
di Albatros54 (utente non iscritto) data: 08/03/2015 11:48:59
Se ho capito, incolla il codice nella UserForm1.
Dovrebbe fare quello che chiedi
Private Sub UserForm_Initialize() If Cells(1, 1) = "" Then TextBox1.Visible = False End If End Sub
di marc21 data: 08/03/2015 12:30:20
E' perfetto
grazie mille.

Vuoi Approfondire?