Error en código de checkbox
Tengo un formulario con datos de escuela. Lo que necesito es hacer que cuando el usuario coloque la casilla en mi hoja de datos donde se guarda la información coloque un 1 en caso de que no se marque la casilla pues que se ponga un cero. Tengo este código pero no me funciona.
If checkbox1.value= true then documentos = 1
.cells(newrow, “t”) = documentos
If checkbox2.value= true then documentos = 1
.cells(newrow, “u”)= documentos
If checkbox3.value= true then documentos = 1
.cells(newrow, “v”) = documentos
1 Respuesta
Prueba con el siguiente código
If CheckBox1.Value = True Then documentos = 1 Else documentos = 0 .Cells(newrow, "T") = documentos If CheckBox2.Value = True Then documentos = 1 Else documentos = 0 .Cells(newrow, "U") = documentos If CheckBox3.Value = True Then documentos = 1 Else documentos = 0 .Cells(newrow, "V") = documentos
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias! Dante por la atención solo que funciona en parte. Ya que si coloco cualquier casilla si me guarda los datos en caso de que no marque ninguna no me guarda los ceros. Muchas gracias amigo
Estimado funciona en parte, cuando marco cualquier casilla si me guarda los ceros y unos correctamente. El problema es que si no marco ninguna casilla no me guarda los ceros
muchas gracias de antemano
Seguramente te está poniendo los ceros, pero no los ves, puede ser por el formato de las celdas o por las opciones de excel, entra a las opciones de excel, Avanzadas, y marca la casilla que dice "Mostrar un cero en celdas que tienen un valor cero"
Sal u dos
