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

Macro que busque condición variable

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro que busque condición variable

Mensaje por icehell el Mar Jun 14, 2011 9:37 pm

Buenas a todos, de nuevo por aquí con mi archivo de Ligas, lo he vuelto a cambiar y me gusta mucho más el resultado; aunque todavía me falta mucho camino por andar...

Bien, mi problema:
En la hoja Jornadas me gustaría seguir con la macro que encontré en San Google

Código:
Sub buscar()
    Dim n As Range
    palabra_a_buscar = InputBox("ESCRIBE JORNADA Y NUMERO", "IR A JORNADA")
    Set n = Cells.Find(What:=palabra_a_buscar)
    If n Is Nothing Then
        MsgBox "¡¡¡NO EXISTE ESA JORNADA!!!"
    Else
        Range(n.Address).Select
        MsgBox "ENCONTRADA: " & UCase(palabra_a_buscar) & "."
    End If
    Set n = Nothing
End Sub
Bien mis cortos conocimiento no me permiten avanzar más, y os aseguro que lo he intentado; HACE LO QUE TIENE QUE HACER PERFECTAMENTE, PERO HE PENSADO QUE DADO QUE ES UNA MACRO PORQUE NO AVANZAR MÁS, y lo que necesito es que la palabra a buscar se siempre "JORNADA" y solo deba de ingresar el "Nº". Claro que si eso es posible
avatar
icehell

Masculino Cantidad de envíos : 64
Edad : 43
Ciudad - Pais : Arrecife
Version de Excel : 2010
Fecha de inscripción : 26/11/2010

http://icehellsoftware.260mb.org/

Volver arriba Ir abajo

Re: Macro que busque condición variable

Mensaje por GalileoGali el Miér Jun 15, 2011 8:22 am

ALTERNATIVA
1)
Código:
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV   
Dim n As Range   
    Const palabra_a_buscar As String = "JORNADA"
    palabra_a_buscar = palabra_a_buscar & InputBox("ESCRIBE NUMERO DE JORNADA", "IR A JORNADA")
    Set n = Cells.Find(What:=palabra_a_buscar)
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV

2)
Código:
vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
 Dim n As Range
 palabra_a_buscar = InputBox("ESCRIBE NUMERO DE JORNADA", "IR A JORNADA", Default:="JORNADA")
    Set n = Cells.Find(What:=palabra_a_buscar)
vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

muchas otras alternativas pueden agregarse, especialmente de contar con el contexto funcional.....

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

Masculino Cantidad de envíos : 1963
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: Macro que busque condición variable

Mensaje por icehell el Miér Jun 15, 2011 11:06 am

Muchas gracias GalileoGali.
Lo he probado y funciona perfectamente, no obstante con el método "ENSAYO Y ERROR" conseguí crear un Combobox con lista desplegable buscando cada variable. A ver si soy capaz de subir los pasos.

PRIMERO: creo las macros necesarias para buscar X y mostrar la celda
Sub jornada_1()
Dim n As Range

Set n = Cells.Find(What:="JORNADA 1")
If n Is Nothing Then
MsgBox "¡¡¡NO EXISTE ESA JORNADA!!!"
Else
Range(n.Address).Select

End If
Set n = Nothing
End Sub

SEGUNDO: un combobox con una lista previamente creada, en Formato de Control asigno rangos y celda de vínculo válido

TERCERO: asigno la siguiente macro
Sub Lista_desplegable_jornadas()
Dim intCaseSel As Integer

intCaseSel = Range("$K$2")

Select Case intCaseSel
Case 1: Call jornada_1
Case 2: Call jornada_2
Case 3: Call jornada_3
Case 4: Call jornada_4
Case 5: Call jornada_5
Case 6: Call jornada_6
Case 7: Call jornada_7
Case 8: Call jornada_8
Case 9: Call jornada_9
Case 10: Call jornada_10
Case 11: Call jornada_11
Case 12: Call jornada_12
Case 13: Call jornada_13
Case 14: Call jornada_14
Case 15: Call jornada_15
Case 16: Call jornada_16
Case 17: Call jornada_17
Case 18: Call jornada_18
Case 19: Call jornada_19
Case 20: Call jornada_20
Case 21: Call jornada_21
Case 22: Call jornada_22
Case 23: Call jornada_23
Case 24: Call jornada_24
Case 25: Call jornada_25
Case 26: Call jornada_26
Case 27: Call jornada_27
Case 28: Call jornada_28
Case 29: Call jornada_29
Case 30: Call jornada_30
Case 31: Call jornada_31
Case 32: Call jornada_32
Case 33: Call jornada_33
Case 34: Call jornada_34
Case 35: Call jornada_35
Case 36: Call jornada_36
Case 37: Call jornada_37
Case 38: Call jornada_38



End Select


End Sub


Y POR ULTIMO: Cree un evento Change para llamar a la macro desde la lista desplegable
Private Sub ComboBox1_Change()
Application.Run ComboBox1.Value
End Sub


Me llevó esta noche.. pero el resultado es el mismo que tu opción... pero desde luego la sencillez y resultado de tu código lo hacen más interesante...

Gracias nuevamente
avatar
icehell

Masculino Cantidad de envíos : 64
Edad : 43
Ciudad - Pais : Arrecife
Version de Excel : 2010
Fecha de inscripción : 26/11/2010

http://icehellsoftware.260mb.org/

Volver arriba Ir abajo

Re: Macro que busque condición variable

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.