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

cuadrantes para torneo

Ver el tema anterior Ver el tema siguiente Ir abajo

cuadrantes para torneo

Mensaje por icehell el Mar Ene 25, 2011 10:39 pm

Hola a todos y gracias de antemano, llevo tiempo trabajando en este archivo pero mis conocimientos de excel no van mas allá de sumar y restar.... soy nulo nulo nulo

Bien el tema es que he intentado crear esta libro para poder crear torneos directamente, el tema es que he conseguido la hoja de INSCRIPCION ( de la cual meto los nombres de los inscritos y con la macro de sorteo se les asigna número aleatorios no repetidos y según número se va a cuadrante)

Que posiblidad tengo de poder de que al completarse un cuadrante o sea, al finalizar el sorteo me cierre todas las hojas y se quede abierta solo la del cuadrante y premios.

Y alguien sabe como montar un fixture para hacer una liga de 6 a 32 equipos en las cuales pueda poner los resultados y actualizarse.

Ya se que pido mucho pero agradeceria cualquier tipo de ayuda.


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: cuadrantes para torneo

Mensaje por moises melgar el Miér Ene 26, 2011 4:54 pm

hola bienvenido a excelgali ocultar hojas es muy sencillo
simplemente despues de tu macro, claro antes de ENd sub coloca HOJa#.visible= false te envio ejemplos:
creando una macro
Código:
SUb ocultarejemplo()
Hoja#.visible= false
'donde # es el numero de hoja que se tiene Pd Son las que muetra al entrar en VBa con Alt + F11 , parte izquierda
End sub

pero si son varias hojas recomiendo
Código:
Sub ocultarejemplo2()
    Dim i As Long
' indica el rango de las hojas  a poner a prueba "i" representara los numeros del 1 al 15, esto se le llama bucle "for - next"
        For i = 1 To 15
' con select case indico que hojas voy a utilizar
        Select Case i
        Case 2, 6, 8, 10 To 13, 15
' aqui se muetras que la hojas seleccionadas se van a ocultar
            Sheets(i).visible= false
        End Select
    Next i
End Sub
y disculpa por no saber que es un fixture pero espero que este tema te oriente o te sirva de algo
[Tienes que estar registrado y conectado para ver este vínculo]
Avisa si el tema te sirve o exista alguna otro tema de conversacion.


avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: cuadrantes para torneo

Mensaje por icehell el Miér Ene 26, 2011 9:10 pm

Perdona no lo he cogido, no me sale o lo hago mal

Debería despues de realizar el sorteo mostrarme solamente la hoja de cuadrante correcto y la hoja de premio

El enlace del fixture no me vale dado que nunca sabre cuantos equipos son pero siempre barajo la posivilidad de 6 a 32 equipos
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: cuadrantes para torneo

Mensaje por moises melgar el Miér Ene 26, 2011 9:23 pm

ok entonces sigue estos pasos
entra a VBA y en la parte izquierda observa que numeros tienen las hojas que quieres que se oculten despues del sorteo
siempre dicen
Hoja1 (nombre de esa hoja)
hoja2 (nombre de la hoja)
aqui los numeros son 1 y 2
luego busca la macro que realiza el sorteo

sub macrodel sorteo()
"aqui va el codigo de la macro para el sorteo"
''
''
''
''
hoja#.visible =false
hoja#.visible= false
end sub

en lugar de # se colocan el numero de hoja que le correspondede la hojas a ocultar

o puedes colocar el ejemplo No 2 Solo cambia los numeros por los de las hojas a ocultar

sub macrodel sorteo()
"aqui va el codigo de la macro para el sorteo"
''
''
''
''
Dim i As Long
For i = 1 To 15 ( del 1 a el numero mayor de hojas que posees)
Select Case i
Case 2, 6, 8, 10 To 13, 15 (hojas a ocultar)
Sheets(i).visible= false
End Select
Next i
end sub
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: cuadrantes para torneo

