Ciclo for con textbox

Hai un problema con Excel?

Nuova discussione

Ciclo for con textbox
di Mickym1973 (utente non iscritto) data: 07/08/2011
Salve a tutti, ho una serie di textbox che ho chiamato rev1, rev2...rev7 e vorrei assegnare il contenuto dell'ultima textbox non vuota ad un'altra textbox che ho chiamato revisione.
tutto questo lo vorrei fare con un ciclo for..next al quale gli dico, scorrimi i contenuti delle rev1,rev2....etc fintantochè non ne trovi una vuota, a quel punto assegna a revisione il testo di quella prima che sarà l'ultima non vuota.
non riesco a farlo.
grazie 1000.

di Mrt (utente non iscritto) data: 06/09/2011
Prova questo codice, dovrebbe fare quello che ti serve.
ciao

Sub CommandButton1_Click()

Dim cCont As Control
  Dim myval

    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" And cCont.Text <> "" Then
           myval = cCont.Text
           TxtRevisione = myval
          Exit For
        End If
Next cCont

End Sub

Vuoi Approfondire?