Saber sin un Control (combobox) existe
Tengo un problemilla y no se como resolverlo dado que siempre me da error.
Necesito verificar si un Combobox existe dentro de un for, pero al llegar al que no existe me da error de depuracion y no se como hacerlo. Supongo que sera una chorrada.
For d = 1 To 15
On Error GoTo FFCuenta
If Me.Controls("CLote" & d) Is Nothing then
msgbox("no existe")
else
msgbox("SI EXISTE")
End If
Next
FFCuenta:
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro.
Por cada combo, te va a enviar un mensaje de sí existe o no existe.
Private Sub CommandButton1_Click()
'Por.Dante Amor
'
For i = 1 To 15
existe = False
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
n = Mid(ctrl.Name, Len("CLote") + 1)
If IsNumeric(n) Then
n = Val(n)
If i = n Then
existe = True
Exit For
End If
End If
End If
Next
If existe Then
MsgBox "SÍ Existe el combo " & i, vbInformation, "EXISTE"
Else
MsgBox "El combo " & i & " NO exixte", vbExclamation, "NO"
End If
Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
