userform....de fila en fila

12/07/2006 - 21:05 por MARCO6325 | Informe spam

Buenas a todo el grupo...
tengo un userform que copia los datos de una hoja en varios texbox al
activar un comandbutton, quiero crear un comandbutton que se llame
Siguiente, para que cargue los datos de la siguiente fila, y cuando no
existan mas datos me de un mensaje q me diga que no hay mas datos...les
escribo el código que copia los datos de la hoja al userform:

Private Sub CommandButton3_Click()
Sheets("..").Select
TextBox1.Value = Range("a4")
TextBox2.Value = Range("b4")
TextBox3.Value = Range("c4")
TextBox4.Value = Range("d4")
TextBox5.Value = Range("j4")
TextBox6.Value = Range("g4")
TextBox7.Value = Range("h4")
TextBox8.Value = Range("i4")
TextBox9.Value = Range("e4")
TextBox10.Value = Range("f4")
TextBox11.Value = Range("k4")
TextBox12.Value = Range("k4")
TextBox13.Value = Range("a2")
End Sub
quiero que si ejecute el comandbutton llamado siguiente, me cambie los
datos por los de la fila 5, y asi sucesivamentey si es posible,
crear otro para devolverme a la fila anterior
muchas gracias de antemano por su atención

Siga el debate

9 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 klomkbock

13/07/2006 - 19:42 | Informe spam

Hola Marco

Lo que te he mandado en teoria, y en mi pc en la practica, hace
exactamente lo que creo que pides.

Rellena los textbox de un formulario con los datos de una fila empezando
en la fila 4 como ponias en el ejemplo. Si x=nº de fila : el textbox1 con
"Ax", el textbox2 con "Bx", el textbox3 con"Cx", ... , etc( en este caso
hasta 12 textbox o sea textbox12 = "Lx" -creo que me he pasado 1 pero
valdria igual-
y hay un textbox13 que se rellena con "A2" siempre que es lo que me parece
entender en tu 1ª consulta. En cualquier caso esto lo puedes rectificar
sin problemas.

Ten en cuenta que esto es un ejemplo general que deberias adaptar a tus
circunstancias. Si quieres probar el codigo tal cual debes asegurarte lo
siguiente como poco:

1.-Los datos deben estar en una hoja llamada "Hoja1".
2.-Las filas con los registros que quieres ver en el formulario deben
empezar en la fila 4 (los datos, no los titulos)
3.-Debes tener un formulario en el mismo libro con 13 textbox que se
llamen: TextBox1, TextBox2, ., TextBox13.
4.-Ten en cuenta que, pej. si la fila es la nº4 en el TextBox1 aparecera
lo que haya en "A4", en el TextBox2 lo que haya en "B4" y asi
sucesivamente.
5.-El formulario tiene que tener 3 CommandButton llamados CommandButton1,
CommandButton2 y CommandButton3. Te digo lo mismo que antes si los
insertas y son los unicos se llamaran asi. En su propiedad caption si
quieres puedes poner: al 1 =>Anterior, al 2=>Cancelar y al 3=>Siguiente.

si no tienes todo esto prueba a hacerlo de nuevo y mira a ver. Deberia
funcionarte sin problemas (creo)

Supongo por lo que dices que al formulario ya tienes acceso.

Con lo que sea comentas.
Un saludo
Ivan

Responder a este mensaje

#7 klomkbock

13/07/2006 - 19:48 | Informe spam

Disculpame Marco, ya sabes mi obsesion con los mensajes, pero no habia
leido tu anterior respuesta.
Por lo que parece ya has cambiado los nombres a los controles. Si lo has
hecho bien no tendria que haber problemas.
Puede que te tengas que posicionar en la hoja pues presupone una celda
activa.
Lo siento tengo que dejarlo. si sigues con problemaas hablamos

uin saludo

Responder a este mensaje

#8 MARCO6325

13/07/2006 - 20:18 | Informe spam

Gracias ivan...el error era en el nombre de la página..como
siempre me ayudaron perfectamente...un millón¡¡¡¡¡¡¡¡¡

Responder a este mensaje

#9 klomkbock

13/07/2006 - 23:35 | Informe spam

Hola de nuevo Marco

Cambia en el evento activate lo siguiente:

ElseIf y > .[a65536].End(xlUp).Row Then

por:

ElseIf y > .[a65536].End(xlUp).Row - 1 Then

disculpa mis torpezas
Un saludo
Ivan

MARCO6325 wrote: