With Workbooks

02/12/2008 - 16:02 por gongi | Informe spam
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

#1 Héctor Miguel
02/12/2008 - 18:41 | Informe spam
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

Preguntas similares