Lista variable según checkboxes marcados

[shadowjuan]

Hola a todos,

No es una maravilla de la programación, pero puede ser útil. He montado un pequeño código que acumula entradas en una variable (entradas=líneas separadas, ítems) y permite crear una lista según se marquen los checkboxes en la hoja. Ideal para pasar lista y obtener una relación de todos los participantes en un evento, o para inventarios, o lo que mejor os vaya, cada uno le dará el uso que más le convenga

Un saludo.

lista segun checkboxes.xls

[verzulsan]

Hola shadowjuan,

Perdon por mi intromision, te dejo aqui una manera de recorrer los checkbox dinamicamente:

Private Sub CommandButton1_Click()

    Dim chk As OLEObject

    Dim asist As String

    asist = "Ha asistido:"

    For Each chk In ActiveSheet.OLEObjects

        If chk.progID = "Forms.CheckBox.1" And chk.Object.Value Then asist = asist & Chr(10) & "-" & Cells(chk.TopLeftCell.Row, 1)

    Next

    Range("F1") = asist

End Sub[/CODE]

Saludos

[shadowjuan]

Gracias por la intromisión. Sinceramente, hay cosillas de ese código que no acabo de entender (no llego a tanto y nunca me meto con los objetos en sí directamente), pero sí imagino que comprobará cuántos checkboxes hay e irá ciclando (con el next) entre ellos para ir ampliando la variable. Como veis, yo soy más simplón en la creación de código, voy más paso a paso

Gracias por el aporte