Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - lio crossroad

#1
bueno viendo como utilizaban el SELECT case de estas ""... lo resolvi, gracias por responder y gracias sobre todo a Flamer  y a tincopasan  .... que me dieron ideas de como usar el select case  en este caso.... ;-)
#2
 si utilizo el IF :corre bien

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then
MsgBox ("faltan nombre y apellido,edad y direccion")
Else
For x = 2 To 35
If Cells(x, 2) = "" Then
Exit For
End If
Next
Cells(x, 1) = TextBox1
Cells(x, 2) = TextBox2
Cells(x, 3) = TextBox3
End If

pero lo que yo BUSCO es como escribirlo esta sentencia con el SELECT CASE usando su sintaxis,,,,,, osea cambiar el codigo de arriba que esta con el if por un CASE
#3





  cuando los textbox1 el 2 y el 3  esten llenos los tres debe pasar los datos que se rellenan, si faltara  rellenar un textbox  deberia salir un mensaje alertando que falta llenar ese campo:

por ejemplo si falta edad entonces deberia salir mensaje  "falta llenar edad" y no deberia permitir que pasen los datos a las celdas, asi con todas las combinaciones con tres textbox, es necesario usar solo el select case,.... a ver si me ayudan ver donde puedo estar errando.....

+cuando no se ha introducido ningun dato , hasta ahi corre chevre en las combinaciones tengo problemas.

ESTE EL CODIGO del boton aceptar

-------------------
Private Sub CommandButton1_Click()

Select Case (TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "")
Case TextBox1 = "" And TextBox2 = "" And TextBox3 = "":
MsgBox ("faltan nombre y apellido,edad y direccion")
Case TextBox1 = "" And TextBox2 = "":
MsgBox ("faltan  edad")
Case TextBox2 = "" And TextBox3 = "":
MsgBox ("faltan nombre")
Case Else
For x = 2 To 35
If Cells(x, 2) = "" Then
Exit For
End If
Next
Cells(x, 1) = TextBox1
Cells(x, 2) = TextBox2
Cells(x, 3) = TextBox3
End Select


End Sub

----------------