Macro Buscar
Hola,
Tengo una base de datos en excel con los siguientes encabezados, Fecha, Articulo y Precio. Los artículos se repiten, es por eso que necesito una macro que me indique el ultimo precio ingresado.
Ej: Si busco el Articulo PJ800;
10-09-2008 PJ800 $2000
20-09-2008 DY200 $1500
11-11-2008 PJ800 $2100
El resultado debería ser $2100
Muy Agradecido,
Rhodio
Tengo una base de datos en excel con los siguientes encabezados, Fecha, Articulo y Precio. Los artículos se repiten, es por eso que necesito una macro que me indique el ultimo precio ingresado.
Ej: Si busco el Articulo PJ800;
10-09-2008 PJ800 $2000
20-09-2008 DY200 $1500
11-11-2008 PJ800 $2100
El resultado debería ser $2100
Muy Agradecido,
Rhodio
4 Respuestas
Respuesta de Cadipas spain
1
Prueba este código: Doy por sentado lo siguiente
1- En la columna A esta la fecha
2- En la columna B esta el código
3- En la columna C esta el precio
Yo lo he ejecutado con un commandbutton, pero tu lo puedes hacer como quieras
Private Sub CommandButton1_Click()
codigo = UCase(InputBox("¿Nombre del Código de Producto?"))
With Range("b:b")
Set c = .Find(codigo, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
fecha1 = c.Offset(0, -1)
If fecha < fecha1 Then
fecha = fecha1
fila = c.Row
End If
MsgBox ("El último precio del código " & codigo & " en la " & fecha & Chr(13) & Chr(13) & " PRECIO = " & Cells(fila, 3))
End Sub
1- En la columna A esta la fecha
2- En la columna B esta el código
3- En la columna C esta el precio
Yo lo he ejecutado con un commandbutton, pero tu lo puedes hacer como quieras
Private Sub CommandButton1_Click()
codigo = UCase(InputBox("¿Nombre del Código de Producto?"))
With Range("b:b")
Set c = .Find(codigo, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
fecha1 = c.Offset(0, -1)
If fecha < fecha1 Then
fecha = fecha1
fila = c.Row
End If
MsgBox ("El último precio del código " & codigo & " en la " & fecha & Chr(13) & Chr(13) & " PRECIO = " & Cells(fila, 3))
End Sub
Respuesta de duainsulch
1
Esta instrucción te coloca en la ultima columna con texto, (no funciona si hay celdas vacías entre medio), en tu caso, como es la tercera columna seria la C, el numero hace referencia al numero de columna donde queremos empezar, no hace falta decir que hoja7 lo tienes que sustituir por la hoja correspondiente, o hacer referencia a la hoja por su nombre mediante sheets("nombre hoja"), la segunda muestra un mensaje con el valor.
Hoja7.Range("C1").End(xlDown).Select
msgbox(activecell.value)
Hoja7.Range("C1").End(xlDown).Select
msgbox(activecell.value)
Hola,
Agradezco mucho tu pronta respuesta, pero me quede con una duda, ¿si el articulo que busco esta en medio de otros? Usando el ejemplo anterior: Si busco el Articulo PJ800;
10-09-2008 PJ800 $2000
20-09-2008 DY200 $1500
11-11-2008 PJ800 $2100
11-11-2008 SE205 $3500
15-11-2008 AR001 $1100
El resultado debería ser $2100
Nuevamente Muy Agradecido,
Rhodio
Agradezco mucho tu pronta respuesta, pero me quede con una duda, ¿si el articulo que busco esta en medio de otros? Usando el ejemplo anterior: Si busco el Articulo PJ800;
10-09-2008 PJ800 $2000
20-09-2008 DY200 $1500
11-11-2008 PJ800 $2100
11-11-2008 SE205 $3500
15-11-2008 AR001 $1100
El resultado debería ser $2100
Nuevamente Muy Agradecido,
Rhodio
En esta página tienes bien detallada la función de buscar en excel, si después de probar todavía no te sale, me dices.
http://www.mailxmail.com/curso/informatica/funcionesexcel/capitulo14.htm
http://www.mailxmail.com/curso/informatica/funcionesexcel/capitulo14.htm
Respuesta
1
Lo que te recomiendo es que hagas una macro que te ordene por fechas en forma descendente, una vez hecho esto podrás encontrar el precio utilizando la función buscarv
Decime si se te complica en alguna de las 2 partes
Decime si se te complica en alguna de las 2 partes
Respuesta de Juan Carlos González Chavarría
1
Para que quieres una macro si lo mismo puedes hacer por medio de una Tabla Dinámica y con más opciones para tus consultas. Otra forma es por medio de una fórmula.
[email protected]
[email protected]