Buscar N° de Serie en listado de Equipos
En un documento de Excel 2007, tengo la Hoja 1, en la cual E2 quisiera poner un numero de Serie de 10 digitos, que poniendo un boton "Buscar" debería revisar de la Hoja 2 la columna D que es donde estan listados todos los N° de Serie. Una vez encontrado, mostrar en la Hoja 1 lo siguiente, en E4 la linea del Serie Encontrado la columna B, en E6 la linea de la columna D, en E8 la linea de la columna A, en F4 la linea de la columna C, en caso de no encontrar el N° de serie mostrar en E4 "NO ENCONTRADO", no se si se entiende, se que es algo muy especifico y agradezco desde ya quien me pudiera ayudar.
2 respuestas
Esta sería la macro.
Sub serie()
'Por.DAM
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set b = h2.Range("D:D").Find(h1.Range("E2"), LookAt:=xlWhole)
If Not b Is Nothing Then
h1.Range("E4") = h2.Cells(b.Row, "B")
h1.Range("E6") = h2.Cells(b.Row, "D")
h1.Range("E8") = h2.Cells(b.Row, "A")
h1.Range("F4") = h2.Cells(b.Row, "C")
Else
h1.Range("E4") = "NO ENCONTRADO"
End If
End SubSigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro 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. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: serie
10. Aceptar.
11. Para ejecutarla dale click a la imagen.
También puedes poner las siguientes fórmulas para que te busque el número de serie, si no lo encuentra te pone "No encontrado"
En la celda E4
=SI.ERROR(DESREF(Hoja2!B1;COINCIDIR(E2;Hoja2!D:D;0)-1;0);"No encontrado")
En la celda E6
=SI.ERROR(DESREF(Hoja2!D1;COINCIDIR(E2;Hoja2!D:D;0)-1;0);"No encontrado")
En la celda E8
=SI.ERROR(DESREF(Hoja2!A1;COINCIDIR(E2;Hoja2!D:D;0)-1;0);"No encontrado")
En la celda F4
=SI.ERROR(DESREF(Hoja2!C1;COINCIDIR(E2;Hoja2!D:D;0)-1;0);"No encontrado")
¡Gracias! me fue de mucha ayuda, un grosos UD.
Gracias a todos los que respondieron, complementando el ejemplo anterior, tengo esta macro que la usé en una planilla anterior, sirve para ir listando en la hoja dos, funciona pero me sobre escribe la primer linea de la hoja 2 y luego no agrega mas nada, yo ya tengo un listado en la hoja 2 con mas de mil registros, quisiera ver si se pueden ir agregando registros luego de la linea 1038, espero me puedan ayudar, y sinceramente me fue de mucha ayuda las dos respuestas. Slds.
Perdón no pegué la macro, ahí va:
Sub Listar()
Dim H As Integer
Hoja2.Range("F65536").Formula = "=COUNTA(R[-65535]C:R[-1]C)"
H = Hoja2.Range("F65536") + 1
Hoja2.Range("D" & H).Value = Hoja1.Range("E2").Value
Hoja2.Range("B" & H).Value = Hoja1.Range("E4").Value
Hoja2.Range("C" & H).Value = Hoja1.Range("E5").Value
Hoja2.Range("E" & H).Value = Hoja1.Range("E6").Value
Hoja2.Range("A" & H).Value = Hoja1.Range("E8").Value
End Sub
Puedes crear una nueva pregunta para cada petición
Esto se resuelve también fácilmente sin necesidad de botones ni macros, sino con unas sencillas fórmulas. En Hoja1:
En E4 colocá: =INDICE(Hoja2!B:B;COINCIDIR(E2;Hoja2!D:D;0))
En F4 colocá: =INDICE(Hoja2!C:C;COINCIDIR(E2;Hoja2!D:D;0))
En E6 colocá : =INDICE(Hoja2!D:D;COINCIDIR(E2;Hoja2!D:D;0))
En E8 colocá: =INDICE(Hoja2!A:A;COINCIDIR(E2;Hoja2!D:D;0))
Revisa lo de E6 porque estas solicitando el valor de la col D pero allí justamente se realiza la búsqueda de series lo que devuelve el mismo nro que solicitaste en E2.
jejeje.. Dante....no vale copiar ;) 3 hs antes ya habia dejado las formulas. Sdos! - Elsa Matilde
Mi lema. - Dante Amor
Comentario borrado por el autor - Elsa Matilde
Claro, pero 3 hs después de ver mi respuesta te acordaste de las fórmulas... a eso llaman los chicos en la escuela: 'se copió' ;) - Elsa Matilde
De acuerdo, pero un día antes ya había contestado al usuario con lo que él pidió. Y si se trata de ayudar al usuario, pues también puedo entregar las fórmulas, que no fueron copiadas son diferentes y más completas. Esto ya parece pelea de barrio,, jaja. En verdad te respeto mucho Elsa, haces un gran trabajo y he aprendido nuevas cosas con tus respuestas. Por eso mi usuario es "Aprendemos" porque todos aprendemos. Saludos - Dante Amor