Re: Sumar valores true i false de la casilla de verificacion

[luis-cerezo]

Tux escribió el 05/12/2007 23:27 :
> hola tomas :)
>
>
>> resultado de los
>> activados me lo diera en la celda final de totales con un número, ya
>> que no me sirve el msgbox.
>>
>>
>>
>>
>>
> No dupliques las preguntas que luego es un caos a la hora de
> encontrarlas y quedan todas sueltas :-)
>
> Bien prueba con la siguiente modificacion:
>
> Y comentanos cualquier duda ?
>
>
> '- modificacion codigo
>
> '[]
>
> Sub contar_checkbox_document()
>
> Dim x As Long, y As Long
>
> On Error Resume Next
>
> ActiveDocument.Unprotect ("111")
>
> With ActiveDocument
>
> For x = 1 To .FormFields.Count
> If .FormFields(x).Type = wdFieldFormCheckBox Then
> If .FormFields(x).CheckBox.Value = True Then y = y + 1
>
> End If
>
> Next x
> 'MsgBox "hay " & y & " " & " checkboxes
> activados :D "
> Selection.Tables(1).Cell(10, 1).Range.Text = y
>
> End With
>
> ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
> NoReset:=True, Password:="111"
>
> End Sub
>
> '[]
>
Hola Srta. quiero ayuda desesperadamente. tengo el mismo problema del otro
compañero...
Resulta que quiero sumar en Word, todos las casillas de verificación
activadas. Son 16 casillas.
Ya lo logré en Excel, e inclusive la tabla de Excel la pude insertar en
Word, solo que al salirme de la tabla, cuando ya está en Word, se sale
del modo de selección de las casillas. Esto es, que yo envío a mis
clientes el archivo y ellos seleccionan los servicios que requieren... al
seleccionarlos, se van sumando las cantidades de cada servicio seleccionado. Me
duele la cabeza. jaja ya intenté varias opciones, aunque me doy cuenta
que les has pasado unas formulas o no se que es eso, además de que no se
donde copiarlos. Ayudame por favor. Si tienes un e-mail o Facebook sería
mas fácil.