jotaeme

José Lamento te hayas confundido con el (mal) ejemplo que puse en codigo,,,Cubo es una hoja por cierto y estoy copiando a otra, cuyo nombre está en la variable cractual, colu es un numero de columna al igual que columnacr, pero ---olvida ello y dale una mirada al adjunto por favor ...alli está lo que quiero hacer

Estimada(o) Junto con saludar y deseando que todos esten bien junto a los suyos pasa a exponer mi consulta (sencilla quizas pero no logro dar con la solución) Tengo un libro (caso ejemplo en adjunto) con algunas hojas, quiero copiar desde la Hoja1, cada columna o rango completo de celdas; a la Hoja2, a partir de una celda que yo decida como en el ejemplo (me refiero a que no necesariamente la misma ubicación que tiene en Hoja1). Worksheets("Cubo").Columns(colu).Copy Destination:=Worksheets(Mid(cractual, 1, 18)).Columns(columnacr) este codigo me funciona pero me copia

Gracias Antoni, acabo de descubrir mi error y era que la variable actual que tiene el nombre de la hoja u hojas que tengo que crear, es muy largo asi es que acorté a 18 y funciona impecable. Gracias por tu disposición Saludos Juan Manuel

Estimada(o) Junto con saluda y quizás sea básico para algunos, no logro agregar una hoja al final de la última que exista, estoy escribiendo .... actual ---> variable string que contiene el texto con el cual se nombrará la nueva hoja Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = actual .... error 1004---me indica gracias de antemano

ahi esta el apoyo de Antoni

ah ok....sorry

Estimado,,,,cuando uso datediff lo uso en este formato Datediff(parametro,fecha1,fecha2) en vba Donde parametro es d si quiero la diferencia de las fechas en DIAS, en tu caso sería m para MESES Saludos

en vba resulta muy facil hacer, detecta la ultima fila con datos , inicializa contador si quieres y vas agregando

si es vba te falta una f en datediFF

Está poco claro para mi lo que indicas, si pudieses redactarlo mejor ...por ejemplo cuando hablas de tabla, indicar cual es...como se llama....la celda de estimados ...parece que es la fila donde se ubica .......etc etc

RESUELTO....gracias y disculpen

Estimados Espero estén bien de salud ante esta pandemia que nos azota En materia, me marca error de desbordamiento en VBA en la sentencia: dias = DateDiff(parametro, f1, f2) Donde dias es numerico, parametro es string con valor "d", f1 y f2 son tipo date y se obtienen de: f1 = Range("X" & fila).Value f2 = Range("N" & fila).Value donde esas celdas son de tipo fecha en excel Gracias de antemano por la ayuda

@John Jairo V, agregué datos y funciona perfecto en los dias de estadia, pero no consigo ahora, con la logica implementada que me mantenga hasta la tabla dinamica una nueva columna por cada paciente que es la fecha intervencion, que no interviene del proceso de calculo de dias, sino que la vincularé con otra tabla para calcular segun el mes en que fue operado el factor a aplicar por los dias que estuvo hospitalizado caso de uso con fecha interv.xlsx

obviamente hago eso @Gerson Pineda...en algunos casos tengo una suma muy alta de dias...lo revisare nuevamente hoy, y te cuento como me va

@Gerson Pineda se me genera una inconsistencia en los dias al aplicar con mas datos, alguna forma de contactarte en privado ??' para no exponer los datos sensibles ??