none
Como copiar texto de um CheckBox para um textbox em outro userform! RRS feed

  • Pergunta

  • Gente, boa tarde!

    To precisando de ajuda no Excel/VBA:

    Imaginem aí dois userforms um principal com um textbox e um botão de salvar e outro  auxiliar (UserForm2) com os CkeckBox. Ah! neste userform2 tem também um CommandButton1 para colar o que to querendo. Pois bem, to precisando de um código que faça com que o caption dos CheckBoxs selecionados seja colado no TextBox1 do UserForm1, de modo a não apagar o que ja encontra-se escrito neste TextBox1.

    Por favor, me ajudem!

    quarta-feira, 16 de março de 2011 19:30

Todas as Respostas

  • ve se ajuda:

    Private Sub CommandButton1_Click()
    Dim controle As Control
    Dim str As String
    Dim chk As CheckBox
    For Each controle In Me.Controls
      If TypeName(controle) = "CheckBox" Then
        str = str & controle.Caption & ","
      End If
    Next
    UserForm1.TextBox1 = UserForm1.TextBox1 & str
    End Sub
    

    Caio Vitullo
    quinta-feira, 17 de março de 2011 01:49
  • Olá Caio! Estamos quase lá, amigo. O codificação que vc postou copia e cola os caption dos dois CheckBox que coloquei no UseForm, no entanto, irei colocar vários, e queria que fosse copiado e colado para o outro UserForm somente os captions dos CheckBox selecionados. Acho que feita essa observação vamos conseguir o que se pretende. No aguardo.
    quinta-feira, 17 de março de 2011 16:31