Estimados buenas noches.

Agradecería su colaboración con el siguiente caso:

Estoy con el siguiente código que no me funciona, necesita dar doble clink en el ListBox y que se cargue la información en la hoja excel, cada click debe ir colocándose desde la ultima celda utilizada para abajo.

 

Codigo

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim uf As Integer

uf = Hoja2.Range("A" & Hoja2.Rows.Count).End(xlUp).Row + 1

With Me.ListBox1

Hoja2.Cells(uf, 2) = .List(.ListIndex, 0)
Hoja2.Cells(uf, 6) = .List(.ListIndex, 2)
Hoja2.Cells(uf, ? = .List(.ListIndex, 3)

End With

 

ListBox mas hoja excel

t

Sin el archivo, imposible.

Maestro Antony.

 

Adjunto le envío el link, por favor su ayuda.

V3xxxx.xlsm

Gracias.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim uf As Integer

uf = Hoja2.Range("B" & Hoja2.Rows.Count).End(xlUp).Row + 1 '<---------------
With Me.ListBox1
   Hoja2.Cells(uf, 2) = .List(.ListIndex, 0)
   Hoja2.Cells(uf, 6) = .List(.ListIndex, 2)
   Hoja2.Cells(uf, 8) = .List(.ListIndex, 3)
End With

End Sub

 

Saludos Anthony.

Le cuento que no me funciono, no me permitía alimentar a la hoja "Distribución" con el código que me envío, realice un cambio en la tercera línea en vez de la "B" coloque la "A" y ahí me queda como tenia antes.

Por favor su ayuda para solucionar, la idea es que al momento de dar doble clic en cualquier línea del formulario automáticamente detecte la ultima línea vacía a partir de línea 5 de la hoja Distribución y ahí se cargue la información y así para abajo.

Gracias.

Algo debes haber hecho mal, porqué a mi me funciona perfectamente al dar doble-click en la lista.

Claro que si  todo lo haces como has puesto mi nombre, no me extraña que no te funcione, ME LLAMO ANTONI NO ANTHONY.

V3xxxx.xlsm

Gracias Antoni.

@Antoni buenos días.

Nuevamente su ayuda, la solución que me indico ya esta funcionando pero al momento de colocar las formulas en las celdas L4:S102 de la Hoja "Transformación"  el ListBox falla, se realiza el doble clik y no coloca la información de la linea seleccionada si no de otra.

Adjunto el link de un video corto y del archivo.

Por favor su ayuda.

Gracias.

https://elordeno-my.sharepoint.com/:v:/p/rcalderon/ESkRUWIvOMFPvkQqx7dZE2kB0Z5SGF9jezX8hhXQWgV11Q?e=laDetW

 

https://elordeno-my.sharepoint.com/:x:/p/rcalderon/EYzr10WC18lMhPh3vGzJoasBiV1cYEIxzMRubVcZaauTnQ?e=zCuQl0

Editado el el 15 de junio2 años por Ruben_sk8

Buen día Maestro @Antoni

Por favor su ayuda.

 

Gracias.

@Antoni

Buenos días.

Por favor me puede ayudar.