tag:blogger.com,1999:blog-7983188466168395484.post4010528440040365264..comments2023-10-31T14:55:45.413+01:00Comments on Hojas de cálculo Excel: Creando nuestro propio buscadorEl pilt®afilla - www.3piesalgato.comhttp://www.blogger.com/profile/17515836395057154507noreply@blogger.comBlogger86125tag:blogger.com,1999:blog-7983188466168395484.post-79143171958101678992012-10-05T00:23:20.379+02:002012-10-05T00:23:20.379+02:00Hola compañeros, tengo los siguienets datos, en la...Hola compañeros, tengo los siguienets datos, en la columna A Nos de cedulas, en la columna B nombre de empleados y en la columna C cargos, me gustaria saber si se puede hacer una macro que me pida un numero de cedula y en otra hoja me llleve la informacio n de esa persona,, muchas gracias,,,Anonymoushttps://www.blogger.com/profile/04646378594497688836noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-48324259415762698252012-04-24T03:43:37.120+02:002012-04-24T03:43:37.120+02:00hola me llamo jesus hoy tonteando en Internet me d...hola me llamo jesus hoy tonteando en Internet me di con esta pagina donde hay muy buenos aportes con respecto a excel con macros, la verdad que no se nada de macro, estoy leyendo tu 33 utilidades a ver si aprendo algo, pero de momento como haces una base de datos para empleados donde aparezca nombre, DNI, Cargo, Empresa Fecha de carnet , fecha de caducidad, pues de antemano gracias por estar aqui ayudando novatos como yo, gracias buen dia.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-55663339793561751112012-04-14T01:53:10.784+02:002012-04-14T01:53:10.784+02:00"que tal, muy interesante tu blog me ayuda mu..."que tal, muy interesante tu blog me ayuda mucho, te agradeceria mucho en verdad que me ayudes con este problema, tengo un pequeño negocio con mas de 100 productos y quiero un formulario de búsqueda en el cual se ponga una palabra referente al producto no importa la ubicacion por ejemplo: estoy escribiendo Lap y en un cuadro me aparece: lapicero Faber C, lapicero Lucas, lapiz Faber,<br /> borrador LAPDOC , y asi mientras escribo se reducen los no coincidentes, tambien que aparesca al costado del producto su precio y stock <br /><br />he estado trabajando con este codigo pero falta mas expresiones como para que me seleccione lo que busco:<br />Private Sub TextBox1_Change()<br />Dim i As Integer, Ctrl As Boolean<br />Ctrl = True<br /> For i = Me.ListBox1.ListCount - 1 To 0 Step -1<br /> If Not IsEmpty(Trim(Me.TextBox1)) Then<br /> If LCase(Me.ListBox1.List(i)) Like LCase(Me.TextBox1.Value) + "*" Then<br /> Me.ListBox1.Selected(i) = True<br /> Ctrl = False<br /> End If<br /> End If<br /> Next<br /> If Ctrl And Not IsEmpty(Trim(Me.TextBox1)) Then<br /> MsgBox "Nombre No Registrado", vbInformation + vbOKOnly, "Sr. Operador"<br /> End If<br />End SubAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-41031970145941834162012-03-08T13:08:10.536+01:002012-03-08T13:08:10.536+01:00Buenas,
como podría hacer para buscar un dato en t...Buenas,<br />como podría hacer para buscar un dato en toda la hoja de Excel y me mostrara , no la celda donde está sino el dato en sí.<br />Es decir, si busco TU500, por ejemplo, que me muestre ese dato en una columna las veces que esté.<br />Gracias.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-38109382310848875602012-02-29T17:26:57.214+01:002012-02-29T17:26:57.214+01:00Muchas gracias por la respuesta, muy buen aporte, ...Muchas gracias por la respuesta, muy buen aporte, para implementar el buscador en mi reporte , yo no requiero pedir los datos de rango inicial y final y el dato a buscar ya lo tengo en una celda.<br />Una vez encontrado el valor en una fila, que me ponga el valor de todas las celdas de esa fila.<br /><br />en verdad te agradeceria mucho tu ayuda , ya que no tengo mucha experiencia con excel.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-90416848389946872402012-02-28T23:18:28.252+01:002012-02-28T23:18:28.252+01:00Lo acabo de subir a este nuevo sitio: http://www.m...Lo acabo de subir a este nuevo sitio: http://www.mediafire.com/?o7013pwpyog0hr4<br /><br />Saludos.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-70995359789305325582012-02-28T23:06:02.226+01:002012-02-28T23:06:02.226+01:00De donde puedo descargar el buscador ya que de est...De donde puedo descargar el buscador ya que de esta pagina http://www.megaupload.com/es/?d=6MTKF8BW <br />ya no se puede.<br /><br />Saludos.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-21749037914947781412012-02-02T22:19:45.584+01:002012-02-02T22:19:45.584+01:00Javier,
antes que nada gracias por la respuesta a...Javier, <br />antes que nada gracias por la respuesta anterior. sabes que e intentado que la misma macro me busque el primer valor que encuentre pero primero revisando la columna A y si no encuentra nada que se pase a la B, me funciona pero el problema que no puedo solucionar es que me entregue el mensaje cuando el valor que se busca no esta en estas 2 columnas :/ por lo que me envia un error.... ojala me puedas ayudar, este es el codigo <br /><br />Sub ENCUENTRA()<br /><br />On Error GoTo linea1<br /><br /> Dim VALOR1 As String<br /> <br /> VALOR1 = Sheets("Base Datos").Range("F3").Value<br /> Sheets("Info").Activate<br /> <br />With Sheets("Info").Range("A1:A10000")<br />.Select<br />.Find(VALOR1, LookAt:=xlWhole).Activate<br />End With<br />ActiveCell.Select<br />Exit Sub<br /><br />linea1:<br /><br />On Error GoTo linea2<br />Dim VALOR2 As String<br /> <br /> VALOR2 = Sheets("Base Datos").Range("F3").Value<br /> Sheets("Info").Activate<br /> <br />With Sheets("Info").Range("B1:B10000")<br />.Select<br />.Find(VALOR2, LookAt:=xlWhole).Activate<br />End With<br />ActiveCell.Select<br />Exit Sub<br /><br />linea2:<br />MsgBox "El nombre del proveedor ingresado No esta registrado en la base de datos"<br /><br />End Sub<br /><br /><br /><br />Saludos, RodrigoRodrigonoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-68246688685223935532012-01-30T22:30:55.821+01:002012-01-30T22:30:55.821+01:00Muchas gracias!! solucionaste mi problema!!!, exce...Muchas gracias!! solucionaste mi problema!!!, excelente pagina me a sido de gran ayuda... SaludosRodrigonoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-56182976974253468792012-01-30T22:06:08.986+01:002012-01-30T22:06:08.986+01:00Prueba cambiando esto:
.Find(VALOR).Activate
Por...Prueba cambiando esto:<br /><br />.Find(VALOR).Activate<br /><br />Por esto:<br /><br />.Find(VALOR, LookAt:=xlWhole).Activate<br /><br />SaludosEl pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-74145358672694253842012-01-30T21:29:07.569+01:002012-01-30T21:29:07.569+01:00Javier,
como puedo hacer para que el siguiente co...Javier, <br />como puedo hacer para que el siguiente codigo me busque el primer valor(numerico o palabra) exacto?? <br /><br />Sub ENCUENTRA()<br /><br />On Error GoTo linea1<br /><br /> Dim VALOR As String<br /> <br /> VALOR = Sheets("Base Datos").Range("F3").Value<br /> Sheets("Info").Activate<br /> <br />With Sheets("Info").Range("B1:B10000")<br />.Select<br />.Find(VALOR).Activate<br />End With<br />ActiveCell.Select<br />Exit Sub<br /><br />linea1:<br />MsgBox "El nombre del proveedor ingresado No esta registrado en la base de datos"<br /><br />End Sub<br /><br />el problema que tengo es que si le ingreso buscar por ejemplo el valor 51 y en la hoja donde busca se encuentra el valor 515 primero que el 51, me entregara el 515... que le debo agregar al codigo para que me entregue el valor exacto (51 en el caso del ejemplo)<br /><br />saludos, RodrigoRodrigonoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-47398907062490084482012-01-17T12:43:32.202+01:002012-01-17T12:43:32.202+01:00Hola buenas! Muy buena la macro. La acabo de proba...Hola buenas! Muy buena la macro. La acabo de probar y casi me funciona. Te comento, yo busco sobre una lista (D7:D300) y resulta que me busca bien pero hasta las D124, a partir de ahi nada de nada. <br /><br />Alguna solucion coherente?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-55920261390984904122012-01-02T15:13:04.353+01:002012-01-02T15:13:04.353+01:00Hola, te felicito, de verdad que eres bueno. Pero ...Hola, te felicito, de verdad que eres bueno. Pero como siempre uno se antoja de cosas que no se si se pueden hacer en excel. Te explico lo que tengo. en una hoja de calculo en la columna B por ejemplo, tengo todos los materiales de un almacen, en la columna A sus referencias y en la columna c el numero de stock para cada material. En otra hoja de calculo tengo un formato de reporte para la salida de materiales. lo que deseo es no solo escribir el codigo del material y aparezca el material en la hoja de reporte. prefiero escribir el material en si y que aparezcan las coincidencias y hacer click para seleccionar la que se esta buscando. (pues uno no se va a paprender todas esas referencias y no perder tiempo buscando la referencia de cada paterial a reportar). algo asi como en el buscador de google que mientras uno escribe aparece unas coincidencias abajo y al hacer click en ella la busca. mi correo es: esteban.trejo@gmail.comAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-16863500656643501602011-12-23T21:41:12.334+01:002011-12-23T21:41:12.334+01:00hola amigo esta bastante bueno, me ha ayudado un m...hola amigo esta bastante bueno, me ha ayudado un monton, pero encontré un detalle, aver si nos ayudas a todos con esto, te muestro mi tabla de ejemplo:<br /> B C D<br />9 maria 08:35 tarde<br />10 pedro 08:20 puntual<br />11 javier falta<br />12 luis 08:40 tarde<br /><br />escribo "tarde"<br />al hacer click en el boton buscar deberia arrojarme los nombres las personas que llegaron tarde:<br /><br />maria<br />luis<br /><br />ese es el detalle, no se como se podria acoplar en tu macro, seria excelente para que lo complementes y de mucha ayuda para nosotros,gracias.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-50811645629328614822011-11-28T13:56:37.350+01:002011-11-28T13:56:37.350+01:00Estimado Javier:
Tu puedes ser mi salvación. Tengo...Estimado Javier:<br />Tu puedes ser mi salvación. Tengo que hacer un formulario que busque en otra hoja excel donde tengo datos de contratos. En el buscador tengo que por codigo de proyecto, me muestre todos los contratos asociados (según codigo de busqueda) en una tablita puesta en el formulario.Paulyhttps://www.blogger.com/profile/12607552194796892437noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-6496999113762929312011-11-18T07:53:26.198+01:002011-11-18T07:53:26.198+01:00Como buscador de hojas, lo más parecido que hay en...Como buscador de hojas, lo más parecido que hay en el blog es esto, que creo que te será de mucha ayuda: <a href="http://hojas-de-calculo-en-excel.blogspot.com/2009/05/buscar-hojas-ocultas.html" rel="nofollow">buscar hojas ocultas</a>.<br /><br />Saludos.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-83709269824825292652011-11-18T06:21:33.418+01:002011-11-18T06:21:33.418+01:00hola amigo, he leido gran parte de tus enseñanzas ...hola amigo, he leido gran parte de tus enseñanzas y la verdad cabe felicitarte por esta magnifica pagina.<br />Mi pregunta es; quiero saber si es posible crear un buscador pero de hojas, me explico mejor..<br />en la hoja1 quiero implementar con un formulario de consulta la busqueda de hojas, que tenga un combobox en donde le ingrese el nombre de la hoja y si la encuentra me la seleccione.<br />gracias por cualquier ayuda que me puedas prestar.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-37385473703622109602011-10-28T18:47:28.690+02:002011-10-28T18:47:28.690+02:00Hola amigo, necesito un buscador que con un solo d...Hola amigo, necesito un buscador que con un solo dato me extraiga todos los datos que hayan en la fila, me explico mejor: tengo nombres y apellidos, cedula, codigo, etc. necesito poner el numero de cedula y que me traiga todos los datos, que pueda poner nombres e igual me traiga todo o con cualquier otro dato pero que me traiga todo, si me pudieras ayudar porque neesito gestionar una base de datos pero solo me falta el buscador para consultar por cualquier dato, gracias.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-28852908419188662322011-09-22T20:49:09.401+02:002011-09-22T20:49:09.401+02:00Hola Javier Marco.
Soy Pedro. Y desde ya muy agra...Hola Javier Marco.<br /><br />Soy Pedro. Y desde ya muy agradecido por tu aporte de la macro “buscar_cosas”.<br />Mira, tengo unas dudas.<br />Estoy utilizando la 1ª modificación que proporcionaste a Edu, el 15 de abril de 2008. Y me parece fenomenal. Pero me gustaría solicitarte que me ayudaras en una pequeña modificación, ya que me he artado de buscar por la Web, y por las referencias de VBA Excel y no encuentro la solución. Todo sea dicho, no soy muy ducho en esto de las macros, ni en VBA.<br />Tendría, las siguientes necesidades.<br /><br />1º Me seria de utilidad, que: En vez de introducir por medio de “InputBox”, el comienzo y el fin de una columna; esta operación, se realizara por medio del ratón. O bien pulsando en el comienzo de una columna, ó, seleccionando directamente un grupo de celdas.<br /><br />2º No me es necesario, que el texto coincidente, de las celdas encontradas, cambie de color. Así pues, el código relacionado con esto, se podría eliminar. (Dudo, a que parte de código, afectaría. Por eso no me he atrevido, a cambiarlo yo).<br /><br />3º Y lo más importante. Todas las celdas donde se hayan encontrado coincidencias, tendrían que ser copiadas, con el mismo formato. En la misma posición y rango, en el que se encontraban inicialmente, pero en una columna diferente. La cual, también seria necesario, que se pudiera seleccionar mediante el ratón, y no por medio de “InputBox”.<br /><br />Reitero mi agradecimiento desde ya, aun en el caso, que no me puedas ayudar. Y te pido disculpas por las molestias que te ocasione esto.<br /><br />Mil gracias de nuevo.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-18981418478056123742011-09-19T22:38:19.349+02:002011-09-19T22:38:19.349+02:00hola, estuve revisando tu aporte y esta genial, po...hola, estuve revisando tu aporte y esta genial, por cierto ya se como jalar mas celdas, lo que no sé y no tengo ni idea es por que busca solo letras o texto, en mi caso quiero buscar códigos, y no lo puede hacer, lo mio mas o menos es así el código que busco tiene un ingreso en numero, coincidente mente el ingreso esta al lado derecho, y la salida esta al lado derecho del ingreso, me funcionaria si mi código seria un nombre pero dado que es un numero no me resulta, por favor dame una mano...Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-18651353819138821432011-09-05T21:37:10.200+02:002011-09-05T21:37:10.200+02:00Master una consulta, quiero saber si lo siguiente ...Master una consulta, quiero saber si lo siguiente es posible en excel.<br />En la celda A1 tengo un monto de 100.000 y en la columna b tengo 30 celdas con distintos montos y de los cuales si sumo solo cuatro me dan los mismos 100.000, es posible hacer una macro que encuentre y especifique cuales son las celdas que suamndo me pueden dar 100.000.<br /><br />Agradecido desde ya, <br />ClaudioAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-10287291976468418262011-07-13T06:29:47.923+02:002011-07-13T06:29:47.923+02:00Gracias por tu ayuda!!Gracias por tu ayuda!!frankhack1https://www.blogger.com/profile/12437051239042743413noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-69598522446877929072011-07-11T21:22:33.669+02:002011-07-11T21:22:33.669+02:00Es probable que pienses que la aplicación se ha co...Es probable que pienses que la aplicación se ha colgado, si el volumen de coincidencias es muy elevado. Es decir, si hay pocos resultados para la búsqueda realizada, la aplicación irá muy rápida, pero si el volumen de datos encontrados es ato (resultados que coinciden con los criterios de búsqueda), entonces la aplicación puede ir muy lenta. Ojo, esto último no quiere decir que se cuelgue, sino simplemente que tardará mucho (déjalo que trabaje, que ya verás como te devuelve los resultados solicitados, aunque tarde 1, 2, o 3 minutos).<br /><br />Puedes buscar hasta la última celda con datos contínuos, cambiando la variable max_fila, por esta otra:<br /><br />max_fila = Range("A1").End(xlDown).Row<br /><br />Saludos.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-62125423475355401602011-07-11T20:43:43.837+02:002011-07-11T20:43:43.837+02:00Muchas gracias por tu respuesta! Yo he hecho tal c...Muchas gracias por tu respuesta! Yo he hecho tal como lo comentaste y funciono y solo como ultima cosa, quisiera que el buscador buscara en toda la columna A hasta donde encuentre datos, lo digo por esta linea: <br />[quote]max_fila = 1000 'he supuesto que buscarás hasta la fila 1000[/quote]<br />La verdad que queria que buscara en toda la columna A, por que podria llegar a recibir hasta mas de 30 mil datos, ya intente ponerle un valor como 100000 y se quedo colgado el Excel, entonces si hay forma de que Excel automaticamente identifique hasta donde hay datos y pare de buscar, seria lo idealfrankhack1https://www.blogger.com/profile/12437051239042743413noreply@blogger.comtag:blogger.com,1999:blog-7983188466168395484.post-22826026973764081872011-07-10T22:53:23.980+02:002011-07-10T22:53:23.980+02:00Pues creo que deberías modificar lo siguiente:
la...Pues creo que deberías modificar lo siguiente:<br /><br />la variable "celda_inicial", y "celda_final" no harían falta, con lo que se podrían eliminar las líneas:<br /><br />celda_inicial = InputBox("¿Cuál es la celda inicial, donde quieres empezar a buscar?", "Pregunta")<br />celda_final = InputBox("¿Cuál es la celda final, donde quieres parar a buscar?", "Pregunta")<br /><br />Luego, habría que cambiar las variables "min_fila", "max_fila", "min_columna", y "max_columna", poniendo estos valores:<br /><br />min_fila = 1<br />max_fila = 1000 'he supuesto que buscarás hasta la fila 1000<br />min_columna = 1<br />max_columna = 1<br /><br />Y por último, esta línea:<br /><br />Range(celda_inicial).Select<br /><br />deberías cambiarla por esta otra:<br /><br />Range("A1").Select<br /><br />Creo que no me he dejado nada...<br />Saludos.El pilt®afilla - www.3piesalgato.comhttps://www.blogger.com/profile/17515836395057154507noreply@blogger.com