Ver Mensaje Individual
  #3 (permalink)  
Antiguo 30/08/2009, 08:37
Avatar de pkj
pkj
 
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