
Buscar Datos en Planilla Excel con Macros
Publicado por Patricio (4 intervenciones) el 15/06/2006 00:34:07
Amigos:
Una vez más solicito ayuda. Tengo el siguiente código asociado a un botón de comando, el cual ejecuta estas sentencias al hacerle click:
Private Sub btnBuscar1_Click()
Dim varTexto1 As String
Columns("B:B").Select
varTexto1 = TextBoxBuscaSol.Value
Cells.Find(What:=TextBoxBuscaSol, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
La idea es que al click, seleccione toda la columna B y busque el texto que está dentro de la variable varTexto1 (variable que toma el valor escrito en una caja de texto previamente).
Lo hace bien, pero el problema es que a veces el valor que necesito buscar no es el primero que encuentra, sino otro posterior y al hacerle clic múltiples veces al botón, siempre se para la búsqueda al primer match y no sigue con la búsqueda.
Lo que necesito es algo así:
Selection.FindNext(After:=ActiveCell).Activate
pero es una sentencia que se debe ejecutar al presionar por segunda (o más veces) el mismo botón de búsqueda, lo cual no se cómo hacerlo.
¿Cómo lo podría resolver? Espero una ayuda de vuestra parte y gracias de antemano.
Una vez más solicito ayuda. Tengo el siguiente código asociado a un botón de comando, el cual ejecuta estas sentencias al hacerle click:
Private Sub btnBuscar1_Click()
Dim varTexto1 As String
Columns("B:B").Select
varTexto1 = TextBoxBuscaSol.Value
Cells.Find(What:=TextBoxBuscaSol, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
La idea es que al click, seleccione toda la columna B y busque el texto que está dentro de la variable varTexto1 (variable que toma el valor escrito en una caja de texto previamente).
Lo hace bien, pero el problema es que a veces el valor que necesito buscar no es el primero que encuentra, sino otro posterior y al hacerle clic múltiples veces al botón, siempre se para la búsqueda al primer match y no sigue con la búsqueda.
Lo que necesito es algo así:
Selection.FindNext(After:=ActiveCell).Activate
pero es una sentencia que se debe ejecutar al presionar por segunda (o más veces) el mismo botón de búsqueda, lo cual no se cómo hacerlo.
¿Cómo lo podría resolver? Espero una ayuda de vuestra parte y gracias de antemano.
Valora esta pregunta


0