Jump to content
alebeho

TABLAS PARA BINGO CON NUMEROS DE 1 A 90

Recommended Posts

Buenos días.

Les pido muy repetuosamente, me ayuden a generar unas tablas de bingo donde los numeros vayan de 1 a 90.  Aqui encontré unas pero con números de 1 a 75, y la verdad pues como no manejo excel, craso error, no las pude modificar.

Les pido por favor me colaboren, pues es la única forma que encuentro en este momento de cuarentena, de entretener a mi madre de 88 años, la cual quiere arrancar para la calle.

 

Share this post


Link to post
Share on other sites

Hola @alebeho

Te puedo dar una idea, busca el Archivo que te interesa transformar y si es con Formulas lo cuelgas aquí y si es con Macros pues en la sección de Macros, creo que de esa forma igual  puedes obtener el resultado más rápido.

Lázaro

Share this post


Link to post
Share on other sites

Bueno aquí te dejo una idea, no he realizado yo el Archivo, el Aporte es de  @GabrielRaigosa que se encuentra en este Enlace.

https://ayudaexcel.com/foro/topic/12640-bingo-en-excel/?do=findComment&comment=157025

Yo solo he ampliado los Rangos del Aporte para que llegue a 90 y no estoy totalmente seguro si sigue estrictamente todas la Reglas del Bingo(nunca lo he jugado).

Ya me dirás.

Lázaro

Tablas Bingo.zip

Edited by Lázaro

Share this post


Link to post
Share on other sites

Hola,

La reglas del bingo de 90 bolas es diferente al bingo de 75 bolas. El archivo que compartí en ese tema pasado es para el de 75.

Se podria hacer algo para el de 90, tengo algo adelantado, no algo muy terminado.

En el archivo adjunto estan las reglas y un generador de la tabla, pero no es un generador de muchas tablas.

Para imprimir varias tablas había que repetir el modelo varias veces y copiar las tablas generadas, como enlaces, a la hoja de impresión.

 

 

Bingo 75 y 90 bolas.rar

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Buenos Días: Como programo la macro para que recorra la columna B y si encuentra la fecha de hoy tome la cantidad de la columna pequeña y se la sume a la cantidad de la columna mediana logicamente sobre la misma fila. El resultado deberá ser el nuevo dato de la columna mediana y debera borrar el dato de la cantidad en la columna pequeña PRUEBA.xlsx
    • Buenos días compañer@s, espero que estéis tod@s bien, a ver si me podéis ayudar. He creado una medida que me suman todas las categorías de las ventas [TOTAL_VENTAS], doce campos en total. Con ella he creados dos medidas más: VENTAS_AÑO_ACTUAL=CALCULATE([TOTAL_VENTAS];DATOS_BP[ANYO]=2020) VENTAS_AÑO_ANTERIOR=CALCULATE([TOTAL_VENTAS];DATOS_BP[ANYO]=2019) Hasta ahí todo bien. Mi pregunta es, cómo puedo hacer para que la medida calcule el año en curso y el año anterior sin necesidad de tener que poner 2020 y 2019?. Muchas gracias como siempre Saludos  
    • Así funciona: Sub Crear() Application.ScreenUpdating = False If Trim([C9]) = "" Then MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([E9]) = "" Then MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta" Exit Sub End If If Trim([C11]) = "" Then MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta" Exit Sub End If Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb" .Open End With With Sheets("Registro") Set Rs = New ADODB.Recordset Sql = "SELECT Count(*) FROM pen WHERE [Num Id]='" & .Range("C9") & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Datos = Rs.GetRows If Datos(0, 0) > 0 Then MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "SACI" Else Sql = "INSERT INTO pen ([Num Id], Nombre, Riesgo, [Monto Caso], Moroso, [Nun_Patrono], [Nom_Patrono]) " Sql = Sql & "VALUES ('" & .Range("C9") & "', " & _ "'" & .Range("C11") & "', " & _ "'" & .Range("E9") & "', " & _ "'" & .Range("G9") & "', " & _ "'" & .Range("G11") & "', " & _ "'" & .Range("C13") & "', " & _ "'" & .Range("E13") & "' )" MsgBox "Datos actualizados con Exito!!!", vbInformation, "SACI" A_ingesarDatos = True End If End With Cnn.Execute (Sql) Cnn.Close Set Cnn = Nothing End Sub  
    • Hola buenas a todos, me presento como nuevo usuario, saludos a todos !!
    • Hacer eso con "una formula" se puede con Office 365. Si no tiene Office 365 el adjunto que le comparto NO le va a servir y deberá esperar alguna otra propuesta.   Filtrar con función.xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy