Visual Basic para Aplicaciones - copiar datos de listbox a hoja de excel

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 21
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

copiar datos de listbox a hoja de excel

Publicado por mauricio (8 intervenciones) el 20/07/2022 18:22:49
Tengo el siguiente codigo que me extrae datos del listbox a una hoja de excel.
pero al pasar los datos que traen fecha me los coloca como mm/dd/aa y lo requiero como dd/mm/aa, cabe recalcar que los datos de las fechas estan en una fila especifica "solo en una fila". Como podria modifcar mi codigo para poder realizar el cambio.


Set r = Sheets("RESUMEN")
uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1
'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents
Dim Fcc As Date 'Declaracion de variable de tipo fecha
Fcc = FormatDateTime(Now, vbShortDate) 'asiganos la fecha a la variable
r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS" 'Enviamos el nombre de la empresa a la Celda A1
'Enviamos el nombre del Reporte


Dim fecha As Date




If Me.Combo_Confianza.value = "Confianza" Then
r.Cells(2, 1) = "Grupo :" & "CONFIANZA"




For X = 0 To ListBox1.ListCount - 1


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

r.Cells(uf, 1).value = ListBox1.List(X, 0)
r.Cells(uf, 2).value = ListBox1.List(X, 1)
r.Cells(uf, 3).value = ListBox1.List(X, 2)
r.Cells(uf, 4).value = ListBox1.List(X, 3)
r.Cells(uf, 5).value = ListBox1.List(X, 4)
r.Cells(uf, 6).value = ListBox1.List(X, 5)
r.Cells(uf, 7).value = ListBox1.List(X, 6)
r.Cells(uf, 8).value = ListBox1.List(X, 7)
r.Cells(uf, 9).value = ListBox1.List(X, 8)
r.Cells(uf, 10).value = ListBox1.List(X, 9)
r.Cells(uf, 11).value = ListBox1.List(X, 10)
r.Cells(uf, 12).value = ListBox1.List(X, 11)
r.Cells(uf, 13).value = ListBox1.List(X, 12)
r.Cells(uf, 14).value = ListBox1.List(X, 13)
r.Cells(uf, 15).value = ListBox1.List(X, 14)
r.Cells(uf, 16).value = ListBox1.List(X, 15)
r.Cells(uf, 17).value = ListBox1.List(X, 16)


Next X

reporte



Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

copiar datos de listbox a hoja de excel

Publicado por Antoni Masana (500 intervenciones) el 25/07/2022 08:27:20
No se en que momento pones las fechas por lo que no se donde se debe modificar el código.
A parte de que el código esta incompleto.

No veo donde se utiliza Fcc
No veo donde se utiliza fecha

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub ...
    Set r = Sheets("RESUMEN")
    uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1
    'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents
    Dim Fcc As Date 'Declaracion de variable de tipo fecha
 
    Fcc = FormatDateTime(Now, vbShortDate) 'asignamos la fecha a la variable
    r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS" 'Enviamos el nombre de la empresa a la Celda A1
    'Enviamos el nombre del Reporte
 
    Dim fecha As Date
 
    If Me.Combo_Confianza.value = "Confianza" Then
        r.Cells(2, 1) = "Grupo :" & "CONFIANZA"
 
        For X = 0 To ListBox1.ListCount - 1
            uf = r.Range("A" & Rows.Count).End(xlUp).Row + 1
 
            r.Cells(uf, 1).value = ListBox1.List(X, 0)
            r.Cells(uf, 2).value = ListBox1.List(X, 1)
            r.Cells(uf, 3).value = ListBox1.List(X, 2)
            r.Cells(uf, 4).value = ListBox1.List(X, 3)
            r.Cells(uf, 5).value = ListBox1.List(X, 4)
            r.Cells(uf, 6).value = ListBox1.List(X, 5)
            r.Cells(uf, 7).value = ListBox1.List(X, 6)
            r.Cells(uf, 8).value = ListBox1.List(X, 7)
            r.Cells(uf, 9).value = ListBox1.List(X, 8)
            r.Cells(uf, 10).value = ListBox1.List(X, 9)
            r.Cells(uf, 11).value = ListBox1.List(X, 10)
            r.Cells(uf, 12).value = ListBox1.List(X, 11)
            r.Cells(uf, 13).value = ListBox1.List(X, 12)
            r.Cells(uf, 14).value = ListBox1.List(X, 13)
            r.Cells(uf, 15).value = ListBox1.List(X, 14)
            r.Cells(uf, 16).value = ListBox1.List(X, 15)
            r.Cells(uf, 17).value = ListBox1.List(X, 16)
        Next X

Seria interesante que subiese un libro y expliques el funcionamiento para ver que hace y porque lo hace.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar