............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Problemas con listbox

Ver el tema anterior Ver el tema siguiente Ir abajo

Problemas con listbox

Mensaje por Emiliano Galasso el Vie Nov 12, 2010 11:58 am

Estimados,
Cuando ingreso datos a través de los textbox y combobox me los guarda en la hoja de excel y los carga en el listbox, hasta ahí todo bien. El problema surge cuando selecciono un dato del listbox, me los tendría que cargar en los texbox y combobox, cosa que no he podido hacer.
Saludos,
Emiliano

Emiliano Galasso

Masculino Cantidad de envíos : 40
Edad : 45
Ciudad - Pais : Montevideo-Uruguay
Version de Excel : 2003-2007
Fecha de inscripción : 15/10/2010

Volver arriba Ir abajo

Re: Problemas con listbox

Mensaje por Tatayayan el Vie Nov 12, 2010 12:24 pm

Hola, modifique el código en 2 subrutinas:
Código:
Private Sub lst_docentes_Click()
txt_nombreapellido.Text = lst_docentes.Text
txt_celular.Value = Hoja1.Range("I" & lst_docentes.ListIndex + 3)
txt_mail.Value = Hoja1.Range("J" & lst_docentes.ListIndex + 3)
txt_telefono.Value = Hoja1.Range("H" & lst_docentes.ListIndex + 3)
txt_ingreso.Value = Hoja1.Range("F" & lst_docentes.ListIndex + 3)
txt_egreso.Value = Hoja1.Range("G" & lst_docentes.ListIndex + 3)
txt_nrocobro.Value = Hoja1.Range("A" & lst_docentes.ListIndex + 3)
cbo_asignatura1 = Hoja1.Range("C" & lst_docentes.ListIndex + 3)
cbo_asignatura2 = Hoja1.Range("D" & lst_docentes.ListIndex + 3)
cbo_asignatura3 = Hoja1.Range("E" & lst_docentes.ListIndex + 3)
End Sub
Código:
Private Sub UserForm_Initialize()
[b]Hoja1.Select[/b]
cbo_asignatura1.RowSource = "Asignaturas"
cbo_asignatura2.RowSource = "Asignaturas"
cbo_asignatura3.RowSource = "Asignaturas"
lst_docentes.RowSource = "B3:B74"
End Sub

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Problemas con listbox

Mensaje por Emiliano Galasso el Vie Nov 12, 2010 1:51 pm

Gracias Tatayayan, me sirve la opción que pusistes.
Antes había probado otra opción que no subí que también funciona y le agregué un botón para limpiar y poder ingresar datos nuevos. Pero me surgió otro problema (destape un agujero y se me tapa otro, jeje) y es que, cuando quiero ingresar datos nuevos, no me ingresa todos sino parte. Subo el archivo con las modificaciones. Dejé inhabilitado la solución que había encontrado a la solución anterior ya que me aparecía en el listbox los datos de todas las columnas lo cual no era lo que en sí quería (si alguien sabe, agradecido también). Dejé el código brindado por Tatayayan ya que se adecua más a lo que quiero que aparezca en el listbox.
Saludos,
Emiliano

Emiliano Galasso

Masculino Cantidad de envíos : 40
Edad : 45
Ciudad - Pais : Montevideo-Uruguay
Version de Excel : 2003-2007
Fecha de inscripción : 15/10/2010

Volver arriba Ir abajo

Re: Problemas con listbox

Mensaje por Emiliano Galasso el Vie Nov 12, 2010 1:52 pm

subo el archivo


Emiliano Galasso

Masculino Cantidad de envíos : 40
Edad : 45
Ciudad - Pais : Montevideo-Uruguay
Version de Excel : 2003-2007
Fecha de inscripción : 15/10/2010

Volver arriba Ir abajo

Re: Problemas con listbox

Mensaje por moises melgar el Vie Nov 12, 2010 2:59 pm

hola tatayayan esta bueno el comentario esto me hace recordar el tema de Validacion de datos "lista que depende de otra lista" (validacion de datos)
Aunque no sea lo que pida el usuario pero me gutaria poder mostrarlo
aqui se los dejo:


moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 512
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Problemas con listbox

Mensaje por Tatayayan el Vie Nov 12, 2010 4:40 pm

Código:
Private Sub cmd_ingresardatos_Click()
Dim Fila As Long
If txt_nombreapellido.Text = "" Or txt_nrocobro.Value = "" Or txt_celular.Value = "" Or txt_telefono.Value = "" Or txt_ingreso.Text = "" Or txt_egreso.Value = "" Or txt_mail.Value = "" Or cbo_asignatura1.Text = "" Or cbo_asignatura2.Text = "" Or cbo_asignatura3.Text = "" Then
  MsgBox ("No debes dejar casilleros vacíos, si no se tienen datos completar con Sin Datos, gracias")
Else
  Fila = Hoja1.Range("A65536").End(xlUp).Row + 1
  Range("A" & Fila) = txt_nrocobro
  Range("B" & Fila) = txt_nombreapellido
  Range("C" & Fila) = cbo_asignatura1
  Range("D" & Fila) = cbo_asignatura2
  Range("E" & Fila) = cbo_asignatura3
  Range("F" & Fila) = txt_ingreso
  Range("G" & Fila) = txt_egreso
  Range("H" & Fila) = txt_telefono
  Range("I" & Fila) = txt_celular
  Range("J" & Fila) = txt_mail
End If
End Sub

Private Sub UserForm_Initialize()
cbo_asignatura1.RowSource = "Asignaturas"
cbo_asignatura2.RowSource = "Asignaturas"
cbo_asignatura3.RowSource = "Asignaturas"
lst_docentes.RowSource = "B3:B74"
[b]lst_docentes.ListIndex = 0 'dejo marcado siempre uno[/b]
End Sub

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Problemas con listbox

Mensaje por Contenido patrocinado Hoy a las 1:55 am


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.