Poner pleno a goles
Poner pleno a goles
Para todo el foro y especialmente para los amigos que formamos la agrupación el "15 Único" , dejo la siguiente aplicacion , que ayuda a poner los plenos en varias formas .
1. Simple al directo
2. Múltiple al directo
3. Aleatoriamente segun porcentajes
4. Igual a otra combinación (Madre) <==== para la agrupación :winke:
5. Según el rango 14 (nº acertantes 14)
Link de descarga => http://www.gol1x2.com/excelvba/pleno15_goles.rar
En el zip esta la aplicación que es un ejecutable (.exe) y la siguiente foto con algunas explicaciones sobre el funcionamiento .
Felices REYES a tod@s !!!
1. Simple al directo
2. Múltiple al directo
3. Aleatoriamente segun porcentajes
4. Igual a otra combinación (Madre) <==== para la agrupación :winke:
5. Según el rango 14 (nº acertantes 14)
Link de descarga => http://www.gol1x2.com/excelvba/pleno15_goles.rar
En el zip esta la aplicación que es un ejecutable (.exe) y la siguiente foto con algunas explicaciones sobre el funcionamiento .
Felices REYES a tod@s !!!
Última edición por laguineu el Mié 01 Nov, 2017 7:07 pm, editado 1 vez en total.
Re: Poner pleno a goles
Como siempre .... ¡¡¡ Muchas gracias !!!
"Primero tienes que aprender las reglas del juego, y después jugar mejor que nadie"
Si te gusta la Primitiva...
PRIMINVERSIONES ... La Suerte está echada
PRIMINVERSIONES ... La Suerte está echada
Re: Poner pleno a goles
Muchas gracias Laguineu.
Ahora el DNP esta mas cerca de lograr premios realmente importantes,desde hace tiempo hago calculos manualmente ya que en mi sistema el pleno a goles determina mi rango 14.
Gracias de nuevo.
Ahora el DNP esta mas cerca de lograr premios realmente importantes,desde hace tiempo hago calculos manualmente ya que en mi sistema el pleno a goles determina mi rango 14.
Gracias de nuevo.
Re: Poner pleno a goles
Gracias Laguineu , otra cosa interesante para estudiar...gracias ... :winke:
- yuks
- 14
- Mensajes: 7061
- Registrado: Mar 21 Oct, 2014 4:48 pm
- Ubicación: En algún lugar del Sistema Solar.
- Contactar:
Re: Poner pleno a goles
Buenas, Laguineu.
¿Podrías comprobar el archivo .exe?
Mi antivirus me tira un troyano en ese archivo...
Concretamente este:
Generic38.QLE
¿Podrías comprobar el archivo .exe?
Mi antivirus me tira un troyano en ese archivo...
Concretamente este:
Generic38.QLE
-
- 10
- Mensajes: 75
- Registrado: Jue 03 Oct, 2013 3:54 pm
Re: Poner pleno a goles
Hola.
¿Podrías mirar la importación de porcentajes LAE? A mi solamente me importa los signos 1 y X, los signos 2 los deja vacios.
Saludos
¿Podrías mirar la importación de porcentajes LAE? A mi solamente me importa los signos 1 y X, los signos 2 los deja vacios.
Saludos
Re: Poner pleno a goles
Puede que sea por la version de excel que usasFEsmeralda escribió:Hola.
¿Podrías mirar la importación de porcentajes LAE? A mi solamente me importa los signos 1 y X, los signos 2 los deja vacios.
Saludos
¿ Podrias comprobar y decirme si con esta versión sigue el error en la captura de porcentajes ?
Link descarga => http://www.gol1x2.com/excelvba/pleno15_goles.rar
Última edición por laguineu el Mié 01 Nov, 2017 7:08 pm, editado 1 vez en total.
-
- 10
- Mensajes: 75
- Registrado: Jue 03 Oct, 2013 3:54 pm
Re: Poner pleno a goles
laguineu escribió:Puede que sea por la version de excel que usasFEsmeralda escribió:Hola.
¿Podrías mirar la importación de porcentajes LAE? A mi solamente me importa los signos 1 y X, los signos 2 los deja vacios.
Saludos
¿ Podrias comprobar y decirme si con esta versión sigue el error en la captura de porcentajes ?
Link 1 descarga => https://drive.google.com/file/d/0B1yqRo ... sp=sharing
Link 2 descarga => Pleno15_goles.rar - 980 KB
Utilizo office 2016 y sigue haciendo lo mismo.
Re: Poner pleno a goles
A mi me va perfecta la primera versión. Muchas gracias crack.
"Primero tienes que aprender las reglas del juego, y después jugar mejor que nadie"
Si te gusta la Primitiva...
PRIMINVERSIONES ... La Suerte está echada
PRIMINVERSIONES ... La Suerte está echada
- yuks
- 14
- Mensajes: 7061
- Registrado: Mar 21 Oct, 2014 4:48 pm
- Ubicación: En algún lugar del Sistema Solar.
- Contactar:
Re: Poner pleno a goles
A mi también me pasa, Laguineu. Parece que las versiones posteriores al 2013 tienen un motor más rápido y es como si se atropellara un poco al hacer las capturas no llegando a cambiar la hoja por lo que la copia de los signos "2" y los del pleno al 15 la hace sobre la Hoja1 en vez de sobre la hoja "lae".
Prueba a implementar Sheets("lae"). en la Sub LAE_quinielista() para que haga una obligación al cambio de hoja, quedando así el código:
Sheets("lae").Range("F52:F65").Copy
Hoja1.Range("F35").PasteSpecial xlPasteValues
Sheets("lae").Range("P52:P65").Copy
Hoja1.Range("G35").PasteSpecial xlPasteValues
Sheets("lae").Range("O52:O65").Copy
Hoja1.Range("H35").PasteSpecial xlPasteValues
Sheets("lae").Range("G66:J66").Copy
Hoja1.Range("F49").PasteSpecial xlPasteValues
Sheets("lae").Range("K66:N66").Copy
Hoja1.Range("F50").PasteSpecial xlPasteValues
A mi me funcionó.
Prueba a implementar Sheets("lae"). en la Sub LAE_quinielista() para que haga una obligación al cambio de hoja, quedando así el código:
Sheets("lae").Range("F52:F65").Copy
Hoja1.Range("F35").PasteSpecial xlPasteValues
Sheets("lae").Range("P52:P65").Copy
Hoja1.Range("G35").PasteSpecial xlPasteValues
Sheets("lae").Range("O52:O65").Copy
Hoja1.Range("H35").PasteSpecial xlPasteValues
Sheets("lae").Range("G66:J66").Copy
Hoja1.Range("F49").PasteSpecial xlPasteValues
Sheets("lae").Range("K66:N66").Copy
Hoja1.Range("F50").PasteSpecial xlPasteValues
A mi me funcionó.
Re: Poner pleno a goles
Gracias Yuks
Por comodidad , antes de la captura , yo he elegido seleccionar la hoja "lae " (Sheets("lae").Select) y trabajar sobre ella con solo poner Range sin hacer referencia cada vez que hago un "copy" . Por lo visto esto ahora va muy rapido y no le da tiempo de reflexionar :-D ........ todo
He implementado lo que has dicho .
Espero que ahora funcione . yo no lo puedo comprobar ya que aun voy con una versión de 2010 .
Link descarga => http://www.gol1x2.com/excelvba/pleno15_goles.rar
Por comodidad , antes de la captura , yo he elegido seleccionar la hoja "lae " (Sheets("lae").Select) y trabajar sobre ella con solo poner Range sin hacer referencia cada vez que hago un "copy" . Por lo visto esto ahora va muy rapido y no le da tiempo de reflexionar :-D ........ todo
He implementado lo que has dicho .
Espero que ahora funcione . yo no lo puedo comprobar ya que aun voy con una versión de 2010 .
Link descarga => http://www.gol1x2.com/excelvba/pleno15_goles.rar
Última edición por laguineu el Mié 01 Nov, 2017 7:09 pm, editado 1 vez en total.
-
- 10
- Mensajes: 75
- Registrado: Jue 03 Oct, 2013 3:54 pm
Re: Poner pleno a goles
Buena práctica la expuesta. Hay diferentes formas de recorrer celdas y evitar el código spaguetti de Yuks.laguineu escribió: Por comodidad , antes de la captura , yo he elegido seleccionar la hoja "lae " (Sheets("lae").Select) y trabajar sobre ella con solo poner Range sin hacer referencia cada vez que hago un "copy" . Por lo visto esto ahora va muy rapido y no le da tiempo de reflexionar :-D ........ todo
Por mi parte, ahora funciona correctamente el excel.
- yuks
- 14
- Mensajes: 7061
- Registrado: Mar 21 Oct, 2014 4:48 pm
- Ubicación: En algún lugar del Sistema Solar.
- Contactar:
Re: Poner pleno a goles
Ese código "spaguetti" del que hablas (y que por cierto, no veo el "spaguetti por ningún lado), no es mío sino de Laguineu. Mi única aportación ha sido la instrucción Sheets("lae"), para que pueda funcionar en versiones de Excel posteriores al 2010.FEsmeralda escribió:Buena práctica la expuesta. Hay diferentes formas de recorrer celdas y evitar el código spaguetti de Yuks.laguineu escribió: Por comodidad , antes de la captura , yo he elegido seleccionar la hoja "lae " (Sheets("lae").Select) y trabajar sobre ella con solo poner Range sin hacer referencia cada vez que hago un "copy" . Por lo visto esto ahora va muy rapido y no le da tiempo de reflexionar :-D ........ todo
Por mi parte, ahora funciona correctamente el excel.
Lo que tiene narices, es que encima de que se te resuelve un problema, andes criticando sin saber.
-
- 10
- Mensajes: 75
- Registrado: Jue 03 Oct, 2013 3:54 pm
Re: Poner pleno a goles
nadie te ha criticado, solamente he dicho que hay que evitar el código spaguetti como buena practica en la programación. Me he referido a ti porque eres tu el que ha escrito esa parte de código. En cualquier foro de programación se reseña esto constantemente sin que nadie se sienta ofendido.
laguineu, esa parte de código que tienes se puede hacer mas eficiente recorriendo las celdas de otra forma. Si te interesa lo podemos hablar por privado.
laguineu, esa parte de código que tienes se puede hacer mas eficiente recorriendo las celdas de otra forma. Si te interesa lo podemos hablar por privado.
- yuks
- 14
- Mensajes: 7061
- Registrado: Mar 21 Oct, 2014 4:48 pm
- Ubicación: En algún lugar del Sistema Solar.
- Contactar:
Re: Poner pleno a goles
Pero es que el código es de Laguineu, no mío. Y repito que no veo el "spaguetti" por ningún lado.FEsmeralda escribió:nadie te ha criticado. Solamente he dicho que hay que evitar el código spaguetti en la programación. Me he referido a ti porque eres tu el que ha escrito esa parte de código.
En cualquier foro de programación se reseña esto constantemente sin que nadie se sienta ofendido.
Re: Poner pleno a goles
:mmm:yuks escribió:A mi también me pasa, Laguineu. Parece que las versiones posteriores al 2013 tienen un motor más rápido y es como si se atropellara un poco al hacer las capturas no llegando a cambiar la hoja por lo que la copia de los signos "2" y los del pleno al 15 la hace sobre la Hoja1 en vez de sobre la hoja "lae".
Prueba a implementar Sheets("lae"). en la Sub LAE_quinielista() para que haga una obligación al cambio de hoja, quedando así el código:
Sheets("lae").Range("F52:F65").Copy
Hoja1.Range("F35").PasteSpecial xlPasteValues
Sheets("lae").Range("P52:P65").Copy
Hoja1.Range("G35").PasteSpecial xlPasteValues
Sheets("lae").Range("O52:O65").Copy
Hoja1.Range("H35").PasteSpecial xlPasteValues
Sheets("lae").Range("G66:J66").Copy
Hoja1.Range("F49").PasteSpecial xlPasteValues
Sheets("lae").Range("K66:N66").Copy
Hoja1.Range("F50").PasteSpecial xlPasteValues
A mi me funcionó.
Re: Poner pleno a goles
En lugar de los %LAE no habría que utilizar los %Bet para que los 16 plenos se ordenen de más probable a menos?
Re: Poner pleno a goles
Al ser PONER PLENO " según rangos " , solo se puede calcular con los porcentajes apostados (LAE) , pero si tu quieres usar unos porcentajes proprios (como por ejemplo los Reales) , se pueden rellenar las 16 casillas K35:K50 y en la celda O34 elegir de la desplegable la opción Prob2 , pero los cálculos que se harán luego para el Rango15 min (I26:AM26) y Rango 15 max (I27:AM27) con estas probabilidades no pueden reflejar el numero de acertantes al 15 ,sino otra cosa .Gim escribió:En lugar de los %LAE no habría que utilizar los %Bet para que los 16 plenos se ordenen de más probable a menos?
Re: Poner pleno a goles
Gracias Laguineu por el curro que te pegas...saludos y suerte con la 37.... :-D :-D :winke: