Llamar useform
Hola hermano de nuevo yo, ahora la duda que tengo es esta:
al momento de consultar datos en un textbox y reflejandolos en otros textbox, cuando no lo encuentra me manda a llamar un useform distinto el cual me indica que no lo encontro (me lo recomendaste para que se quitara de forma automatica ya que el msgbox no lo hace), ahora para tambien evitar el command button con el que guardo ese registro que mande a buscar, quisiera llamar otro useform que de un mensaje de bienvenida y se quite automaticamente, se me ocurre que pueda ser con un if pero no logor que quede, te anexo el codigo para ver si me puedes ayudar.
"este es el codigo del textbox que llama los datos"
Private Sub TextBox1_Change()
On Error GoTo NoExiste
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Sheets("hoja1").Select
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
Sheets("hoja1").Select
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
Sheets("hoja1").Select
TextBox3 = ActiveCell
Exit Sub
NoExiste:
UserForm1.Show
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus
End Sub
y en ese mismo textbox quisiera meter el codigo del command button para evitar asi tener que dar clic en ese boton, el codigo es el siguiente
Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("A1").FormulaR1C1 = TextBox2
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("B1").FormulaR1C1 = TextBox3
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("C1").FormulaR1C1 = TextBox4
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("D1").FormulaR1C1 = TextBox1
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus
como podria crear la condicion para que si se encuentra el valor mande a llamar otro useform que de la bienvenida, pero sin perder el proposito del codigo del command button que me guarda el registro en una hoja diferente.
en espera de tu respuesta te agradezco infinitamente.
al momento de consultar datos en un textbox y reflejandolos en otros textbox, cuando no lo encuentra me manda a llamar un useform distinto el cual me indica que no lo encontro (me lo recomendaste para que se quitara de forma automatica ya que el msgbox no lo hace), ahora para tambien evitar el command button con el que guardo ese registro que mande a buscar, quisiera llamar otro useform que de un mensaje de bienvenida y se quite automaticamente, se me ocurre que pueda ser con un if pero no logor que quede, te anexo el codigo para ver si me puedes ayudar.
"este es el codigo del textbox que llama los datos"
Private Sub TextBox1_Change()
On Error GoTo NoExiste
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Sheets("hoja1").Select
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
Sheets("hoja1").Select
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
Sheets("hoja1").Select
TextBox3 = ActiveCell
Exit Sub
NoExiste:
UserForm1.Show
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus
End Sub
y en ese mismo textbox quisiera meter el codigo del command button para evitar asi tener que dar clic en ese boton, el codigo es el siguiente
Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("A1").FormulaR1C1 = TextBox2
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("B1").FormulaR1C1 = TextBox3
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("C1").FormulaR1C1 = TextBox4
ActiveCell.Offset(0, 1).Select
Sheets("hoja2").Select
Range("D1").FormulaR1C1 = TextBox1
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus
como podria crear la condicion para que si se encuentra el valor mande a llamar otro useform que de la bienvenida, pero sin perder el proposito del codigo del command button que me guarda el registro en una hoja diferente.
en espera de tu respuesta te agradezco infinitamente.
1 respuesta
Respuesta de Enrique Bernal
-1