RECORRE LAS CELDAS Y SI CUMPLE CONDICION HACE SUMA

[gacg1310]

Buenos Días:

Como programo la macro para que recorra la columna B y si encuentra la fecha de hoy tome la cantidad de la columna pequeña y se la sume a la cantidad de la columna mediana logicamente sobre la misma fila. El resultado deberá ser el nuevo dato de la columna mediana y debera borrar el dato de la cantidad en la columna pequeña

PRUEBA.xlsx

[Antoni]

Sub Sumar()
Application.ScreenUpdating = False 'Evita el parpadeo
For x = 2 To Range("B" & Rows.Count).End(xlUp).Row
   If Range("B" & x) = Date Then
      Range("C" & x) = Range("C" & x) + Range("A" & x)
      Range("A" & x) = ""
   End If
Next
End Sub

 

[gacg1310]

antoni, muchisimas gracias, eso es justo lo que necesitaba. Doy por cerrado el tema, feliz dia desde colombia un gran abrazo