Buscar todos los registros en excel
hola, tengo una duda, tengo el respaldo de una base de datos de unas gias de despacho en excel y quiero saber como puedo ingresar a buscar el numero de la guía que necesito y me aparezcan todos los registros de esa guía de despacho, cada gia tiene 35 registros con sus cantidades correspondientes , pero cada vez que pongo buscar no me resulta ayuda please
1 respuesta
Podría ser con una macro.
Tengo las siguientes dudas:
1. ¿Me puedes decir en qué columna están las guías?
2. ¿Me puedes enviar 5 ó 6 ejemplos de guías (son números o letras)?
3. ¿Cómo se llama tu base de datos?
4. Las guías encontradas con sus 35 registros y sus cantidades, dónde las ponemos en la misma hoja, ¿en una hoja nueva o solamente que aparezcan sombreados?
5. ¿Cuántas columnas tiene cada registro?
6. ¿Siempres son 35 ó puede variar?
1 todo esta en una en una hoja de exel en:
A= fecha
B = numero de guía
C = articulo
D = cantidad
(el libro de excel solo tiene 2 hojas) en otra hoja quiero poner el numero de guía y que me aparezca la fecha y los artículos y cantidades correspondientes
ej
A B C D
01/01/1990 11 lápiz 99
01/01/1990 11 papel 14
02/01/1990 12 hojas 50
02/01/1990 12 librox 98
ahora son si o si 35 registros, nombre (libro1)
Te envío una macro, sigue las instrucciones.
Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
Funcionamiento:
1. En la Hoja1 tienes que tener todas tus guías.
2. En la hoja 2, en la celda A2, escribe el número de guía
3. En la columna B, C, D, E te van a aparecer la fecha, la guía, artículo y la cantidad, de los registros de la guía que pusiste en la celda A2.
4. Si quieres, un botón para ejecutar la macro.
4.1 Inserta una image.
4.2 Click botón derecho sobre la imagen
4.3 Seleciona Asignar Macro
4.4 Selecciona buscarguia. Aceptar
Te anexo una imagen, de como te va a quedar.
http://www.subeimagenes.com/img/buscarguias-419811.html
' *****MACRO***********
Sub buscarguia()
' Por Dam
' Busca guías y las copia a otra hoja
Application.ScreenUpdating = False
j = 2
'Hoja de datos
Sheets("Hoja1").Select
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
Sheets("Hoja2").Select
Range(Cells(2, ucol), Cells(ufila, ucol)).Clear
guia = Range("A2")
Sheets("Hoja1").Select
For i = 1 To ufila
Cells(i, 2).Select
If ActiveCell = guia Then
Range(Cells(i, 1), Cells(i, ucol)).Copy
Sheets("Hoja2").Select
Cells(j, 2).Select
ActiveSheet.Paste
j = j + 1
Sheets("Hoja1").Select
End If
Next
Sheets("Hoja2").Select
Application.ScreenUpdating = True
MsgBox ("Fin de la Búsqueda de la guía " & guia & vbNewLine & _
"Se encontraron " & j - 2 & " Guías")
End Sub
'*****Macro***********Saludos.dam
