Calcular entre fechas dando como resultado otra si se cumple una condición

No entendí muy bien qué necesitas. Quieres ayuda sobre los cálculos de costes, o nada más ayuda para crear la fecha en el campo nuevo.

Solamente para establecer en qué necesitas ayuda.

Si es para calcular la fecha en el campo nuevo " F_InicioCALC", ¿siempre debe poner el primer día del mes?

En tu ejemplo en la celda D2 tendrías la fecha 08/10/2017

Si pones la siguiente fórmula en la celda F2 tendrías las fecha 01/10/2017

=FECHA(AÑO(D2);MES(D2);1)

En vba el código sería:

Range("F2").FormulaR1C1 = "=DATE(YEAR(RC[-2]),MONTH(RC[-2]),1)"

Si lo quieres para toda la columna F:

    With ragne("F2:F" & Range("D" & Rows.Count).End(xlUp).Row)
        .FormulaR1C1 = "=DATE(YEAR(RC[-2]),MONTH(RC[-2]),1)"
    End With

O es algo que no vi.

Explícame si es algo más.

Hola Dante.

Gracias por tan rápida respuesta.

No me he explicado bien. Te cuento. Se trata de lo siguiente. Tengo unos vehículos que me llegan de un renting en una fecha, por ejemplo el día 03/10. Estos vehículos están parados sin conductor unos días. Ahora por ejemplo el día 08/10 les asigno un conductor. A nivel interno cuando quiero desglosar el coste de la cuota de alquiler del vehículo lo que hago es que los vehículos que han llegado en el período que hago el cálculo, por ejemplo en este caso sería del 01/10 al 31/10 (estas fechas ya existen en dos variables), los primeros días que no han tenido conductor, se los computo al primer conductor. SOLO en el caso de que hayan llegado durante el periodo que estoy haciendo el calculo.

Es decir, a este vehículo aunque lo haya asignado a un conductor el día 08/10 quiero imputarle el coste a ese conductor desde el día 03/10. En el ejemplo veías varios conductores en el mismo período, pero solo se lo imputo al primer conductor. Por eso he añadido un campo adicional al de la fecha real de entrega al conductor que se llama F_InicioCALC, solo para el caso que se cumpla esa condición, vehículo nuevo sin conductor.

No se si ahora lo he explicado mejor o como lo tengo tan vivo todos los días me resulta difícil explicarlo correctamente.

Gracias.

Sigo sin entender en qué quieres ayuda.

Quieres ayuda en obtener una fecha o en obtener los cálculos de costes.

Tienes que terminar tu ejemplo. O pon 3 ejemplos para entender en qué quieres ayuda.

Otra cosa más, quieres ayuda con una fórmula o con una macro.

Para que tus ejemplos sean más claros, pon imágenes

Buenas noches Dante. Voy a intentar explicarme con imágenes.Primero aclara que quiero obtener una fecha con una macro. Comienzo.

Tengo en la Hoja "PanelPrincipal" en las celdas "A2" y "B2" estos datos. Las fechas inicio y fin de un periodo a calcular.

Tengo una hoja donde a través de un Form introduzco los datos de los vehículos nuevos que alquilo. Es decir, vienen del renting y los doy de alta. La hoja se llama "AltaVehiculos"

Después tengo otra tabla donde a través de otro Form doy de alta los conductores. Es decir, un coche lo alquilo y luego le asigno un conductor, que no tienen por qué ser el mismo día que llega el coche a mi empresa. A esta tabla la llamo "Conductores"

Y ahora tengo por último una tabla que es donde quiero actuar. Esta a través de macros ya la he rellenado con los datos de los conductores que han tenido un vehículo en el periodo de F_Inicio y F_Fin que decía al principio. Esta tabla se llama "MovimientosPeriodo"

Lo que quiero es lo siguiente. Fíjate en el vehiculo 0126MMM. Este lo di de alta el día "02/10/2017", como reza en la tabla "AltaVehiculos". Sin embargo si ves en la tabla Conductores no tuvo a ningun conductor asignado hasta el día "08/10/2017". Hay 6 días al principio sin conductor. Lo que quiero es que en el caso en que haya un vehículo de alta entre la fecha inicio y fecha fin, es decir que sea nuevo en el periodo de calculo, que en la tabla movimientos en el campo F_InicioCALC le ponga SOLO al primer conductor, la fecha de llegada del vehículo, es decir el día 02/10/2017. Si en esta tabla de movimientos aparecen más conductores con la misma matrícula el único que debe tener esa fecha en ese campo debe ser el de la fecha inferior, el mas cercano a la fecha de llegada del vehículo a la empresa.

Ya se que es un lío, y por lo que veo no estoy muy hábil en explicarlo.

Gracias!!

Ya te entendí, solamente un detalle, en tu redacción mencionas que debo poner la fecha "02/10/2017", esa fecha la obtengo de la hoja "AltaVehiculos", ¿es correcto?

Lo que pasa es que, en la imagen de tu ejemplo, pusiste "01/10/2017"

Solamente confirma cuál es la fecha que se debe poner.

Desafortunadamente en tus ejemplos no veo las filas ni las columnas, así que debo asumir que todo empieza en la columna A y en la fila 1.

Lo que va a hacer la macro, cada que la ejecutes, es calcular todos los resultados del campo F_InicioCALC, es decir, borra toda la columna y la vuelve a poner, ya que pueden existir registros nuevos.

Bueno, intenta lo siguiente ejecuta la siguiente macro. Cambia "tabla" y "AltaVehiculos" por los nombres de tus hojas. Crea una nueva hoja y la llamas "Temp"

Sub Poner_Fecha()
'Por.Dante Amor
    '
    Set h1 = Sheets("Tabla")            'hoja con la tabla donde quieres actuar
    Set h2 = Sheets("AltaVehiculos")    'hoja alta vehiculos
    Set h3 = Sheets("Temp")             'hoja temporal
    '
    h1.Range("F2:F" & Rows.Count).ClearContents
    h3.Cells.Clear
    h1.Columns("A").Copy h3.Range("A1")
    u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
    h3.Range("A1:A" & u3).RemoveDuplicates Columns:=1, Header:=xlYes
    '
    u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To u3
        wmin = CDate("31/12/9999")
        matricula = h3.Cells(i, "A")
        Set r = h1.Columns("A")
        Set b = r.Find(matricula, lookat:=xlWhole)
        If Not b Is Nothing Then
            celda = b.Address
            Do
                'detalle
                If wmin > h1.Cells(b.Row, "D") Then
                    wmin = h1.Cells(b.Row, "D")
                    fila = b.Row
                End If
                Set b = r.FindNext(b)
            Loop While Not b Is Nothing And b.Address <> celda
        End If
        '
        'fecha recepción
        fecrec = ""
        Set b = h2.Columns("A").Find(matricula, lookat:=xlWhole)
        If Not b Is Nothing Then
            fecrec = h2.Cells(b.Row, "G")
        End If
        h1.Cells(fila, "F") = fecrec
    Next
    MsgBox "Fin"
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Hola Dante, gracias por tan rápida respuesta.

Antes de probar la macro, decirte que la fecha correcta es "02/10/2017". Cuando la pegué en el ejemplo me equivoqué y puse mal "01/10/2017".

¿Puedo probar la macro o necesitabas confirmar antes este dato?

Gracias.