Buscar datos
Hola es la
Muchas gracias por la respuesta anterior.
Necesito buscar unos datos (Números) que se encuentran en la Columna D6 D500, esto mediante un inputbox como el que me enviaste an la respuesta anterior, contara con un solo campo: código, si el código que se digite en el inputBox se encuentra en ese rango, en entonces al frente del código, en la columna F deberá colocar el texto "Asignado". Si el código digitado se encuentra en D10, entonces el texto se escribirá en F10 y así sucesivamente según corresponda.
Si el código digitado no es encontrado en el rango especificado deberá devolver un msg "Código no registrado". Luego limpiar el inputbox
Eso es todo.
Muchas Gracias.
Muchas gracias por la respuesta anterior.
Necesito buscar unos datos (Números) que se encuentran en la Columna D6 D500, esto mediante un inputbox como el que me enviaste an la respuesta anterior, contara con un solo campo: código, si el código que se digite en el inputBox se encuentra en ese rango, en entonces al frente del código, en la columna F deberá colocar el texto "Asignado". Si el código digitado se encuentra en D10, entonces el texto se escribirá en F10 y así sucesivamente según corresponda.
Si el código digitado no es encontrado en el rango especificado deberá devolver un msg "Código no registrado". Luego limpiar el inputbox
Eso es todo.
Muchas Gracias.
1 respuesta
Respuesta de Elsa Matilde
1
La siguiente rutina se copia en un módulo y podes asignarle un atajo de teclado para ser utilizada en cualquier hoja.
Agregué unas instrucciones que pregutan si quiere seguir asignando.
Espero sea lo que necesitás, sino ya sabés, seguimos tratando.
Sub asignando()
sino = 6
While sino = 6
fila = 6
codigo = InputBox("Ingrese código:")
If codigo <> "" Then
While fila <= 200
If Cells(fila, 4).Value = Val(codigo) Then
Cells(fila, 5).Value = "Asignado"
fila = 500
Else
fila = fila + 1
End If
Wend
If fila <> 500 Then
MsgBox ("Código no asignado")
End If
sino = MsgBox("¿Desea seguir asignando?", vbYesNo)
If sino <> 6 Then
Exit Sub
End If
End If
Wend
End Sub
Agregué unas instrucciones que pregutan si quiere seguir asignando.
Espero sea lo que necesitás, sino ya sabés, seguimos tratando.
Sub asignando()
sino = 6
While sino = 6
fila = 6
codigo = InputBox("Ingrese código:")
If codigo <> "" Then
While fila <= 200
If Cells(fila, 4).Value = Val(codigo) Then
Cells(fila, 5).Value = "Asignado"
fila = 500
Else
fila = fila + 1
End If
Wend
If fila <> 500 Then
MsgBox ("Código no asignado")
End If
sino = MsgBox("¿Desea seguir asignando?", vbYesNo)
If sino <> 6 Then
Exit Sub
End If
End If
Wend
End Sub
