Jump to content
  • 34 ¿Te resultaría interesante una carpeta sobre Python para Excelen el foro?

    1. 1. ¿Te resultaría interesante una carpeta sobre Python para Excel en el foro?


      • Sí! Me interesa
      • No me interesa.
      • Otros (Escribe tu respuesta en el tema)

Llenar Textbox según checkbox seleccionados


Recommended Posts

Saludos miembros del foro,

en esta ocasión el problema radica en que tengo en un userform varios checkbox que refieren a datos personales y frente a estos el textbox con e dato referido. El problema es que deseo seleccionar solo algunos  (no todos) pero según los que selecciones se vean e un textbox multilínea dedicado exclusivamente para mostrar la informacion seleccionada..

He intentado de varia maneras pero no veo el modo de lograr el resultado.

Subo un archivo para que lo vean

 

Archivo ejemplo

 

Gracias anticipadas por aportes a este tema

Link to comment
Share on other sites

Prueba y comenta

Private Sub cmdSeleccionar_Click()

    Dim ctrl As MSForms.Control
    
    Tbx_Sleleccionados.Text = ""
    
    For Each ctrl In Me.Controls '<--| loop through userform controls
        If TypeName(ctrl) = "CheckBox" Then
            If ctrl.Value = True Then
                nombre = ctrl.Caption
                ufh2 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
                For Each buscado In Hoja2.Range("A4:A" & ufh2)
                    If buscado = nombre Then
                        Tbx_Sleleccionados.Text = Tbx_Sleleccionados.Text & Hoja2.Cells(buscado.Row, 2) & Chr(10)
                    End If
                Next
            End If
        End If
    Next ctrl

End Sub

GIF.thumb.gif.11d7c55e0f7cf8115391e2a5601de6c6.gif

Llenar Textbox segun Checkbos seleccionado.xlsm

Link to comment
Share on other sites

Muy agradecido,.. .Entonces funciona el código tomando en cuenta los datos desde la hoja, no desde los textbox..funciona bien 

Ahora lo que no comprendo porque no me funciona el código en mi archivo ejemplo. Copio el código tal como te funciona en el archivo que envías. pero en el mino no funciona!! 🤔

Mi archivo es de Excel 2019 quizá será por eso?? de ser así,... cual seria el cambio para que funcione??

Las Referencias veo que están iguales en ambos archivos

 

Link to comment
Share on other sites

Ya encontré el error

Las palabras del Rango A4:A16 tienen algunas diferencias, por tildes o algo mas he copiado las de tu rango a la mia...y ahora funciona correctamente.

Gracias por tu importante apoyo y valioso tiempo

Esta funcionando igualmente bien

Con esto esta solucionado el tema,...lo que me quedo pensando es que con solo los textbox del userform mismo seria de acertijos para mí

Estoy muy agradecido

Link to comment
Share on other sites

Hace 3 minutos , Visor dijo:

Con esto esta solucionado el tema,...lo que me quedo pensando es que con solo los textbox del userform mismo seria de acertijos para mí

Que quieres decir con esto ?

Link to comment
Share on other sites

Hace 1 hora, JSDJSD dijo:

Que quieres decir con esto ?

En realidad e tema ya esta solucionado, y gracias mil....lo que digo es porque el textbox que muestra lo seleccionado es con información que le llega de la hoja según esta el código.... Ahora bien en el userform se observa los textbox con informacion y desde ahí no esta el código...

por ejemplo yo pensaba hacer algo así como  concatenando ( & ) los textbox para que se muestren pero no iba a funcionar pues cuando no selecciono en el checkbox igual se iban a mostrar en el Tbx_Sleccionados

Bueno a eso me refiero....es solo curiosidad de aprendizaje

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy