Visual Basic para Aplicaciones - Bucle no coloca datos en los textboxs

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Bucle no coloca datos en los textboxs

Publicado por ABED (3 intervenciones) el 24/02/2015 05:53:19
Buenas noches, señores del foro;
Estoy angustiado porque no hallo razón porque mi código no funciona y es
el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Prívate sub combobox1_change()
Dim i as integer
Dim final as integer
 
For i = 2 to 100
If hoja1.cells(i,1)="" tren
Final=i-1
Exit for
End if
Next
 
For i=2 to final
If combobox1=hoja1.cells(i,1) then
Textbox1=hoja1.cells(i,1)
Textbox2=hoja1.cells(i,2)
.....sucesivamente
Exit for
End if
Next
End sub

En otro evento:

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
Prívate sub combobox1_enter()
Dim i as integer
Dim j as integer
Dim h as integer
Dim final as integer
Dim tarea as integer
 
Combobox1.backcolor=vbgreen
For i=2 to Combobox1.listcount
Combobox1.removeItem 0
Next i
 
For j =2 to 1000
If hoja1.cells(j,1)="" then
Final=j-1
Exit for
End if
Next
 
For h=2 to final
Tarea=hoja1.cells(h,1)
Combobox1.additem (tarea)
Next
 
End sub

Aquí el problema es que no hallo porqué el código no llena los textboxs con la información que esta en la hoja1. Agradezco su tiempo para contestar mi pregunta, estoy realmente atormentado.
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 Jorge

Bucle no coloca datos en los textboxs

Publicado por Jorge (2 intervenciones) el 27/02/2015 22:03:43
Hola, creo que tu falla es que debes escribir sheets("hoja1") en vez de hoja1 cuando hagas referencia a ella. Además en la sexta línea de código del primer fragmento pusiste tren en vez de then.

El código en mi opinión quedaría así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Prívate sub combobox1_change()
Dim i as integer
Dim final as integer
 
For i = 2 to 100
If sheets("hoja1").cells(i,1)="" then
Final=i-1
Exit for
End if
Next
 
For i=2 to final
If combobox1=sheets(hoja1).cells(i,1) then
Textbox1=sheets("hoja1").cells(i,1)
Textbox2=sheets("hoja1").cells(i,2)
.....sucesivamente
Exit for
End if
Next
End sub

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
Prívate sub combobox1_enter()
Dim i as integer
Dim j as integer
Dim h as integer
Dim final as integer
Dim tarea as integer
 
Combobox1.backcolor=vbgreen
For i=2 to Combobox1.listcount
Combobox1.removeItem 0
Next i
 
For j =2 to 1000
If sheets(hoja1).cells(j,1)="" then
Final=j-1
Exit for
End if
Next
 
For h=2 to final
Tarea=sheets(hoja1).cells(h,1)
Combobox1.additem (tarea)
Next
 
End sub
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

Bucle no coloca datos en los textboxs

Publicado por MMan (4 intervenciones) el 27/02/2015 22:15:29
.. o en vez de modificar todo el codigo.. podrias crear la variable hoja1.. que apunte a sheets("hoja1")


al inicio agregas

set hoja1 = sheets("hoja1")


y seria el unico cambio
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
sin imagen de perfil

Bucle no coloca datos en los textboxs

Publicado por Abed (3 intervenciones) el 02/03/2015 17:13:09
Buenos días! Mman

De igual forma sigo agradeciendo por sus aportes, únicamente les comento que mi código aun sigue sin funcionar. Ya revise e hice las correcciones pertinentes pero sigue sin funcionar.

Seguiré agradecido por sus intervenciones!
Muchas gracias!
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
sin imagen de perfil

Bucle no coloca datos en los textboxs

Publicado por Abed (3 intervenciones) el 02/03/2015 17:06:55
Buenos días Jorge, agradezco mucho el tiempo que te tomas por resolver mi duda, sabes si probé tu sugerencia por desgracia aun sigue sin funcionar correctamente. No se a que se deba sigo bloqueado, no entiendo, en otro programará tengo un código similar, en este me busca 2 valores en diferente hoja de cálculo y si me los pone en unas textboxs, pero sinceramente desconozco las razones de porque no funciona igual. Mi gran duda es porque al correr el código no me manda ningún error?

Nuevamente te doy las gracias, y espero resolver pronto este problemita, no dude en seguirme sugiriendo.
Gracias!
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
sin imagen de perfil

Bucle no coloca datos en los textboxs

Publicado por Humberto Ramírez (6 intervenciones) el 10/03/2015 21:38:19
Iniciando encuentra la celda vacía y se sale del bucle, entonces termina el proceso; debes de verificar que en el rango de donde se toman los datos no haya celdas vacías para que el proceso continúe y alcance a llenar tus controles textbox's 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
sin imagen de perfil

Bucle no coloca datos en los textboxs

Publicado por ISNARDO (1 intervención) el 21/05/2015 02:54:37
como hace para mostar el codifo en la preguna
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