Operaciones entre fechas

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

En I1 pon:

=H1-B1

a la celda I1 dale formato de numero


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"JForero" escribió en el mensaje
news:OotS%

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

Si esto lo utilizo directamente en la celda ok, pero lo que quiero es
hacerlo a través de un commandbutton

gracias julian, pero lo que no se es como hacerlo en un botón

saludos...

"julian-vlc-sp" escribió en el mensaje
news:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
En I1 pon:

=H1-B1

a la celda I1 dale formato de numero


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"JForero" escribió en el mensaje
news:OotS%

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

hola Jorge,

como puedo en un commandbuton realizar operaciones entre columnas
ejemplo.>
Columna B = 01/01/2007 (ddmmaaa)
Columna H = 31/07/2007
necesito insertar una columna nueva después de H y calcular el número de
días entre las dos fechas

solo una duda:

¿necesitas insertar una columna 'cada' vez que le des al
commandbuton? ¿o te refieres a ir calculando y/o modificando segun
introduzcas nuevos registros y/o modifiques los existentes?

a) si es lo 1º, creo que no tardarias mucho en empezar a 'perder'
columnas al final de la hoja (salvo [creo] en el 2007), pero podrias
hacer algo asi:

en el evento click del boton:

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

b) si es lo 2º, seguramente te interese insertar manualmente esa
columna y te valdria con el final de lo anterior, o si lo que haces es
insertar registros nuevos, sin alterar el orden antes de dar al boton,
y siempre y cuando tengas introducida al menos la 1ª formula, [creo
que] te bastaria con 'arrastrar' solo desde el ultimo registro de i
hasta el ultimo de h pej. algo asi

[i65536].End(xlUp).AutoFill Range("i" & [i65536].End(xlUp).row & _
":i" & [h65536].End(xlUp).Row)


no lo he probado, pero supongo que valdria

un saludo
Ivan

otra FE de erratas

me he comido las comillas, cambia esto=>>

Columns(i).Insert xlShiftToRight

por esto

Columns("i").Insert xlShiftToRight

Saludos Ivan...
se me paso comentar lo siguiente en el commandbuton (usando la opción a),
tengo el código que me genera una hoja de cálculo nueva que trae datos de
otro archivo.

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.

Hoja1 tengo el Botón
La Hoja2 se llama = "info_Fecha" (donde fecha es la fecha del día)
en la hoja info_fecha me pega una selección de otro libro, es en esta hoja
donde necesito calcular las fechas, pero me lo está haciendo en hoja1 donde
solo tengo el botón.

a continuación los detalles del código
en el evento click del botón:

Application.ScreenUpdating = False
With ThisWorkbook.Worksheets.Add
.Name = "Info_" & Format(Date, "ddmmyy")
Set AbreBase = Workbooks.Open(ThisWorkbook.Path & "\base.xls")
ActiveSheet.Range("a1:k1").EntireColumn.Copy
Destination:=.Range("a1")


End With


Gracias por tu colaboración




"Ivan" escribió en el mensaje
news:
hola Jorge,

como puedo en un commandbuton realizar operaciones entre columnas
ejemplo.>
Columna B = 01/01/2007 (ddmmaaa)
Columna H = 31/07/2007
necesito insertar una columna nueva después de H y calcular el número de
días entre las dos fechas

solo una duda:

¿necesitas insertar una columna 'cada' vez que le des al
commandbuton? ¿o te refieres a ir calculando y/o modificando segun
introduzcas nuevos registros y/o modifiques los existentes?

a) si es lo 1º, creo que no tardarias mucho en empezar a 'perder'
columnas al final de la hoja (salvo [creo] en el 2007), pero podrias
hacer algo asi:

en el evento click del boton:

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

b) si es lo 2º, seguramente te interese insertar manualmente esa
columna y te valdria con el final de lo anterior, o si lo que haces es
insertar registros nuevos, sin alterar el orden antes de dar al boton,
y siempre y cuando tengas introducida al menos la 1ª formula, [creo
que] te bastaria con 'arrastrar' solo desde el ultimo registro de i
hasta el ultimo de h pej. algo asi

[i65536].End(xlUp).AutoFill Range("i" & [i65536].End(xlUp).row & _
":i" & [h65536].End(xlUp).Row)


no lo he probado, pero supongo que valdria

un saludo
Ivan