Jump to content

[SOLUCIONADO] Asociar Textbox a Celda


Javier Andrés

Recommended Posts

Un saludo nuevamente a todos

Compañeros, la presente es para generar un botón que me busque datos. Tengo una UserForm, dónde se guardan datos de facturas y la idea es que exista un botón que me devuelva datos. Es decir un comandbutton que me permita, al ingresar el número de la factura en un text box, me asocie los datos guardados para esa factura. Anexo fichero, está en uf3.

Anexo también mi intento de código, que al parecer no funciona

txtfact5.Enabled = True

txtfact5.Value = ""

txtfact5.SetFocus

Dim ifila As Long

If txtfact5 = Sheets(7).Cells(ifila, 1).Value Then

Sheets(7).Cells(ifila, 2) = cbox1.Value

Sheets(7).Cells(ifila, 3) = txtfact1.Value

Sheets(7).Cells(ifila, 4) = txtfact2.Value

Else

MsgBox "Factura no registrada"

Agradecimientos de antemano

Javier

Aprendiendo.zip

Link to comment
Share on other sites

Re: Asociar Textbox a Celda

Hola Javier Andres....., no he hurgado en profundidad en tu archivo, pero a lo pronto me parece que en las lineas de codigo donde quieres cargar un Textbox, debes cambiar el orden, es decir , en lugar de:

Sheets(7).Cells(ifila, 2) = cbox1.Value poner cbox1 = Sheets(7).Cells(ifila, 2)

Sheets(7).Cells(ifila, 3) = txtfact1.Value txtfact1 = Sheets(7).Cells(ifila, 3)

Sheets(7).Cells(ifila, 4) = txtfact2.Value txtfact2 = Sheets(7).Cells(ifila, 4)

Link to comment
Share on other sites

Re: Asociar Textbox a Celda

Un saludo nuevamente a todos

Compañeros, la presente es para generar un botón que me busque datos. Tengo una UserForm, dónde se guardan datos de facturas y la idea es que exista un botón que me devuelva datos. Es decir un comandbutton que me permita, al ingresar el número de la factura en un text box, me asocie los datos guardados para esa factura. Anexo fichero, está en uf3.

Anexo también mi intento de código, que al parecer no funciona

txtfact5.Enabled = True

txtfact5.Value = ""

txtfact5.SetFocus

Dim ifila As Long

If txtfact5 = Sheets(7).Cells(ifila, 1).Value Then

Sheets(7).Cells(ifila, 2) = cbox1.Value

Sheets(7).Cells(ifila, 3) = txtfact1.Value

Sheets(7).Cells(ifila, 4) = txtfact2.Value

Else

MsgBox "Factura no registrada"

Agradecimientos de antemano

Javier

Checa el adjunto a ver si es algon como lo que necesitas

Aprendiendo.zip

Link to comment
Share on other sites

Re: Asociar Textbox a Celda

Varios comentarios:

superovoro: Está bueno tu aporte, voy a intentar y te comento que tal, te agradezco tu atención y la sugerencia, a veces, por estar emepezando en este mundo del VBA, pues como que uno se complica, como lo pones se ve muy simple y comprensible, ¡Muchas gracias!

djpawngdl: ¡Enhorabuena! De verdad compañero, un agradecimiento enorme, si bien no es exactamente lo que buscaba, me sirve muchísimo y es perfectamente adaptable a lo que buscaba. Apenas este post se suba, estaré poniendome a estudiarle y adaptarlo a las necesidades personales, pero quedó excelente.

En general a ambos: ¡Gracias por la prontísima atención! Espero aprender bastante de tan buenos y pendientes consejeros para poder empezar a ayudar yo también.

Javier

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy