Jump to content
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Toca pagar la lotería premiada

pegones1

By pegones1
in Cafeteria Ayuda Excel

Recommended Posts

pegones1 Contributor

pegones1

Posted
Posted

¿Y si nos ha tocado la lotería? ¿Y si nos toca pagar la lotería?

Para comprobar los números de la Lotería de Navidad con Excel ¡como a mí me gusta! y ¡saber si aún debemos pagar 21 € por un café!, ahí va mi propuesta en lugar de bajar a la cafetería a que nos entreguen un sobre.

Si alguno sigue sin querer bajar a la cafetería que busque en Internet.

http://www.loteriasyapuestas.es/es/loteria-nacional

LoteríaNavidad.zip

Link to comment
Share on other sites
Sergio Rising Star

Sergio

Posted
Posted

Gracias por el aporte, Pedro. Desgraciadamente, a mí no me hará falta utilizarlo porque no me ha tocado ni lo que juego (que no era poco)....

Espero que el resto de jugadores hayan tenido más suerte que yo...

Link to comment
Share on other sites
pegones1 Contributor

pegones1

Posted
  • Author
Posted

Sergio, veo que tanto a ti como a mí, como a la mayoría de nosotros, nos toca pagar todos los años la lotería a los premiados y a los que les ha tocado el Gordo de Navidad y a ¡Hacienda somos todos!

Con este aporte se pueden descargar los números de la página oficial, pues desde el fichero .pdf que publican no se permiten copiar los números premiados:

http://www.loteriasyapuestas.es/f/loterias/documentos/Loter%C3%ADa%20Nacional/listas%20de%20premios/SM_LISTAOFICIAL.A2014.S102.pdf

Seguridad-PDF.jpg

La imagen anterior muestra las opciones de seguridad del fichero descargado con la lista completa de los números de la lotería, excepto que la Impresión es de "Alta resolución", y no permite la copia del contenido y ni siquiera está activada la accesibilidad al contenido, por lo que no ayuda a obtener la lista de números en Excel.

Con mi aporte se establece una conexión a la web de Loterías y Apuestas del Estado:

http://www.loteriasyapuestas.es/es/loteria-nacional/tablas-y-alambres?drawId=894109102

Y se consigue un listado de los 10 alambres de cada una de las 10 tablas de extracciones, se generan automáticamente y se pueden consultar todos los números premiados el 22 de diciembre, excepto para los reintegros de la última cifra del "gordo", que se calculan con una fórmula adicional.

Por supuesto que mi plantilla no contiene ninguno de los números de la lotería pues, si así fuera, tendría que pagar royalties al Estado (en español serían regalías) y cada cual es libre de conectar y descargar esos números en la plantilla.

INSTRUCCIONES:

  1. Habilitar el contenido en respuesta a la Advertencia de seguridad: Se han deshabilitado las conexiones de datos
  2. Actualiza la hoja "Alambres" conectando a Loterías con "Conexión Lotería"
  3. Actualizar la hoja "Números" con la tabla dinámica "TablaDinámicaNúmeros"

Link to comment
Share on other sites
  • 11 months later...
pegones1 Contributor

pegones1

Posted
  • Author
Posted

Hola nurdo1,

Ha debido cambiar algo en la web de Loterías del Estado desde el año pasado, por lo que publico una actualización que probaré cuando se haya celebrado el sorteo del próximo 22 de diciembre.

He añadido una mejora para poder introducir hasta 10 números y los importes jugados, que puedes probar con los números del año pasado. Este es su aspecto:

2rc3915.jpg

¡¡¡ Feliz Navidad a todos !!!

LoteríaNavidad_PW1.zip

Link to comment
Share on other sites
pegones1 Contributor

pegones1

Posted
  • Author
Posted
Buenas,

probare y a ver si tenemos suerte...con la loteria porque con tu excel seguro que si

Soy de los que opina que la suerte te tiene que pillar trabajando, parafraseando al genio Picasso, y es lo que me ha pasado con esta plantilla.

Al final he tenido que cambiar el enlace a la lista de premios de la Lotería de Navidad y ajustar un par de alambres y tablas, que estaban algo torcidos, por lo que he decidido subir los cambios a mi blog para ver si lo animo a alcanzar el medio millón de visitas, que ahora mismo va por la número:

Contador%2BVisitas%2BPW1.png

Moderadores del foro sed amables y no me baneeis, ni habléis de mí vanamente, aunque solo sea por mis modestas aportaciones a esta comunidad exceliana.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Go to topic listing

  • 72 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Files

  • Download Statistics

    • Files
      170
    • Comments
      89
    • Reviews
      26

  • Crear macros Excel

  • Posts

    • pinoji
      Eliminar caracteres "extraños" de una hoja.

      By pinoji · Posted

      Buenas noches profesor Antoni y demás miembros del foro. Tanto con la solución suya como la del profesor HDD resuelvo el problema y está es una tercera variante que nunca viene mal, porque todo lo que se aprende no pesa ni estorba Gracias por el enlace, en cuanto tenga el chance lo reviso. Necesito una última petición a ustedes. He tratado de convertir los números en texto a números y no he podido lograrlo. Lo hice con la función Sustituir por si hubiera algunos espacios de más, con el Texto en columna, lo multiplique x 1, le sumé +0, lo trate con un ciclo For Each, creando una variable Celda de tipo Range y un condicional If/End if y nada. Por favor, si fuera tan amables de sugerirme algo que no haya probado. Agradecido como siempre y mis respetos a ustedes. Pino
    • Antoni
      Eliminar caracteres "extraños" de una hoja.

      By Antoni · Posted

      Utilizando la función  WorksheetFunction.Clean se eliminan la mayoría de caracteres no imprimibles.   Eliminar caracteres no imprimibles
    • pinoji
      Eliminar caracteres "extraños" de una hoja.

      By pinoji · Posted

      Buenas tardes reiteradas. Que bien que se sumó el profesor Antoni a la solución. Qué provilegio, JSD y Antoni, no podría estar en mejores manos. Gracias a ambos por su respuestas, pero tengo una duda más. En el caso de Antoni manifiesta que el caracter es el 001 del ASCII, pero pregunto, si fuera otro caracter este códiogo me serviría también o hay que modificarle algo? Mis respetos a todos los miembros del Foro y en especial a Antoni y JSD. Agradecido. Pino
    • JSDJSD
      Eliminar caracteres "extraños" de una hoja.

      By JSDJSD · Posted

    • JSDJSD
      Eliminar caracteres "extraños" de una hoja.

      By JSDJSD · Posted

      Hola Antoni, te adelantaste, bueno dejo lo mismo de otra manera Sub EliminarCaracteres(): Application.ScreenUpdating = False Dim rango As Range Dim datos As Variant Dim i As Long, j As Long With Hoja2 '>>>>> pon la hoja donde quieras trabajar Set rango = .Range("A4:M" & .Cells(.Rows.Count, "A").End(xlUp).Row) datos = rango.Value For i = 1 To UBound(datos, 1) For j = 1 To UBound(datos, 2) datos(i, j) = Application.WorksheetFunction.Clean _ (datos(i, j)) Next j Next i rango.Value = datos End With End Sub  

  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy

  I accept