duda userform
Publicado por Lia (1 intervención) el 23/06/2018 20:16:37
Hola
Soy nueva por aquí y estoy empezando a descubrir el mundo de VBA, espero que puedan ayudarme
He creado un formulario en el que al indicar una referencia tiene que aparecer el resto de datos el los siguientes campos, como nombre, cantidad,...
No me da un error al ejectuar, pero no muestra los datos, adjunto el código :
El excel se compone sólo de una hoja donde esta
la referencia, el nombre, la cantidad, lugar,....
Espero que puedan ayudarme, muchas gracias
Lia
Soy nueva por aquí y estoy empezando a descubrir el mundo de VBA, espero que puedan ayudarme
He creado un formulario en el que al indicar una referencia tiene que aparecer el resto de datos el los siguientes campos, como nombre, cantidad,...
No me da un error al ejectuar, pero no muestra los datos, adjunto el código :
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
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub TextBox1_Change()
Dim Fila As Integer
If TextBox1.Value = "" Then
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
End If
For Fila = 2 To 1000
If Hoja1.Cells(Fila, 1) = "" Then
Final = Fila - 1
Exit For
End If
Next
For Fila = 2 To 1000
If Me.TextBox1 = Hoja1.Cells(Fila, 1) Then
Me.TextBox2 = Hoja1.Cells(Fila, 2)
Exit For
End If
Next
For Fila = 2 To 1000
If Me.TextBox1 = Hoja1.Cells(Fila, 1) Then
Me.TextBox3 = Hoja1.Cells(Fila, 3)
Exit For
End If
Next
For Fila = 2 To 1000
If Me.TextBox1 = Hoja1.Cells(Fila, 1) Then
Me.TextBox4 = Hoja1.Cells(Fila, 4)
Exit For
End If
Next
For Fila = 2 To 1000
If Me.TextBox1 = Hoja1.Cells(Fila, 1) Then
Me.TextBox5 = Hoja1.Cells(Fila, 5)
Exit For
End If
Next
End Sub
El excel se compone sólo de una hoja donde esta
la referencia, el nombre, la cantidad, lugar,....
Espero que puedan ayudarme, muchas gracias
Lia
Valora esta pregunta
0