Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

pasar datos a otro libro segun el mes

17/08/2008 - 14:27 por gongi | Informe spam
Ayuda Hacer una pregunta
Hola Grupo!
Por favor, algún hilo que ya halla tratado este tema:
Se trata de que, de mi hoja o *plantilla* de liquidacion <<factura>>
tengo que pasar los datos a un libro *informe* cuyas hojas, son los
[meses del año] . Entonces en base a la *fecha* de liquidacion, tengo
que pasar ciertos datos de la plantilla, a la *hoja* del *mes* de la
fecha de la liquidacion (12/08/2008 a la hoja "AGOSTO" ) .

Aprovechando el código de "historico ()".

Sub Historico()
Dim Generales, n As Byte, Col As Byte
With Worksheets("liquidacion")
Generales = Array(.[b2], .[d53], .[d54], .[b7], .[b3], .[b4], .
[b5], .[b56], .[c56], .[d56])
End With

With Workbooks("informe").Worksheets("AGOSTO") -> ¿Existe
alguna manera de hacer este dato *variable*, que se le pida al usuario
por Inputbox el mes de que se trate o por lista despegable)

With .[a65536].End(xlUp)
.Offset(1).Resize(, 10) = Generales
End With
End With
End Sub

Muchas gracias por vuestra ayuda
Saludos !
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
18/08/2008 - 02:36 | Informe spam
hola, domingo !

__ 1 __
Se trata de que, de mi hoja o *plantilla* de liquidacion <<factura>>
tengo que pasar los datos a un libro *informe* cuyas hojas, son los meses del año].
Entonces en base a la *fecha* de liquidacion, tengo que pasar ciertos datos de la plantilla
a la *hoja* del *mes* de la fecha de la liquidacion (12/08/2008 a la hoja "AGOSTO" ).



1) de donde se toma la "fecha de la liquidacion" ?
tienes dos o mas "fechas de liquidacion" en un mismo concepto de plantilla/factura ? (y porque y donde ?)
a donde (arreglo de rangos) se debe pasar cada registro segun "la fecha de liquidacion" ?

__ 2 __
Aprovechando el código de "historico ()".
Sub Historico()
Dim Generales, n As Byte, Col As Byte
With Worksheets("liquidacion")
Generales = Array(.[b2], .[d53], .[d54], .[b7], .[b3], .[b4], .[b5], .[b56], .[c56], .[d56])
End With
With Workbooks("informe").Worksheets("AGOSTO") -> Existe alguna manera de hacer este dato *variable*
que se le pida al usuario por Inputbox el mes de que se trate o por lista despegable)



2) si quieres hacer "interacciones" con el usuario... deberas pensar en algunas formas de prevenir/evitar/corregir/...
cualquier posibilidad de errores del usuario (involuntarios o por usos y costumbres ademas de configuracion de equpos) p.e.
- que pasa si el usuario "digita" agosto con algun error de caracteres de mas/menos ? (antes, en el medio o despues)
- si solo le pides el numero del mes... que pasa si la aplicacion donde se ejecuta el codigo esta instalada en ingles ?

(creo que) habra algun detalle mas que se pudiera estar quedando "en el tintero", asi que...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares

 

Busqueda sugerida :