Hola Grupo !
Por favor ,
Tengo que usar este código para empezar a funcionar con el 2009 , con
el volcado en un histórico (facturas_2009). Existe alguna manera de
simultanear el 2008 (facturas_2008) y el 2009, o que pida el dato del
With Workbooks(). ? (variable?) .
Muchas gracias por vuestra ayuda
' ****** código facilitado por
microsoft.public.es.excel*****************'
With Worksheets("factura")
Datos_Factura = Array(.[b3], .[b2], .[b7], .[b8], .[d53], .
[d54], .[d55], .[b4])
'para salvar la notación de "mes" '
Mes = Evaluate("index
({""enero"",""febrero"",""marzo"",""abril"",""mayo""," & _
"""junio"",""julio"",""agosto"",""septiembre"",""octubre""," & _
"""noviembre"",""diciembre""},month(" & .
[b3].Address(, , , 1) & "))")
End With
'volcar los datos en el resumen de facturas '
With Workbooks("facturas_2008").Worksheets(Mes)
With .Range("a" & .Range("h" & Rows.Count).End(xlUp).Row)
.Offset(1).Resize(, 8) = Datos_Factura
End With
End With
Leer las respuestas