Macro de mes siguiente del año en curso
Adriel te molesto necesito si es posiblel la misma macro pero que en lugar de mes y año en curso,
Me de próximo mes y año en curso, es decir ahora es febrero 2017, que sea marzo de 2017.
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
H o l a
te paso la macro
Sub Colorear_sumar()
'Act. Aortiz
For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
If IsDate(Cells(5, "A")) Then
'
fecha1 = Format(Cells(i, "A"), "mm/yyyy")
año = Year(Date)
mes = Month(Date) + 1
'
fecha2 = Format(CDate(mes & "/" & año), "mm/yyyy")
'
If fecha1 = fecha2 Then
Total = Total + Cells(i, "E")
Cells(i, "A").Interior.ColorIndex = 6
Else
Cells(i, "A").Interior.ColorIndex = xlNone
End If
End If
Next
Range("F2") = Total
MsgBox "fin"
End SubValora la respuesta para finalizar saludos!
