Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic para Aplicaciones » duda userform

Visual Basic para Aplicaciones - duda userform

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

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 :

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

duda userform

Publicado por Antoni Masana (498 intervenciones) el 24/06/2018 22:09:46
Podemos hacer las cosas complicadas o muy simples, mejor hacerlas simples.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub TextBox1_Change()
    Dim Fila As Integer
 
    If Me.TextBox1.Value = "" Then
       Me.TextBox2.Value = ""
       Me.TextBox3.Value = ""
       Me.TextBox4.Value = ""
       Me.TextBox5.Value = ""
    Else
       For Fila = 2 To 1000
           If Me.TextBox1.Value = Hoja1.Cells(Fila, 1) Then
              Me.TextBox2.Value = Hoja1.Cells(Fila, 2)
              Me.TextBox3.Value = Hoja1.Cells(Fila, 3)
              Me.TextBox4.Value = Hoja1.Cells(Fila, 4)
              Me.TextBox5.Value = Hoja1.Cells(Fila, 5):  Exit For
           End If
       Next
    End If
End Sub

¿Y ahora que es lo que falla?

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

duda userform

Publicado por francisco (1 intervención) el 27/06/2018 02:07:27
es una buena respuesta en cuanto a las instrucciones que le proporcionaron.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar