Checkbox

Respuesta de
a
Usuario
Hola acabo de empezar con esto y ya he estado buscando como hacerle pero no encuentro nada mira mi problema es que quiero generar un formulario que contenga varios checkbox y los check que seleccione se escriban en una sola celda ya hice el formulario lo único en que me gustaría que me ayudaras es en como escribir varias lineas en una celda
utilizo este código
For I = 1 To 3
If Me.Controls("Checkbox" & I).Value = True Then
ActiveCell.Value = Me.Controls("checkbox" & I).Caption & vbCrLf
End If
Pero cada vez que escribe en la celda me remplaza el valor en lugar de agregarlo
espero puedas ayudarme
te lo agradecería mucho
Avatar
Experto
Hola fermín
Según lo que veo deberías hacer lo siguiente en la linea
ActiveCell.Value = Me.Controls("checkbox" & I).Caption & vbCrLf
ponlo de la siguiente forma:
ActiveCell.Value = ActiveCell & Me.Controls("checkbox" & I).Caption & vbCrLf
ahi me cuentas como te va con eso
si no sirve le buscamos otra Solución
Usuario
Ok muchísimas gracias funciona perfecto solo que me arrojaba basura con el vbCrLf
Pero se corrige fácil solo cambiando la función y utilizando esta vbLf
Muchas gracias