Determinar un rango de números y si se llena una casilla con algunos de esos numero mostrar mensaje o alerta .
Lo he intentado todo el día y nada mas no puedo :(
Hola hice un pequeño formulario para agregar avisos de modificación.
Contienen un rango de números (VIN INICIAL-VIN FINAL) estos se guardan en una hoja "Actividades". Lo que quiero es que al llenar un reporte que tengo en la hoja "Reporte" y al poner un numero dentro del rango antes mencionado me lo informe con un msgbox o algo parecido.
Ojala me puedas ayudar dante, recurro a ti ya que puedo ver que eres muy experto en estos temas
1 Respuesta
H o l a : Disculpa, pero no entendí.
No entiendo en dónde vas a capturar y en dónde se debe validar.
Puedes describir tu proceso a manera de lista, por ejemplo:
1. Abro el formulario
2. Capturo los datos x,y,z
3. Guardo en la hoja, etc etc
Dentro de esa lista de pasos me dice en qué momento quieres que te ayude.
Gracias por responder.
1. Abro el formulario
2. Doy de alta un aviso de modificació e Ingreso dos números de "VIN" (círculos amarillos) ejemplo el 1 y el 10
3. Estos dos números se guardan en una especie de base de datos lo que quiere decir que los artículos 1,2,3,4,5,6,7,8,9 y 10 entran en esta modificación.
4. Al llenar el reporte debo de ingresar un "VIN" (círculo azul) si este VINO esta en el rango que exprese en el paso No. 3 necesito que me lo indique.
todo esto es para llenar reportes de artículos, el VIN es un simple número de identificación.
Al ingresar los datos en el formulario estos números se guardan en la hoja "Actividades" en las celdas E2 y F2
Al llenar los reportes debo de ingresar el VIN en la hoja "Reportes" en la celda R7
Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("R7")) Is Nothing Then
If IsNumeric(Target.Value) Then
ini = Sheets("Actividades").Range("E2").Value
fin = Sheets("Actividades").Range("F2").Value
If Target.Value >= ini And Target.Value <= fin Then
MsgBox "Valor dentro del rango"
Else
End If
Else
MsgBox "Escribe un valor númerico"
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
Target.Select
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
- Ahora captura los valores VIN y después captura un número en la celda R7
