VBA para el Control en Excel vencimiento facturas a cobrar

Comparte con tus redes

Control en Excel vencimiento facturas a cobrar mediante Excel y mediante VBA.

VBA para el Control de vencimientos ha sido posible gracias a que recientemente se ha puesto en contacto conmigo un seguidor del blog, Ramiro Hernandez, que ha confeccionado con programación VBA el ejercicio Control en Excel vencimiento facturas a cobrar  en Excel y generosamente comparte con todos nosotros.

Según nos comenta Ramiro Hernandez: «En este artículo intento mostrar el código VBA para un conjunto de soluciones propuestas por Yolanda Cuesta para Excel, en el artículo cuyo link es este

El mismo ejercicio resuelto mediante código escrito en VBA y compartido altruistamente por Ramiro:

Para calcular FECHA DE VENCIMIENTO:

Sub Calcular_FechaVencimiento()

Dim oHoja As Worksheet
Dim i As Integer

Set oHoja = ThisWorkbook.Worksheets(1)

For i = 6 To 25
oHoja.Cells(i, 10).Value = oHoja.Cells(i, 2).Value + oHoja.Cells(i, 9).Value
Next i

End Sub

Para calcular SITUACION DE HOY:

a) Mediante “escritura” de la fórmula Excel en la celda correspondiente
=SI(K7>0;SI(HOY()>J7;”RECLAMAR”;”ESTA EN PLAZO”);”COBRADA”)
Sub Calcular_SituacionHoy_V1()

Dim oHoja As Worksheet
Dim oRange As Range
Dim i As Integer
Dim sFormula As String

Set oHoja = ThisWorkbook.Worksheets(1)

If oHoja.Cells(6, 10).Value = «» Then
MsgBox «Antes de esta operación, debe calcular la FECHA DE VENCIMIENTO …», _
vbOKOnly, «Ramiro Hernandez Alonso»
Exit Sub
End If

For i = 6 To 25
sFormula = «=IF(K» & i & «>0,IF(TODAY()>J» & i & «,» & Chr(34) & _
«RECLAMAR» & Chr(34) & «,» & Chr(34) & «ESTA EN PLAZO» & _
Chr(34) & «),» & Chr(34) & «COBRADA» & Chr(34) & «)»
oHoja.Cells(i, 12).Value = sFormula
Next i

For i = 6 To 25
Set oRange = oHoja.Cells(i, 12)
oRange.Select
Call FijarColorFondoSinRelleno
If oHoja.Cells(i, 12).Value = «RECLAMAR» Then
Set oRange = oHoja.Cells(i, 12)
oRange.Select
Call FijarColorFondoNaranja
End If
Next

End Sub

b) Mediante la obtención del resultado en la celda correspondiente

Sub Calcular_SituacionHoy_V2()

Dim oHoja As Worksheet
Dim oRange As Range
Dim i As Integer

Set oHoja = ThisWorkbook.Worksheets(1)

If oHoja.Cells(6, 10).Value = «» Then
MsgBox «Antes de esta operación, debe calcular la FECHA DE VENCIMIENTO …», _
vbOKOnly, «Ramiro Hernandez Alonso»
Exit Sub
End If

For i = 6 To 25
Set oRange = oHoja.Cells(i, 12)
oRange.Select
Call FijarColorFondoSinRelleno

If oHoja.Cells(i, 11).Value > 0 Then
If Now > oHoja.Cells(i, 10).Value Then
oHoja.Cells(i, 12).Value = «RECLAMAR»
Set oRange = oHoja.Cells(i, 12)
oRange.Select
Call FijarColorFondoNaranja
Else
oHoja.Cells(i, 12).Value = «ESTA EN PLAZO»
End If
Else
oHoja.Cells(i, 12).Value = «COBRADA»
End If
Next i

End Sub

Para calcular las ACCIONES:

a) Mediante “escritura” de la fórmula Excel en la celda correspondiente
=SI(L7= “RECLAMAR”;”LLAMAR POR TELÉFONO y ENVIAR EMAIL”;”OK”)

Sub Definir_Acciones_V1()

Dim oHoja As Worksheet
Dim oRange As Range
Dim i As Integer

Set oHoja = ThisWorkbook.Worksheets(1)

If oHoja.Cells(6, 12).Value = «» Then
MsgBox «Antes de esta operación, debe calcular la SITUACION DE HOY …», _
vbOKOnly, «Ramiro Hernandez Alonso»
Exit Sub
End If

For i = 6 To 25
oHoja.Cells(i, 13).Value = «=IF(L» & i & «=» & Chr(34) & «RECLAMAR» & _
Chr(34) & «,» & Chr(34) & _
«Llamar por Teléfono y enviar mail» & Chr(34) & _
«,» & Chr(34) & «Ok» & Chr(34) & «)»
Next i

End Sub

b) Mediante la obtención del resultado en la celda correspondiente

Sub Definir_Acciones_V2()

Dim oHoja As Worksheet
Dim oRange As Range
Dim i As Integer

Set oHoja = ThisWorkbook.Worksheets(1)

If oHoja.Cells(6, 12).Value = «» Then
MsgBox «Antes de esta operación, debe calcular la SITUACION DE HOY …», _
vbOKOnly, «Ramiro Hernandez Alonso»
Exit Sub
End If

For i = 6 To 25
If oHoja.Cells(i, 12).Value = «RECLAMAR» Then
oHoja.Cells(i, 13).Value = «Llamar por Teléfono y enviar mail»
Else
oHoja.Cells(i, 13).Value = «Ok»
End If
Next i

End Sub

Se ejecutan, además, algunos procedimientos de apoyo:

Sub FijarColorFondoNaranja()

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End Sub

Sub FijarColorFondoSinRelleno()

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End Sub

Si quieres tener acceso al archivo Excel con el código descrito e interfaz mediante el uso de botones de formularios, por favor solicitarlo nombrando VBA para el Control de vencimientos por email.

Mi agradecimiento a Ramiro por contactar y ayudarnos a todos compartiendo el recurso que ha creado VBA para el Control de vencimientos.

Finalmente recordarte que para estar al día de todo lo relacionado con Excel, contabilidad y TIC puedes seguirme en las redes sociales:

 FACEBOOK TWITTER LINKEDIN.

Plural: 24 Comentarios Añadir valoración

  1. cabeto dice:

    cordial saludo, me interesa la plantilla de control de cobro y facturas por pagar.

    muchas gracias

    1. Hola saludos, sí ya lo tienes en tu email.

  2. Angélica dice:

    Hola, excelente articulo publicado muy útil, me puedes compartir tu archivo, Gracias!!

    1. Hola, claro que sí, ya lo tienes en tu email, sigue visitando el blog para más novedades.Saludos.

  3. Carlos Fuentes dice:

    le agradeceria me enviara Control en Excel vencimiento facturas a cobrar mediante Excel y mediante VBA
    Muy Interesante sus aportes

    1. Hola Carlos, me alegra mucho te sean de utilidad mis contenidos, te he mandado el archivo a tu email, saludos.

  4. ANTONIO dice:

    Hola, me parece muy interesante el blog en general y el artículo en particular.
    Me puedes enviar el archivo?
    Gracias

    1. Hola, gracias por tu comentario, me alegra mucho te sea de utilidad mi web, ya tienes el archivo en tu email.Saludos.

  5. Cecilio dice:

    podría de favor compartirme el archivo si se pudiera?
    Gracias
    Cecilio Perez Maqueda

    1. Hola, gracias por comentar, ya la tienes en tu email.Saludos

  6. MGJP dice:

    Buenas tardes, me podría enviar el archivo por favor.
    Excelente Post.

    1. Hola gracias por comentar, sí ya lo tienes en tu email.Saludos.

  7. pedromendozagarcia dice:

    Hola. Buen día! Gracias por tan interesantes artículos. Un favor. Podrían ser tan amables de compartirme tan útil archivo. De antemano, gracias!

    1. Hola,ya lo tienes en tu email, gracias por seguir mi web y blog Excel contabilidad y TIC, https://excelcontabilidadytic.com/
      Te animo a ponerlo en tus favoritos y compartirlo siempre que puedas.
      Saludos.

  8. Oscar Carballo dice:

    Muchas gracias por el artículo, ¿podrías enviarme al correo el archivo, por favor?
    Gracias

    1. Hola, estupendo me alegro que te guste, gracias por comentar y te mando el archivo, sigue atento a todas las novedades de mi blog.
      Saludos

  9. inmixi dice:

    Hola, enhorabuena por el articulo! Por favor, envíenme el archivo por mail. Gracias de antemano. Saludos!

    1. Gracias por comentar me alegra que te guste mi trabajo en Excel, contabilidad y TIC
      Saludos

  10. Juan Carlos Barahona Meza dice:

    Estimada, muy buen artículo, sobre todo por las acciones que incluyeron, favor de enviarme el erchivo, gracias desde Chile.

    1. Hola, gracias por seguir mi web y blog Excel contabilidad y TIC, https://excelcontabilidadytic.com/
      Te animo a ponerlo en tus favoritos y compartirlo siempre que pueda, ya tienes el archivo en tu email.
      Saludos.

    2. Ronny Jimenez dice:

      hola buenas noches me podria enviar el archivo por favor

      1. Hola, gracias por seguir mi blog, consúltalo siempre para estar al día en Excel, contabilidad y TIC. Sí te lo mando por email.
        Saludos.

  11. Aideé Sánchez dice:

    Hola buenas tardes, excelente articulo, me pudieran enviar el archivo por favor, mil gracias

    1. Hola, sí lo tienes ya en tu email, gracias por seguir https://excelcontabilidadytic.com/
      Saludos.

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.