Pasar datos de listbox a hoja con decimales
Como están estimados maestros y maestras, una vez mas solicitando vuestra experta ayuda.
Tengo un formulario que busca datos entre 2 fechas desde 2 textbox, carga en listbox lo filtrado, en la columna 2 del listbox carga valores con formato de 2 decimales. Estos mismos datos los paso a una tabla a partir de la fila 4, pero no logro que en la columna 3 de la tabla (C), los datos sean exactamente igual a los del listbox, es decir valores con los 2 decimales, los pasa en números enteros.
Podrían orientarme como lograr lo que necesito.
1 respuesta
Claro que sí, con gusto te ayudo. Entiendo que quieres pasar los datos de un ListBox a una hoja de Excel, manteniendo el formato de dos decimales que tienes en la columna 2 del ListBox. Veo que ya estás usando un formulario con TextBox para filtrar datos entre dos fechas, ¡Genial!
Para que los datos se copien con los dos decimales a la columna 3 de tu hoja, te recomiendo que revises el formato de las celdas en la columna "C" de tu tabla. Asegúrate de que estén configuradas para mostrar dos decimales. Puedes hacerlo de la siguiente manera:
* Selecciona la columna "C" de tu tabla.
* Haz clic derecho y selecciona "Formato de celdas".
* En la pestaña "Número", elige la categoría "Número".
* En el cuadro "Posiciones decimales", escribe "2".
Además, al momento de pasar los datos del ListBox a la hoja, es importante que uses el valor numérico y no el texto que se muestra en el ListBox. En VBA, puedes usar la función Val() para convertir el texto a un valor numérico.
Por ejemplo, si estás usando un bucle para pasar los datos, podrías usar algo como esto:
For i = 0 To ListBox1.ListCount - 1
' Suponiendo que la columna 2 del ListBox tiene índice 1
Sheets("Hoja1").Cells(i + 4, 3).Value = Val(ListBox1.List(i, 1))
Next i
En este código:
* ListBox1 es el nombre de tu ListBox.
* Sheets("Hoja1") debes reemplazarlo con el nombre de la hoja donde está tu tabla.
* Cells(i + 4, 3) se refiere a la celda en la fila i + 4 y columna 3 (columna "C").
* Val(ListBox1. List(i, 1)) obtiene el valor numérico de la columna 2 (índice 1) del ListBox.
Recuerda que este es un ejemplo general.
¡Espero que esto te ayude!?
¡Gracias!
Muy agradecido Rodolfo por vuestro apoyo, funcionó bien todo. Igual yo tenía error en una variable estaba como Integer la cambié a Double.
Excelente apoyo
Bendiciones.
