Sumar el resultado de una macro a una columna de fechas

1 post / 0 nuevos
Sergiocarmona
Imagen de Sergiocarmona
Offline
última acción: Hace 4 años 6 meses
alta: 23/09/2019 - 10:46
Puntos: 25
Sumar el resultado de una macro a una columna de fechas

Hola,

He añadido lo siguiente código:

Sub BuscarV()
Dim count As Long
Dim ultLinea As Long
Dim dias As Variant
Dim Codigo As Variant
Dim rango As Variant

ultLinea = Sheets("Tabla").Range("L" & Rows.count).End(xlUp).Row
Set rango = Sheets("CLT").Range("A1:C280")

For cont = 2 To ultLinea
Codigo = Sheets("Tabla").Cells(cont, 12)
dias = Application.VLookup(Codigo, rango, 3, False)

If IsError(dias) Then
dias = clearcell
End If

Sheets("Tabla").Cells(cont, 13) = dias
Next cont

End Sub


Ahora me sale en la columna Fecha Real Entrega los días de transito dependiendo del código que me sale en la columna concatenar.

El problema es que necesito que me de la suma de la columna Fe/SM real + el resultado en la columna Fecha Real Entrega y esto aparezca en la columna Fecha Real Entrega.

Ejemplo:

B13 debería poner 08/02/2019 porque E13+B13= 08/02/2019
B17 debería poner 02/09/2019 porque E17+B17= 02/09/2019

¿Tiene sentido lo que estoy intentando explicar?

Adjunto el ejemplo por si es de ayuda.

 

AdjuntoTamaño
File ejemplo_vba.xlsx9.91 KB