Finalizacion Rutina IF

hola, Santiago !

Estoy renegando (perdiendo mucho timepo) con una rutina sencilla que me permita cargar datos de un formulario...
La cuestion radica en que ciertos textbox deben ser llenados si o si
Paso la sentencia para que me digan que tengo que hacer para que si no cumple con alguno no carge los datos ingresados
por ende si los cumple que si lo haga Desde Ya gracias...

1) necesitas revisar con 'vista' [un poquitin mas]... 'logica' y entender que la instruccion 'Exit Sub' esta evitando que el codigo continue...
-> independientemente de si se cumplen o no, las instrucciones If...Then que tienes antes de la salida del procedimiento :))

2) puedes utilizar tres instrucciones If...Then 'separadas' -> cada una con su 'Exit Sub' en caso de no cumplirse la condicion...
o puedes agregar una variable [p.e.] que vaya 'contando' las condiciones cumplidas y... si se cumplen las 3... el codigo continua ;)

3) tambien podrias 'mover' las instrucciones para que SI se ejecuten, agregando un 'Else' al tercer bloque 'If...Then'
ya que de cumplirse la tercer condicionante... [se supone que] se habran cumplido tambien las anteriores ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __
Private Sub CommandButton1_Click()
If TextBox2.Text = "" Then
MsgBox "Se debe introducir un Nombre"
TextBox2.SetFocus
Else
If TextBox3.Text = "" Then
MsgBox "Se debe introducir una Dirección"
TextBox3.SetFocus
Else
If ComboBox1.Text = "" Then
MsgBox "Se debe introducir Localidad"
ComboBox1.SetFocus
End If
End If
End If
Exit Sub
Sheets("CLIENTES").Activate
NextRow = Application.WorksheetFunction.CountA(Range("B:B")) + 1
Cells(NextRow, 1) = TextBox1.Text
Cells(NextRow, 2) = TextBox2.Text
Cells(NextRow, 3) = TextBox3.Text
Cells(NextRow, 4) = TextBox4.Text
Cells(NextRow, 5) = TextBox5.Text
Cells(NextRow, 6) = ComboBox1.Text
Cells(NextRow, 7) = TextBox6.Text
Sheets("MENU").Activate
CommandButton1.Visible = False

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"SantiRv" escribió en el mensaje
news:
Hola:
Estoy renegando (perdiendo mucho timepo) con una rutina sencilla que me
permita cargar datos de un formulario a una hoja especifica de excel.
La cuestion radica en que ciertos textbox deben ser llenados si o si
Paso la sentencia para que me digan que tengo que hacer para que si no
cumple con alguno no carge los datos ingresados; por ende si los cumple
que si lo haga
Desde Ya gracias

Private Sub CommandButton1_Click()

If TextBox2.Text = "" Then
MsgBox "Se debe introducir un Nombre"
TextBox2.SetFocus
Else
If TextBox3.Text = "" Then
MsgBox "Se debe introducir una Dirección"
TextBox3.SetFocus
Else
If ComboBox1.Text = "" Then
MsgBox "Se debe introducir Localidad"
ComboBox1.SetFocus

End If
End If

End If
Exit Sub
Sheets("CLIENTES").Activate
NextRow = Application.WorksheetFunction.CountA(Range("B:B")) + 1
Cells(NextRow, 1) = TextBox1.Text
Cells(NextRow, 2) = TextBox2.Text
Cells(NextRow, 3) = TextBox3.Text
Cells(NextRow, 4) = TextBox4.Text
Cells(NextRow, 5) = TextBox5.Text
Cells(NextRow, 6) = ComboBox1.Text
Cells(NextRow, 7) = TextBox6.Text
Sheets("MENU").Activate

CommandButton1.Visible = False