Operaciones entre fechas

30/10/2007 - 23:38 por JForero | Informe spam
Buenas tardes grupo,

como puedo en un commandbuton realizar operaciones entre columnas que tienen
fechas ejemplo.

Columna B = 01/01/2007 (ddmmaaa)
Columna H = 31/07/2007

en las demás columnas hay otros datos.
necesito insertar una columna nueva después de H y calcular el número de
días entre las dos fechas

mil gracias por la colaboración que me brindan

jorgef-.

Preguntas similare

Leer las respuestas

#6 Ivan
31/10/2007 - 17:01 | Informe spam
al usar tu instrucción me la pone en la hoja de cálculo donde tengo el
commandbutton y necesito que me haga el cáclulo en la hoja que he creado.




hola Jorge,

añadele el calificador de objeto para indicarle la hoja
(Worksheets("info_fecha") )sobre la que trabajar, o (de esto no estoy
del todo seguro) pon las instrucciones en una macro en un modulo
normal y llama a la macro tras la creacion de la nueva hoja (se supone
que en ese momento sera la activa). ten en cuenta que si no le indicas
la hoja sobre la que trabajar el codigo puede tomar 2 caminos (que yo
sepa) dependiendo donde este el codigo:

1º) si esta en el modulo de la hoja (caso de un commandbutton
incrustado en hoja) el codigo asume que se trata de la hoja
propietaria del modulo

2º) si esta en otro modulo (normal, formulario, ...) asume que se
trata de la hoja activa

la verdad es que no he probado esta combinacion => macro sin
calificador en modulo normal pero llamado desde un boton de hoja. No
se por donde tirara, pero todo es probarlo (yo ahora voy con prisas).

en cualquier caso lo mas seguro es usar el calificador. Pej para el
codigo expuesto, y tras crear la hoja:

With thisworkbook.Worksheets("Nombre_Hooja")
.Columns(i).Insert xlShiftToRight
.[i1] = "Resta_Fechas": .[i2].Formula = "=h2-b2"
.[i2].AutoFill .Range("i2:i" & .[h65536].End(xlUp).Row)
end with

OJO: fijate en que al estar dentro de un bloque With todas las
propiedades y/o metodos y/o objetos dependientes del objeto al que se
hace referencia en la apertura de este ( Worksheets("Nombre_Hooja") en
este caso) deben ir precedidos de un punto.

prueba a ver y si quieres comentas

un saludo
Ivan
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida