Obtener días transcurridos desde una celda a fecha actual
Al cargar un formulario que he creado para visualizar información de un cliente en particular, una de las etiquetas de éste (lblLASTVISIT) me dice cuando fue la última vez que el cliente visitó la tienda, tomando la información de una celda particular (A1). Necesito colocar en la etiqueta a su lado (lblCOUNTDAYS) la cantidad de días como un valor entero, partiendo de la fórmular (HOY - UltimaVisita = Días transcurridos) para funcionarlo con la indicación: si es mayor a 90 días "LLAMAR", si es menor a 30 días "TODO BIEN" y sino, "GESTIONAR"
1 respuesta
Prueba esto:
Private Sub UserForm_Activate()
lblCOUNTDAYS.Caption = Date - Sheets("Hoja1").Range("A1")
End SubNo entendí a qué te refieres con :
para funcionarlo con la indicación:
Pero si te refieres a concatenar el número de días y un texto. Prueba esto:
Private Sub UserForm_Activate()
Dim n As Long
Dim cad As String
'
n = Date - Sheets("Hoja1").Range("A1")
Select Case n
Case Is > 90: cad = "LLAMAR"
Case Is < 30: cad = "TODO BIEN"
Case Else: cad = "GESTIONAR"
End Select
lblCOUNTDAYS.Caption = n & " " & cad
End SubNota: Cambia en el código "Hoja1" y "A1" por tus datos.
