Hola a todos!
El post de hoy será muy breve, es una pequeña explicación de cómo podemos utilizar un inputbox para modificar e interactuar con nuestros datos.
Vamos con el ejemplo, imaginad que tenemos una serie de fechas en una columna de nuestra hoja excel:
Ahora vamos a programar un inputbox que nos permitirá seleccionar una fecha y, para este ejemplo, que si alguna de las fechas indicadas es mayor que la fecha que hemos indicado, coloree de verde esa celda.
El código que vamos a usar es el siguiente:
Sub EJEMPLO_INPUTBOX()
'Declaramos las variables
Dim Mensaje As String, Titulo As String, Formato As String
Dim MiFecha As Date, i As Long, fin As Long
'Indicamos el mensaje a mostrar
Mensaje = "INTRODUCE LA FECHA DE REFERENCIA." + Chr(13) + Chr(13) + "EL FORMATO DEBE SER: DIA/MES/AÑO"
'Indicamos el título del inputbox
Titulo = "ATENCION"
'Indicamos el contenido del cuadro de texto
Formato = "00/00/0000"
'Pasamos todos los datos al inputbox y formateamos el contenido a fecha
MiFecha = CDate(inputbox(Mensaje, Titulo, Formato))
'Con un loop recorremos los datos
With Sheets("Hoja1")
fin = Application.CountA(.Range("A:A"))
For i = 2 To fin
'Si las fechas de la hoja son mayores que la que he indicado en el inputbox
'entonces coloreamos la celda de color verde
If .Cells(i, 1) > MiFecha Then .Cells(i, 1).Interior.Color = vbGreen
Next i
End With
End Sub
Al ejecutarlo, mostraremos inicialmente el formato de fecha que queremos que se indique:
Una vez que introducimos la fecha, por ejemplo el 23/05/2018:
Y pulsamos aceptar, ya tenemos el resultado que esperamos:
Y ya lo tenemos!. Por supuesto, en la macro podéis programar otros controles para controlar errores que puedan saltar si el formato de la fecha no es válido o no seleccionamos una fecha. Con simple «On error goto» lo podríamos hacer perfectamente.
Y eso es todo, espero que os sea de utilidad.
Descarga el archivo de ejemplo pulsando en: UTILIZAR UN INPUTBOX CON VBA PARA MODIFICAR DATOS
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies