Tengo un problema a la hora de finalizar un procedimiento. Le cuento:
Tengo un formulario, en el que al darle al boton "Aceptar" (es un commandbutton) quiero que llame a un procedimiento en función de si el OPtionButton2 está clicado o no. Hasta aqui, todo bien, el problema viene cuando en el procedimiento llamado (uno u otro) me salta el UserForm4, y despues me salta el UserForm9. Yo lo que deseo, es que si en cualquiera de los 2 procedimientos, si salta el userform4, al aceptarlo, no me salte el userform9, y es que siempre lo hace.
A ver si saben decirme como arreglarlo para que finalice el if, al saltar el userform 4.
Private Sub Aceptar_Click()
If OptionButton2.Value = True Then
Call ComprobarSiExisteConector
Else
ComprobarSiExistelatiguillo
End If
Exit sub
UserForm9.Show
Unload Me
End Sub
Private Sub ComprobarSiExisteConector()
Dim j As Integer
Dim final As Integer
For i = 1 To 1000
If Hoja5.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next
For j = 1 To final
If (Hoja5.Cells(j, 1) = UserForm5.TextBox8 Or Hoja5.Cells(j, 9) = UserForm5.TextBox8) And _
Hoja5.Cells(j, 10) = UserForm5.Fabricante Then
UserForm4.Show
Exit Sub
Exit For
End If
Next
End Sub
Private Sub ComprobarSiExistelatiguillo()
Dim j As Integer
Dim final As Integer
For i = 1 To 1000
If Hoja5.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next
For j = 1 To final
If (Hoja5.Cells(j, 1) = UserForm5.TextBox8 Or Hoja5.Cells(j, 9) = UserForm5.TextBox8) And _
Hoja5.Cells(j, 6) = UserForm5.Ubicacion And Hoja5.Cells(j, 7) = CStr(UserForm5.Longitud) Then
UserForm4.Show
Exit Sub
Exit For
End If
Next
End Sub
Gracias de nuevo, Susana
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola de nuevo y gracias por su tiempo.
Tengo un problema a la hora de finalizar un procedimiento. Le cuento:
Tengo un formulario, en el que al darle al boton "Aceptar" (es un commandbutton) quiero que llame a un procedimiento en función de si el OPtionButton2 está clicado o no. Hasta aqui, todo bien, el problema viene cuando en el procedimiento llamado (uno u otro) me salta el UserForm4, y despues me salta el UserForm9. Yo lo que deseo, es que si en cualquiera de los 2 procedimientos, si salta el userform4, al aceptarlo, no me salte el userform9, y es que siempre lo hace.
A ver si saben decirme como arreglarlo para que finalice el if, al saltar el userform 4.
Private Sub Aceptar_Click()
If OptionButton2.Value = True Then
Call ComprobarSiExisteConector
Else
ComprobarSiExistelatiguillo
End If
Exit sub
UserForm9.Show
Unload Me
End Sub
Private Sub ComprobarSiExisteConector()
Dim j As Integer
Dim final As Integer
For i = 1 To 1000
If Hoja5.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next
For j = 1 To final
If (Hoja5.Cells(j, 1) = UserForm5.TextBox8 Or Hoja5.Cells(j, 9) = UserForm5.TextBox8) And _
Hoja5.Cells(j, 10) = UserForm5.Fabricante Then
UserForm4.Show
Exit Sub
Exit For
End If
Next
End Sub
Private Sub ComprobarSiExistelatiguillo()
Dim j As Integer
Dim final As Integer
For i = 1 To 1000
If Hoja5.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next
For j = 1 To final
If (Hoja5.Cells(j, 1) = UserForm5.TextBox8 Or Hoja5.Cells(j, 9) = UserForm5.TextBox8) And _
Hoja5.Cells(j, 6) = UserForm5.Ubicacion And Hoja5.Cells(j, 7) = CStr(UserForm5.Longitud) Then
UserForm4.Show
Exit Sub
Exit For
End If
Next
End Sub
Gracias de nuevo, Susana