Repetir Atrás de un Case
Hola!!
Gracias por ayudarme, es una sola pequeña pregunta, espero y me puedan ayudar,
Tengo este código:
Sub buscar() Cells.Find(What:=Range("L9").Value, After:=Range("A3"), LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Dim pregunta pregunta = MsgBox("Deseas la abrir la ficha de: " & ActiveCell.Value, vbYesNo) Select Case pregunta Case 6: Workbooks.Open ("E:\USERDATA\EduardoChimal\artistas\" & ActiveCell.Value) Case 7: Cells.Find(What:=Range("L9").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate End Select End Sub
Cuando entra a Case 7 necesito que haga de nuevo esa búsqueda, pero que regrese a "pregunta" para que lo vuelva a ejecutar por si el archivo que sigue si lo quiere abrir. Este va a terminar hasta que ya haya terminado la búsqueda de la columna A y salga del Sub.
Espero me haya explicado.
Muchas gracias por su ayuda
Saludos
1 Respuesta
Respuesta de Dante Amor
1