Quiniela de futbol mundial brasil 2014 --- participa ---

Posted February 23, 201411 yr

BIENVENIDOS

QUINIELA NO OFICIAL DE AYUDA EXCEL MUNDIAL DE FUTBOL BRASIL 2014

La idea es competir sanamente, NO hay ningún premio más que la satisfacción de competir y lograr quedar en el primer lugar del ranking.

Como participar:

Debes llenar tu planilla de pronosticos para todos los juegos del mundial (abajo estan los links para descargar el manual y el archivo)
Dejar un nuevo mensaje con los datos, puede ser un archivo excel o datos en formato texto (eso está explicado en el manual)
Esperar que inicie el mundial y seguir con entusiasmo esta Quiniela

Información Importante:

En el manual está explicado todo lo necesario para participar en la quiniela
Los puntos a entregar por partido son como se indica en el siguiente cuadro

La clasificación de los participantes será por el total de puntos obtenidos a medida que avance el mundial.
Máximo 2 quinielas por participante (para evitar que alguien se pase de vivo y haga 32 quinielas para asegurar que va a adivinar el equipo campeon jejejejeje)
Se aceptaran quinielas hasta el día 11 de Junio del 2014 (un día antes del inicio del Mundial)
Antes del inicio del mundial subire un archivo con los pronosticos de todos los participantes, por si alguien quiere comprobar los resultados.
Luego de cada jornada subire una tabla actualizada con la clasificación hasta esa fecha

Por ahora, esto es todo, cualquier duda o sugerencia, bienvenida sea

Aquí estan los links

Manual en PDF de como participar:

https://dl.dropboxusercontent.com/u/95990264/Como participar en la Quiniela.pdf

Archivo en Excel para participar en la quiniela:

https://dl.dropboxusercontent.com/u/95990264/Mundial de Futbol Brasil 2014 - Fixture,Quiniela.zip

Replies 114
Views 30.1k
Created 11 yr11 yr
Last Reply 11 yr11 yr

June 28, 201411 yr

big estas desaparecido, todo bien?

June 28, 201411 yr

Author

Todo bien gracias, ayer deje un mensaje con la tabla actualizada, que extraño, voy a ver si puedo actualizarla

June 28, 201411 yr

Author

esta es la tabla actualizada hasta los últimos juegos de la ronda de grupos

June 30, 201411 yr

Author

tabla actualizada con los resultados del sábado y Domingo

July 1, 201411 yr

Author

Tabla actualizada con los resultados de ayer:

Octavos

Francia 2

Nigeria 0

Alemania 2

Argelia 1

July 2, 201411 yr

Author

Tabla actualizada con los datos de ayer:

Argentina 1

Suiza 0

Bélgica 2

EE. UU. 1

July 5, 201411 yr

Author

Buenas, dejo la tabla actualizada luego de finalizado los cuartos de final.

Resultados de cuartos de Final:

Cuartos

AYER:

Francia 0

Alemania 1

Brasil 2

Colombia 1

HOY:

Argentina 1

Bélgica 0

Holanda 0 (4)

Costa Rica 0 (3)

July 8, 201411 yr

Saludos, acabo de llenar el archivo resumen con el 7-1 de alemania, pero al llenar la otra semifinal toda la tabla de posiciones se hace #N/A, ojala se pueda solucionar el problema. Saludos

July 9, 201411 yr

Author

amigo, este no es el tema, busca el tema correcto en el foro de aportes, y en los últimos mensajes está la solución, suerte

July 10, 201411 yr

Author

dejo la tabla de posiciones luego de finalizadas las semifinales, esperando ahora por la gran final del domingo

ARGENTINA-ALEMANIA

Resultados SemiFinales

Semifinales Martes

Brasil 1

Alemania 7

Semifinales Miercoles

Holanda 0 (2)

Argentina 0 (4)

July 13, 201411 yr

Author

ALEMANIA - CAMPEON DEL MUNDO

Anexo tabla de posiciones final, felicidades a @[uSER=174427]Dixon[/uSER] quien quedo en el primer lugar de la Quiniela Mundialista...

esperemos que para la próxima oportunidad hayan mas participantes, gracias a todos los que participaron.....

July 13, 201411 yr

Graciaaaas! @[uSER=133908]bigpetroman[/uSER] y Felicitaciones a ti por tan excelente trabajo y también gracias por tu ayuda para q todos nosotros, novatos del Excel pudiésemos disfrutar de este mundial con nuestras quinielas. Espero q nos ayudes para la Copa America con otro archivo tan espectacular como este. Saludos!

July 13, 201411 yr

Author

Graciaaaas! @[uSER=133908]bigpetroman[/uSER] y Felicitaciones a ti por tan excelente trabajo y también gracias por tu ayuda para q todos nosotros, novatos del Excel pudiésemos disfrutar de este mundial con nuestras quinielas. Espero q nos ayudes para la Copa America con otro archivo tan espectacular como este. Saludos!

Seguro que si, pronto me pondre a trabajar en la nueva version...., hasta la copa america entonces

July 14, 201411 yr

ALEMANIA - CAMPEON DEL MUNDO

Anexo tabla de posiciones final, felicidades a @[uSER=174427]Dixon[/uSER] quien quedo en el primer lugar de la Quiniela Mundialista...

esperemos que para la próxima oportunidad hayan mas participantes, gracias a todos los que participaron.....

Felicidades a los campeones (Alemania y @[uSER=174427]Dixon[/uSER]). Y un cuarto lugar para mi no estuvo tan mal . Saludos a todos y gracias @[uSER=133908]bigpetroman[/uSER]!!!

Archived

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

Go to topic listing

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

194 Files
100 Comments
30 Reviews
Latest file by pegones1

Nuevo mapa de municipios españoles
- 2

Crear un loop para emitir recibos

Hola! como estás? ante todo muchas gracias por tu aporte.
Te comento, hice la prueba pero tengo dos cuestiones. La macro original normalmente guarda una copia del recibo emitido en una carpeta de la pc y tambien envía una copia por correo.

Ahora bien, la macro funciona porque los recibos se me han guardado en la carpeta de la pc, pero uno de los problemas que tengo es que ahora no los envía por correo. Por otro lado, faltaría hacer que la nueva macro vaya reemplazando el contenido de la celda P17 con el codigo del inmueble que está imprimiendo de la lista, ya que, de lo contrario, siempre se imprime el mismo recibo.
Agradezco mucho si me podés ayudar a solucionar esas dos cuestiones

By Corvette · Friday at 09:07 PM3 days
Crear un loop para emitir recibos

Prueba y comenta
ALQUILERES L - para POL.xlsm

By JSDJSD · Friday at 09:05 AM3 days
Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Muchas gracias JSDJSD, por la respuesta y por tomarse el tiempo de colaborarme.
Con ello doy por cerrado el tema
Un cordial saludo,
Dorge

By dorgelis · Thursday at 08:32 PM4 days
Crear un loop para emitir recibos

Buenas tardes! Como están?
Les comento, tengo una planilla que utilizo para emitir recibos de pago de las propiedades de las que administro el alquiler en mi inmobiliaria. Actualmente la planilla funciona bien, pero cuando tengo que imprimir los recibos, tengo que ir haciéndolos de a uno y me resultaría más practico escribir una lista de las propiedades de las que ya estoy en condiciones de realizar los recibos y que la macro se vaya repitiendo hasta que haya emitido todos los recibos (ya que la macro es bastante lenta y tengo que esperar unos 10 segundos entre recibo y recibo y son como 120 los que tengo que hacer)
Actualmente el recibo se completa cambiando el valor de una celda (que es el que identifica a cada inmueble), por lo que entiendo que lo unico que tendría que hacer el loop, es imprimir el primer recibo, copiar de una lista el número de identificacion de la siguiente propiedad de la lista, copiarlo en la celda que completa el recibo, volver a ejecutar la macro para generar el siguiente recibo y así sucesivamente hasta finalizar toda la lista. Eventualmente estaría bueno que aparezca un aviso cuando ya haya finalizado de emitir todos los recibos.
Adjunto el archivo en donde dejé indicado donde pondría la lista de codigos de propiedad a emitir, el boton que ejecuta las macros y cual es la celda que la macro iría modificando para completar los recibos con los datos de cada uno de los inmuebles a imprimir
La hojas se desbloquean con la clave 4324 o con el boton rojo que hay en las mismas (cada vez que se ejecuta la macro se vuelve a bloquear)
Desde ya les agradezco la ayuda!
Anexo:
La macro individual actual es la siguiente (en la planilla se ejecuta con un boton amarillo que está en la hoja consultas).

Sub Imagen13_Haga_clic_en()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect "4324"
With Range("H7:R34")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Activate
.Chart.Paste
.Chart.Export "C:\Users\Usuario\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & Format(Range("q20"), "mmmYY") & " - " & Range("Q9") & " - " & Range("P17") & " - " & Range("K19") & ".JPG"
.Delete
End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ (desactivé esto para que no imprima en papel)
'IgnorePrintAreas:=False
Range("AH6").Select
Selection.Copy
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("Y7:AI33").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("a4").Select
ActiveSheet.Protect "4324"
ActiveWorkbook.Save
Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "nqn.negocios@gmail.com"
Clave_correo_origen = "wkfhaapcnjljbwju"
correo_destino = Range("ak27").Value
Asunto = Range("ak28")
Mensaje = Range("ak29")
'correo_copia = "envioacorreocopia@gmail.com"
'correo_copia_oculta = "enviocopiaoculta@gmail.com"
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = correo_destino
.From = correo_origen
.Subject = Asunto
.TextBody = Mensaje
.Configuration.Fields.Update

If (Trim(correo_copia) = "") Then
.CC = correo_copia
End If
.AddAttachment (Range("ak30").Value)

On Error Resume Next
.Send
End With
End Sub
Sub powerbuttonINQ()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect "4324"
With Range("H7:R33")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Activate
.Chart.Paste
.Chart.Export "C:\Users\Usuario\Google Drive\LOCACIONES\REC. INQUILINOS\" & Format(Range("q20"), "mmmYY") & " - " & Range("Q9") & " - " & Range("P17") & " - " & Range("J17") & ".JPG"
.Delete
End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
'IgnorePrintAreas:=False
Range("AH6").Select
Selection.Copy
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("Y7:AI33").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("a4").Select
ActiveSheet.Protect "4324"
ActiveWorkbook.Save
Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "nqn.negocios@gmail.com"
Clave_correo_origen = "wkfhaapcnjljbwju"
correo_destino = Range("ak27").Value
Asunto = Range("ak28")
Mensaje = Range("ak29")
'correo_copia = "envioacorreocopia@gmail.com"
'correo_copia_oculta = "enviocopiaoculta@gmail.com"
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = correo_destino
.From = correo_origen
.Subject = Asunto
.TextBody = Mensaje
.Configuration.Fields.Update

If (Trim(correo_copia) = "") Then
.CC = correo_copia
End If
.AddAttachment (Range("ak30").Value)

On Error Resume Next
.Send
End With
End Sub

ALQUILERES L - para POL.xlsm

By Corvette · Posted Thursday at 06:47 PM4 days
Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Prueba y comenta
CODIGO DE CELDA NO TRASLADA EL VALOR DESEADO EN ARCHIVO AYUDA EXCEL.xlsm

By JSDJSD · Thursday at 05:47 PM4 days

No registered users viewing this page.

Sign In

Quiniela de futbol mundial brasil 2014 --- participa ---

Featured Replies

Archived

Files

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Download Statistics

Posts

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Crear un loop para emitir recibos

Corregir error en código VBA (valores de “A pagar” y “Saldo” no se copian correctamente)

Recently Browsing 0

Account

Navigation

Search

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)