CONDICION DE BUSQUEDA
Publicado por Fernando C (4 intervenciones) el 25/09/2019 21:57:58
Un saludo cordial
Quiero que me resuelvan una duda que tengo con un código de tantos que estoy realizando para una aplicación por VBA; para ser mas explicito: el código primero refiere al textboxt si esta vacío que no ejecute pero si está lleno tiene que verificar si el código que busca existe, si es así coloca "anulado", caso contrario que no ubique el código ingresado no ejecutar la función.
Mi código es el siguiente:
________________________________________________________________________________________
El mismo no me bota errores pero creo que estoy aplicando mal la función On Error Goto porque así el codigo este bien ejecuta lo ejecuta como error de macros.
("RANGO_CODIGOS" = Nombre de rango de Celdas del A6 al A1000)
Gracias de Antemano
Saludos
Quiero que me resuelvan una duda que tengo con un código de tantos que estoy realizando para una aplicación por VBA; para ser mas explicito: el código primero refiere al textboxt si esta vacío que no ejecute pero si está lleno tiene que verificar si el código que busca existe, si es así coloca "anulado", caso contrario que no ubique el código ingresado no ejecutar la función.
Mi código es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub CommandButton2_Click()
If TextBox1 = Empty Then
MsgBox "No se puede realizar el proceso de anulación debido a que no se halla consignado ningún código o el código ingresado no existe."
ElseIf TextBox1 <> Empty Then
Application.ScreenUpdating = False
Sheets("REFERENCIAS").Select
Sheets("REFERENCIAS").Unprotect ("RPINO")
On Error GoTo busqueda
Range("RANGO_CODIGOS").Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 20).Select
ActiveCell.Value = "ANULADO"
MsgBox "Se efectúo la anulación de la Carta Fianza"
busqueda:
MsgBox "El código ingresado no existe, favor de verificar antes de proceder"
Sheets("REFERENCIAS").Protect ("RPINO")
Sheets("INICIO").Select
Application.ScreenUpdating = True
End If
End Sub
________________________________________________________________________________________
El mismo no me bota errores pero creo que estoy aplicando mal la función On Error Goto porque así el codigo este bien ejecuta lo ejecuta como error de macros.
("RANGO_CODIGOS" = Nombre de rango de Celdas del A6 al A1000)
Gracias de Antemano
Saludos
Valora esta pregunta
0