Mensaje por moises melgar el Miér Ene 26, 2011 9:37 pm

dime como se llaman las hojas que solo quieres que se muestren visibles despues de presionar el boton sorteo y en que hoja estara el cursor ( hoja activada)
para realizar de una vez las modificaciones en tu libro.
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: cuadrantes para torneo

Mensaje por icehell el Miér Ene 26, 2011 9:43 pm

las hojas visibles vienen determinadas segun los participantes y cual sera el resultado del sorteo,

ej. si son 15 jugadores el sorteo se hara de 16 e iran a la hoja cuadrante16
si son 17 jugadores el sorteo se hara de 32 e iran a la hoja cuadrante32

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: cuadrantes para torneo

Mensaje por moises melgar el Miér Ene 26, 2011 10:12 pm

ok comprendo mañana lo subo, por hoy ya me voy
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: cuadrantes para torneo

Mensaje por icehell el Miér Ene 26, 2011 10:13 pm

muchas gracias por tu tiempo
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: cuadrantes para torneo

Mensaje por moises melgar el Jue Ene 27, 2011 2:52 pm

hola tuve un poco de problemas pero ya esta en la hoja de inscripciones en el ramgo AC3 coloque una formula de buscar para que devuelva el numero de torneo por participantes
en la macro unicos1 coloque al final
Código:
Sub unicos1()
"
"
Application.run("ejemplo") ' llama  ala macro con ese nombre
end sub

la macro ejemplos es la que deja abierta la hoja necsaria y la de premios
Código:
Sub ejemplo()
On Error Resume Next
Dim hoja
Dim t As Long
    For t = 1 To 15
    Select Case t
    Case 1 To 5, 7 To 15
        Sheets(t).Visible = False
    End Select
Next t
Hoja6.Visible = True
Hoja3.Visible = False
If Hoja5.Range("AC3").Value = "no existe" Then
MsgBox "no existe hoja para mayores de 64 inscritos"
Else:
Sheets("CUADRANTE" & Hoja5.Range("AC3")).Visible = True
End If
End Sub

pero para verlo normal cree esta macro

Código:
Sub ejemplo2()
Dim t As Long
    For t = 1 To 15
        Sheets(t).Visible = True
    Next t
Hoja5.Activate
End Sub

adjunto el archivo
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: cuadrantes para torneo

Mensaje por moises melgar el Jue Ene 27, 2011 2:53 pm

ahh lo termine desde hace rato pero estaba bien atareado en la oficina pero ya me di un tiempo para subirlo y al cerrar el libro se vuelven a mostar todas las hojas abiertas con
en el ThisWorkbook del libro (verlo desde VBA)
Código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run ("ejemplo2")
End Sub
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: cuadrantes para torneo

Mensaje por icehell el Jue Ene 27, 2011 9:33 pm

Pero como es esto, me lo haces, me lo explicas y lo subes de nuevo perfecto,

hecho perfecto, justo como lo queria,


muchisimas gracias por tu tiempo y lecciones
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: cuadrantes para torneo

Mensaje por moises melgar el Jue Ene 27, 2011 9:36 pm

el foro no hace trabajos, pero cada miembro es libre de realizar los trabajos que desee, eso si con todo el respeto hacia los miembros y reglas del mismo.
Yo en lo personal lo considero como un medio para poder compartir informacion y apoyarnos en la comprension del mismo.
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: cuadrantes para torneo

Mensaje por icehell el Jue Ene 27, 2011 9:43 pm

moises melgar escribió:el foro no hace trabajos, pero cada miembro es libre de realizar los trabajos que desee, eso si con todo el respeto hacia los miembros y reglas del mismo.
Yo en lo personal lo considero como un medio para poder compartir informacion y apoyarnos en la comprension del mismo.

solo te puedo decir GRACIAS
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: cuadrantes para torneo

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.