Es necesario llevar un Control en Excel vencimiento facturas o con otra…
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 VBA para el Control de vencimientos:
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.
Hola! que genial trabajo! podrías compartirme tu planilla?
Hola, ya en tu email,saludos.
hola buen dia… me gustaria obtener la platilla… me apoyarias con eso?
Listo, ya en tu email.
Hola, me encanta tu trabajo, ¿me podrías enviar la plantilla? Gracias
Listo, ya en tu email,saludos.
Me gusta mucho tu publicación, la veo muy útil. ¿Podrías enviarme la plantilla por favor?. Muchas gracias.
Listo, ya en tu email,saludos.
Hola buenas tardes, excelente articulo, me pudieran enviar el archivo por favor, mil gracias
Hola, ya la tienes en tu email, saludos.
cordial saludo, me interesa la plantilla de control de cobro y facturas por pagar.
muchas gracias
Hola saludos, sí ya lo tienes en tu email.
hola buenas tardes se puede que me compartas tu plantilla por favor.
Hola, ya lo tienes en tu email, saludos.
Hola, excelente articulo publicado muy útil, me puedes compartir tu archivo, Gracias!!
Hola, claro que sí, ya lo tienes en tu email, sigue visitando el blog para más novedades.Saludos.
le agradeceria me enviara Control en Excel vencimiento facturas a cobrar mediante Excel y mediante VBA
Muy Interesante sus aportes
Hola Carlos, me alegra mucho te sean de utilidad mis contenidos, te he mandado el archivo a tu email, saludos.
Hola, me parece muy interesante el blog en general y el artículo en particular.
Me puedes enviar el archivo?
Gracias
Hola, gracias por tu comentario, me alegra mucho te sea de utilidad mi web, ya tienes el archivo en tu email.Saludos.
podría de favor compartirme el archivo si se pudiera?
Gracias
Cecilio Perez Maqueda
Hola, gracias por comentar, ya la tienes en tu email.Saludos
Buenas tardes, me podría enviar el archivo por favor.
Excelente Post.
Hola gracias por comentar, sí ya lo tienes en tu email.Saludos.
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!
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.
Muchas gracias por el artículo, ¿podrías enviarme al correo el archivo, por favor?
Gracias
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
Hola, enhorabuena por el articulo! Por favor, envíenme el archivo por mail. Gracias de antemano. Saludos!
Gracias por comentar me alegra que te guste mi trabajo en Excel, contabilidad y TIC
Saludos
Estimada, muy buen artículo, sobre todo por las acciones que incluyeron, favor de enviarme el erchivo, gracias desde Chile.
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.
hola buenas noches me podria enviar el archivo por favor
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.
Hola buenas tardes, excelente articulo, me pudieran enviar el archivo por favor, mil gracias
Hola, sí lo tienes ya en tu email, gracias por seguir https://excelcontabilidadytic.com/
Saludos.