30 septiembre, 2023

UTILIZAR UN INPUTBOX CON VBA PARA MODIFICAR DATOS

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:

UTILIZAR UN INPUTBOX CON VBA PARA MODIFICAR DATOS

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:

UTILIZAR UN INPUTBOX CON VBA PARA MODIFICAR DATOS1

Una vez que introducimos la fecha, por ejemplo el 23/05/2018:

UTILIZAR UN INPUTBOX CON VBA PARA MODIFICAR DATOS2

Y pulsamos aceptar, ya tenemos el resultado que esperamos:

UTILIZAR UN INPUTBOX CON VBA PARA MODIFICAR DATOS3

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.

Donate Button with Credit Cards

¡¡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

Comparte este post

Si te ha gustado o tienes alguna duda, puedes dejar aquí tu comentario.

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies