............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

BUSCADOR SUPER SIMPLE CON fORMULARIO

Ver el tema anterior Ver el tema siguiente Ir abajo

BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por GalileoGali el Jue Mayo 01, 2008 10:05 am

BUSCA EN TODAS LAS HOJAS QUE DECIDAS Y SE DETIENE EN EL VALOR BUSCADO

DESCARGAR ARCHIVO

Código:
Private Sub CommandButton1_Click()
Dim ws As Worksheet, resp As Range, iDecide As Integer
buscado = TextBox1
If buscado = "" Then Exit Sub
For Each ws In ActiveWorkbook.Worksheets

iDecide = MsgBox("Quiere buscar en la hoja llamada: " & ws.Name & "?", vbYesNo)
If iDecide = vbYes Then
ws.Activate
Set resp = Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox "Valor no encontrado"
Else
resp.Activate
End If
End If
Next ws

End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por goczila el Miér Ene 28, 2009 8:57 pm

Hola copie el archivo e hice la prueba pero no encuentra en el primer intento sino sólo hasta que pasa todas las opciones, sería interesante que encontrará altiro el primer valor buscado
saludos

goczila

Cantidad de envíos : 12
Fecha de inscripción : 27/01/2009

Volver arriba Ir abajo

Re: BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por GalileoGali el Miér Ene 28, 2009 10:14 pm

Si entendi, esto podria servir (muy básico)
Código:
Option Explicit
Private Sub CommandButton1_Click()
Dim buscado As String
Dim ws As Worksheet, resp As Range, iDecide As Integer
buscado = TextBox1
If buscado = "" Then Exit Sub
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    If ws.Range("a1").Value Like "*" & buscado & "*" Then
        Set resp = ws.Range("a1")
    Else
        Set resp = Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    End If
    If Not resp Is Nothing Then resp.Activate: Exit Sub
Next ws
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por goczila el Miér Ene 28, 2009 11:11 pm

Excelente .muchas gracias lo que buscaba.

goczila

Cantidad de envíos : 12
Fecha de inscripción : 27/01/2009

Volver arriba Ir abajo

Re: BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por henryh007 el Dom Ago 30, 2009 11:38 pm

Hola de nuevo, lei tu Post, y de pronto se me ocurrio una idea, es posible buscar el valor de un ComBox, y que en los ListBox aparesca su informacion, los datos se encuentran en la hoja2. Algo asi.
A / B / C /
Nombre / Telefono / Direccion /
Henry / 221154 / Magisterio /

El valor Henry, que esta en el combox, necesito que salga en los TextBox que busque sus datos en la Hoja2.

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por GalileoGali el Lun Ago 31, 2009 7:54 am

1) Solo admitimos planteos puntuales.
2) Si esperas respuesta en un tema como este, formularios, sube un archivon donde tengas lo que armaste y despues formula tus preguntas puntuales

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por henryh007 el Lun Ago 31, 2009 3:37 pm

Ok, creare un nuevo Hilo.

henryh007

Masculino Cantidad de envíos : 53
Edad : 25
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: BUSCADOR SUPER SIMPLE CON fORMULARIO

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.