Buscar en hoja
Hola, con la siguiente macro busco en una columna si existe un nombre y si existe lo selecciona pero no se comO hacer una instrucciones que busque el siguiente nombre si le doya una
tecla( por ejemplo la tecla (FIN) Gracias anticipadas.
Private Sub CommandButton3_Click()
On Local Error Resume Next
Dim strBuscar As String
strBuscar = Trim(InputBox("Que buscas?"))
With Worksheets("999").Range("H:H")
Set c = .Find(strBuscar, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Select
End With
End Sub
tecla( por ejemplo la tecla (FIN) Gracias anticipadas.
Private Sub CommandButton3_Click()
On Local Error Resume Next
Dim strBuscar As String
strBuscar = Trim(InputBox("Que buscas?"))
With Worksheets("999").Range("H:H")
Set c = .Find(strBuscar, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Select
End With
End Sub
1 Respuesta
Respuesta de Elsa Matilde
1
Con este ejemplo solo tienes que presionar Enter para avanzar
Espero te sirva
Saludos
Elsa
Private Sub CommandButton1_Click()
On Local Error Resume Next
Dim c, sino, PrimCoinc
Dim strBuscar As String
strBuscar = Trim(InputBox("Que buscas?"))
With ActiveSheet.Range("B:B")
Set c = .Find(strBuscar, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
'si la búsqueda fue exitosa se guarda la dirección
If Not c Is Nothing Then
PrimCoinc = c.Address
Do
c.Select
sino = MsgBox("Sigue?", vbYesNo)
If sino <> 6 Then Exit Sub
'se realiza la búsqueda siguiente
Set c = .FindNext(c)
'el bucle continúa mientras se encuentre coincidencias y NO sea la primer celda encontrada
Loop While Not c Is Nothing And c.Address <> PrimCoinc
End If
End With
End Sub
Espero te sirva
Saludos
Elsa
Private Sub CommandButton1_Click()
On Local Error Resume Next
Dim c, sino, PrimCoinc
Dim strBuscar As String
strBuscar = Trim(InputBox("Que buscas?"))
With ActiveSheet.Range("B:B")
Set c = .Find(strBuscar, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
'si la búsqueda fue exitosa se guarda la dirección
If Not c Is Nothing Then
PrimCoinc = c.Address
Do
c.Select
sino = MsgBox("Sigue?", vbYesNo)
If sino <> 6 Then Exit Sub
'se realiza la búsqueda siguiente
Set c = .FindNext(c)
'el bucle continúa mientras se encuentre coincidencias y NO sea la primer celda encontrada
Loop While Not c Is Nothing And c.Address <> PrimCoinc
End If
End With
End Sub
