With Workbooks

hola, domingo !

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?).

si suponemos que de la misma celda [B3] se puede tomar a que ejercicio corresponden los datos de la factura -???-
y que ambos libros ("facturas_2008" y "facturas_2009") estan abiertos en la sesion, prueba con algo +/- como lo siguiente:

With Worksheets("factura")
Datos_Factura = Array(.[b3], .[b2], .[b7], .[b8], .[d53], .[d54], .[d55], .[b4])
' para salvar la notacion de "mes" '
Mes = Evaluate("index({""enero"",""febrero"",""marzo"",""abril"",""mayo""," & _
"""junio"",""julio"",""agosto"",""septiembre"",""octubre""," & _
"""noviembre"",""diciembre""},month(" & .[b3].Address(, , , 1) & "))")
Ejercicio = Year(.[b3])
End With
' volcar los datos en el resumen de facturas '
With Workbooks("facturas_" & Ejercicio).Worksheets(Mes)
With .Range("a" & .Range("h" & Rows.Count).End(xlUp).Row)
.Offset(1).Resize(, 8) = Datos_Factura
End With
End With

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
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

On 2 dic, 18:41, "Héctor Miguel"
wrote:

hola, domingo !

> 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?).

si suponemos que de la misma celda [B3] se puede tomar a que ejercicio corresponden los datos de la factura    -???-
y que ambos libros ("facturas_2008" y "facturas_2009") estan abiertos en la sesion, prueba con algo +/- como lo siguiente:

  With Worksheets("factura")
    Datos_Factura = Array(.[b3], .[b2], .[b7], .[b8], .[d53], .[d54], .[d55], .[b4])
    ' para salvar la notacion de "mes" '
    Mes = Evaluate("index({""enero"",""febrero"",""marzo"",""abril"",""mayo""," & _
                           """junio"",""julio"",""agosto"",""septiembre"",""octubre""," & _
                           """noviembre"",""diciembre""},month(" & .[b3].Address(, , , 1) & "))")
    Ejercicio = Year(.[b3])
  End With
  ' volcar los datos en el resumen de facturas '
  With Workbooks("facturas_" & Ejercicio).Worksheets(Mes)
    With .Range("a" & .Range("h" & Rows.Count).End(xlUp).Row)
      .Offset(1).Resize(, 8) = Datos_Factura
    End With
  End With

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
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

..
¡ Perfecto ! ¡ Muchas gracias , Héctor !!
Un saludo