Ver originales (Francés)

¿Cómo transferir los datos de una listbox a la hoja?

Resuelto
SOMUM Mensajes publicados 28 Estado Miembro -  
SOMUM Mensajes publicados 28 Estado Miembro -
Hola,

En el marco de mi trabajo, para la creación de una “cosa” automatizada :), he escrito esto. Los valores ingresados en las textbox se transfieren bien a la hoja, pero no hay forma de transferir el dato seleccionado en la listbox (Aceptada o Rechazada). 

Private Sub CommandButtonOK_Click()
 Range("V13") = TextBox9.Value
 Range("N23") = TextBox2.Value
 Range("N24") = TextBox3.Value
 Range("X27") = TextBox4.Value
 Range("X28") = TextBox5.Value
 Range("X29") = TextBox6.Value
 Range("N32") = TextBox7.Value
 Range("X32") = TextBox8.Value
 Unload Me
End Sub

Private Sub UserForm_Initialize()
 ListBox1.List() = Range("BU20:BU22").Value
End Sub

Private Sub UserForm_Activate()
With Me
 .StartUpPosition = 1
 .Left = 100
 .Top = 50
 End With
End Sub


¿Podría alguien ayudar? Llevo desde ayer en ello y me estoy arrancando los cabellos incluso si ya no los tengo. He buscado en Google (que es mi amigo), pero me dejó colgado :'(

Gracias de antemano.

Configuración: Windows 7 / Chrome 49.0.2623.110 / Excel 2010

1 respuesta

  1.
    pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773
     
    Hola,

    Algo así: 
    If listBox1.listIndex = -1 Then 'Si aucune ligne n'est sélectionnée, la macro renverrait une erreur ICI Else Range("A1") = ListBox1.List(ListBox1.ListIndex) End If


    Entonces, en versión más corta: 
    If listBox1.listIndex > -1 Then Range("A1") = ListBox1.List(ListBox1.ListIndex)


    Antes, je n’arrivais jamais à finir mes phrases... mais maintenant je
    0
    1. SOMUM Mensajes publicados 28 Estado Miembro
        
      Private Sub CommandButtonOK_Click()
       Range("V13") = TextBox9.Value
       Range("N23") = TextBox2.Value
       Range("N24") = TextBox3.Value
       Range("X27") = TextBox4.Value
       Range("X28") = TextBox5.Value
       Range("X29") = TextBox6.Value
       Range("N32") = TextBox7.Value
       Range("X32") = TextBox8.Value
       Unload Me
      End Sub


      Private Sub UserForm_Initialize()
       ListBox1.List() = Range("BU20:BU22").Value
      If ListBox1.ListIndex > -1 Then Range("H62") = ListBox1.List(ListBox1.ListIndex)
      End Sub

      Private Sub UserForm_Activate()
      With Me
       .StartUpPosition = 1
       .Left = 100
       .Top = 50
       End With
      End Sub


      Comme cela ?
      0
      1. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773 > SOMUM Mensajes publicados 28 Estado Miembro
         
        No, no al inicio del userform vamos a...

        Dices:
        Los valores introducidos en los textbox se transfieren bien a la hoja, pero no hay manera de transferir el dato seleccionado en la ListBox

        ¿Qué procedimiento utilizas para que los valores escritos en tus textbox se transfieran a la hoja?
        CommandButtonOK_Click

        ¿OK?
        Entonces es en el código de tu botón: 
        Private Sub CommandButtonOK_Click() Range("V13") = TextBox9.Value Range("N23") = TextBox2.Value Range("N24") = TextBox3.Value Range("X27") = TextBox4.Value Range("X28") = TextBox5.Value Range("X29") = TextBox6.Value Range("N32") = TextBox7.Value Range("X32") = TextBox8.Value If ListBox1.ListIndex > -1 Then Range("H62") = ListBox1.List(ListBox1.ListIndex) Unload Me End Sub
        0
    2. SOMUM Mensajes publicados 28 Estado Miembro
       
      Te mereces un beso :)

      Puedo precisar que soy totalmente novato en Excel. pero al final yo (y los usuarios del foro también) conseguimos hacer algo muy trabajado :)
      0
      1. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773 > SOMUM Mensajes publicados 28 Estado Miembro
         
        Me alegra por ti.
        Nos vemos.
        0
    3. SOMUM Mensajes publicados 28 Estado Miembro
       
      Muchas gracias!
      0