Necesito que en lugar de solo buscar Improcedentes, también busque Disponibles

Parece que no han pasado unas horas cuando ya tengo preguntas jajajaja, lo que pasa es que necesito que en lugar de solo buscar Improcedentes, también busque Disponibles, todo o demás queda igual
Saludos y mil mil gracias!

1 Respuesta

Respuesta
1
Cambia la fila :
If LCase(ActiveCell) = "improcedente" Then
a
1.  If LCase(ActiveCell) = "disponibles" Then  ' para buscar disponibles
2.   If LCase(ActiveCell) = "improcedente" or LCase(ActiveCell) = "disponibles" Then ' para que busque improcedente y/o disponibles
3. Si Disponibles lo quieres colocar en otro libro llamado Disponibles.xls entonces cambia las siguientes lineas:
Sub UbicarImprocedentes()
Workbooks.Open Filename:="Improcedentes.xls"
If LCase(ActiveCell) = "improcedente" Then
Windows("Improcedentes.xls").Activate   2 lineas
Por estas :
Sub UbicarDisponibles()
Workbooks.Open Filename:="Disponibles.xls"
If LCase(ActiveCell) = "disponible" Then
Windows("Disponibles.xls").Activate 2 lineas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas