Error 91 en Visual Basic
Publicado por Jorge (1 intervención) el 19/10/2017 17:06:14
Buenos días, estoy aprendiendo Visual Basic para crear una aplicación en Excel de Altas, Bajas y Consultas. Tengo un pequeño problema con el de Búsqueda, verán, quiero que en un TextBox ingresen un FOLIO y automáticamente busque la info, este es mi código:
Pero me marca ERROR 91, alguien podría decirme como resolverlo?
Gracias de antemano
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
36
37
38
Private Sub TextBox9_Change()
Dim var2 As String
If TextBox9 = "" Then
Else
CommandButton1.Locked = False
Sheets("Alumnos").Activate
If TextBox9 = Empty ThenMsgBox "Para modificar primero seleccione Alumno", vbInformation, "Almacen"
End If
var2 = TextBox9.Value
Cells.Find(What:=TextBox9.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If var2 = ActiveCell.Value Then
TextBox1.Value = ActiveCell.Value
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
TextBox6 = ActiveCell.Offset(0, 5)
TextBox7 = ActiveCell.Offset(0, 6)
TextBox8 = ActiveCell.Offset(0, 7)
TextBox2.Locked = False
TextBox3.Locked = False
TextBox4.Locked = False
TextBox5.Locked = False
TextBox6.Locked = False
TextBox7.Locked = False
TextBox8.Locked = False
End If
End If
End Sub
Pero me marca ERROR 91, alguien podría decirme como resolverlo?
Gracias de antemano
Valora esta pregunta
0
