Forums

perfecto, pero y si quisiera que en la celda se escribiera la formula para poder arrastrarla? es decir, que en lugar de poner: =SIFECHA("01/05/1998";HOY();"m") la macro escribiera: =SIFECHA(DERECHA(I2;2)&"/"&EXTRAE(I2;5;2)&"/"&IZQUIERDA(I2;4);HOY();"m") donde I2, seria el valor de la variable Fecha1

También funcionaría con FrmulaR1C1, en este caso, al no existir rangos por medio, es indiferente. Si quieres el resultado como valor en lugar de formula: Sub DifMesesValor() ' ' Calcula diferencia de meses entre fechas ' Dim Fecha1 As String Fecha1 = Range(InputBox("Dirección de la celda donde está la fecha inicial", "Cálculo meses")) ActiveCell.Formula = Evaluate("=DATEDIF(""" & Right(Fecha1, 2) & "/" & _ Mid(Fecha1, 5, 2) & "/" & _ Left(Fecha1, 4) & """,TODAY(),""m"")") End Sub  

muchas gracias Antoni. Veo que la diferencia está en no usar R1C1 y añadir ". Genial!

el "error" que mencionas asoma por las traducciones "automáticas", si lees el artículo en inglés no existe tal discrepancia, por eso mismo prefiero leer los artículos "originales" al fin de cuentas, todos los que he visto en español (en algún momento) han "tocado base" en el origen de los mismos (en inglés) 😉

Hola, buenas tardes. Acudo a ustedes con el siguiente complejo inconveniente.  Trabajo con un sistema de Facturación el cual me permite importar desde archivos Excel, las listas de precios de mis proveedores.    El sistema de facturación permite códigos de hasta 20 caracteres.  Los caracteres permitidos en la composición del código son: letras de la A a la Z números del 0 al 9  y / todos los demás caracteres los elimina.    El problema principal radica en los códigos repetidos. Solucione por un lado que no haya códigos repetidos entre diferente proveedores de la siguiente manera 1- Acortando el código a 15 caracteres válidos.  2- Agregando al final del código “-P01” para el proveedor 1,      “-P02” para el proveedor 2, etc.   Pero hay proveedores que increíblemente tienen códigos repetidos para diferentes productos.  Esto provoca que el sistema solo reconozca el último cuando recorre el listado, por ejemplo en una actualización de precios. Además acortando el código a 15 caracteres, también corro el riesgo de crear más códigos repetidos.  Mi idea era crear una variante del código, ejemplo: ABC001         Producto 1      $1000 ABC001         Producto 2     $5000 ABC001         Producto 3     $4000 Solución: ABC001         Producto 1      $1000 ABC001A       Producto 2     $5000 ABC001B       Producto 3     $4000 de está manera no perdería ningún producto del listado. De hecho lo he logrado realizar.  Pero es ahí cuando radica otro problema, si el proveedor cambiar de ubicación en el listado cierto producto, al actualizar los precios, se volvería a mezclar los códigos.    Entonces pensé en crear un ID único a cada producto enlazado al código. Pero no se si sirve de algo, y no se que mas hacer, ni cómo hacerlo. vale la pena aclarar que esta base de datos tiene unos 500.000 productos aproximadamente. Espero haber explicado bien.  Cualquier aporte es bienvenido.  Si les sirve un ejemplo más práctico en un .xls lo subiré.    Gracias a la comunidad por este espacio.