Macro para buscar vencimientos con condicionales

[Luis Antonio Torres]

Amigos,

 

Buenas noches, por favor alguien que me pueda ayudar con lo siguiente:

 

Tengo una hoja de ventas que tiene su fecha de emisión de la venta (voucher), sin embargo necesito acercarme a una realidad más exacta con las fechas de vencimiento.

Basándome en condiciones debo establecer la fecha estimada de pago por parte del banco.

lo he intentado hacer con fórmula y se volvió demasiado extensa mostrándome el error "ha ingresado varios argumentos para esta función", es por esto que estoy buscando la manera de hacerlo mediante macros.

 

Tal vez alguien que pueda ayudarme desde ya agradezco.

 

Saludos cordiales.

EjemploAyudaExcel.xlsm

[Marcos14]

No se si te servira yo uso esta y me funciona, va sobre formulario y con un Listview

Private Sub Actualizar()
Dim Item As ListItem
Dim UltimaFila As Integer
Dim I As Integer
Dim DiasVencidos As Integer
Dim Color As Variant

ListView1.ListItems.Clear

UltimaFila = Hoja18.Cells(Rows.Count, 1).End(xlUp).Row

For I = 5 To UltimaFila
        
DiasVencidos = Hoja18.Cells(I, 3) - DateValue(Now)

    Select Case DiasVencidos
        Case Is < 1
            Color = &HFF&
        Case 1 To 3
            Color = &HFFFF&
        Case Is > 3
            Color = &HC000&
    End Select
        
        Set Item = ListView1.ListItems.Add(Text:=Hoja18.Cells(I, 1))
            Item.SubItems(1) = Hoja18.Cells(I, 2)
            Item.ListSubItems(1).ForeColor = Color
            Item.SubItems(2) = Hoja18.Cells(I, 3)
            Item.ListSubItems(2).ForeColor = Color
            Item.SubItems(3) = Hoja18.Cells(I, 4)
            Item.ListSubItems(3).ForeColor = Color
            Item.SubItems(4) = Format(Hoja18.Cells(I, 5), "#,##0.00 €")
            Item.ListSubItems(4).ForeColor = Color
            Item.SubItems(5) = Format(Hoja18.Cells(I, 6), "#,##0.00 €")
            Item.ListSubItems(5).ForeColor = Color
            Item.SubItems(6) = Format(Hoja18.Cells(I, 7), "#,##0.00 €")
            Item.ListSubItems(6).ForeColor = Color
            Item.SubItems(7) = Hoja18.Cells(I, 8)
            Item.ListSubItems(7).ForeColor = Color
            Item.SubItems(8) = Hoja18.Cells(I, 3) - DateValue(Now)
            Item.ListSubItems(8).ForeColor = Color
Next
lblNRegistro.Caption = ListView1.ListItems.Count

End Sub