
30/08/2009, 08:37
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 9 meses Puntos: 29 | |
Respuesta: Error de Sintaxis en Checkbox Además del next i de más, el error de sintaxis debe ser por el "CheckBox&i"
Tienes que comprobar uno por uno los checkbox o haber creado un indice CheckBox(i)
Para eso quitas todos los checkbox menos el primero.
Despues pinchas boton derecho en el y copiar y luego lo pegas en el form.
Cuando te diga que ya existe y te pregunte si quieres hacer una matriz de controles le dices que si y sigues pegando tantos checkbox como necesites sin que te vuelva a preguntar nada.
Ordena los checkbox segun su index para saber cual es el 0, el 1, etc.
Después el codigo te quedaría así (para 10 checkbox):
Private Sub ActualizarCodigos_Click()
Dim i, j As Integer
j = 1
Sheets("A DB").Select
For i = 0 To 9
If CheckBox(i) = 0 Then
ActiveSheet.Cells(1, j).Value = "" 'cells(fila,columna)
j = j + 1
End If
Next i
End Sub
Por cierto los checkbox tienen valores de 0, 1 y 2, no false o true.
Saludos by PKJ
Última edición por pkj; 30/08/2009 a las 17:17
Razón: Ampliación
|