Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Sumarle al resultado de una macro a una columna de fechas

Visual Basic - Sumarle al resultado de una macro a una columna de fechas

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 37 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Sumarle al resultado de una macro a una columna de fechas

Publicado por Sergio (1 intervención) el 24/09/2019 08:52:54
Hola,

He añadido el siguiente código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Sumarle al resultado de una macro a una columna de fechas

Publicado por Antoni Masana (558 intervenciones) el 24/09/2019 21:29:48
Preguntas si tiene sentido lo que estoy intentando explicar, pues NO.

Siguiendo en 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

B13 = "F001"
E13 = "Gran Bretaña + Irlan"

¿Como se puede hacer esta suma?

Las únicas fecha en el ejemplo están en las columnas N, O, P y Q.

¿Donde tiene que ir la fecha resultante?
¿A que fecha se le ha sumar? pongamos que sea a la fecha de la columna N y el resultado ha de ir en la M en lugar del numero.

En la macro hay que añadir esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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 count = 2 To ultLinea
        Codigo = Sheets("Tabla").Cells(count, 12)
        dias = Application.VLookup(Codigo, rango, 3, False)
 
        If IsError(dias) Then
            dias = clearcell
        End If
        Sheets("Tabla").Cells(count, 13) = dias + CDate(Sheets("Tabla").Cells(count, 14))
    Next count
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar