Saltar al contenido

Excelente Honduras.


joshua

Recommended Posts

publicado

Felicidades Al Equipaso Catracho.

En lo personal me facina el futbol y mucho más cuando veo a aqueos equipos que tienen todo en contra y sacan la garra y pundonor por defender una camisola.

Imagino que El Master Gerson Hoy dormira con la ilución de un Mundial.

Un abrazo.

publicado
  "joshua dijo:
Felicidades Al Equipaso Catracho.

En lo personal me facina el futbol y mucho más cuando veo a aqueos equipos que tienen todo en contra y sacan la garra y pundonor por defender una camisola.

Imagino que El Master Gerson Hoy dormira con la ilución de un Mundial.

Un abrazo.

Mi estimado "joshua" gracias por esas palabras... se siente bonito, ganar y no digamos de visita en un estadio donde solo Costa Rica habia ganado, ahora logramos el Aztecazo que muchos no creian! pero si se pudo!

Esperamos que sea el repunte para Brasil 2014

Saludos

publicado
  "Victorro dijo:
Saludos Gerson. Honduras desnudó a México (que ya andaba en paños menores!!). Ahí vamos otra vez, estimado amigo!!

Tu gran COLOMBIA nos ilusiona tambien, le han ganado a una gran selecciona ECUADOR dirigida por el maestro RUEDA (ex DT de HONDURAS)

Ahora la eliminatoria se nos puso mas interesante... pues MEXICO es grande y no dejara escapar a BRASIL 214 pero debe mostrar otra cara para conseguirlo! sera complicado le toca visitar a USA que viene de perder de a 3 contra COSTA RICA

Saludos cordiales!

publicado

Bueno desde Costa Rica felicito a Honduras por su gane ahora son 2 astecazos y de 2 países hermanos como son Honduras y Costa Rica....

Y bueno yo aquí celebrando el gane de mi selección nacional que tuve la oportunidad de ver en vivo y a todo color, VIVA mi amada Costa Rica y ahora a ganarle a Jamaica y a por el boleto a Brasil 2014...

publicado

Saludos.

No se si Honduras desnudo a Mexico, lo que si se decir es que el panico esenico hiso presa a Honduras en los primeros treinta minutos que pudieron haber sido fatales para la H, no nos equivoquemos con Mexico el nivel de su futbol es superior a los de la mayoria de la region, el problema que yo veo en Mexico es la actitud porque jugadores talentosos los tiene, el problema que hemos tenido siempre al enfrentar a Mexico es el pensar que no se le puede ganar, claro que si se le puede ganar si vemos el planteamiento del entrenador de la H al inicio era el de defenderse tirar zapatasos y ver que pasaba arriba, lo que yo nunca voy a entender es porque esperar a que Mexico haga daño para reaccionar y atacarlo, me pregunto que hubiera pasado si la H hubiera entrado con el planteamiento y la mentalidad del segundo tiempo, lo que yo e observado atravez del tiempo en diferentes enfrentamientos con Mexico es que se ve sorprendido cuando se le ataca y se le juega sin temor, ahora solo espero que la H no peque de confiado y se descuide en los demas encuentros, biene a mi mente el que para mi gusto a sido el mejor entrenador que Guatemala a tenido Carlos Cavagnaro y su frase de "al rival a la yugular sin soltar".

publicado
  "joshua dijo:
Saludos.

No se si Honduras desnudo a Mexico, lo que si se decir es que el panico esenico hiso presa a Honduras en los primeros treinta minutos que pudieron haber sido fatales para la H, no nos equivoquemos con Mexico el nivel de su futbol es superior a los de la mayoria de la region, el problema que yo veo en Mexico es la actitud porque jugadores talentosos los tiene, el problema que hemos tenido siempre al enfrentar a Mexico es el pensar que no se le puede ganar, claro que si se le puede ganar si vemos el planteamiento del entrenador de la H al inicio era el de defenderse tirar zapatasos y ver que pasaba arriba, lo que yo nunca voy a entender es porque esperar a que Mexico haga daño para reaccionar y atacarlo, me pregunto que hubiera pasado si la H hubiera entrado con el planteamiento y la mentalidad del segundo tiempo, lo que yo e observado atravez del tiempo en diferentes enfrentamientos con Mexico es que se ve sorprendido cuando se le ataca y se le juega sin temor, ahora solo espero que la H no peque de confiado y se descuide en los demas encuentros, biene a mi mente el que para mi gusto a sido el mejor entrenador que Guatemala a tenido Carlos Cavagnaro y su frase de "al rival a la yugular sin soltar".

Sin duda comparto completamente este comentario estimado "joshua!"

Riddle me gusta Costa Rica contra ustedes sera un partido decisivo! y a lo mejor mas para la "H", porque es muy probable que ustedes ya esten clasificados

Saludos

publicado

Cuando dije que Honduras desnudó a México no quise iniciar una polémica sobre sus virtudes futbolísticas pero sí quise manifestar mi decepción por su pasado más reciente. No solo las eliminatorias sino también sus últimos campeonatos mundiales. Algo pasa con los técnicos, especialmente con aquellos que parecen basar su estrategia en "no perder en casa y, máximo, empatar de visitante -el mínimo es que no los goleen-". Matan el fútbol. Pienso en la experiencia colombiana con Pekerman: con los mismos jugadores decidió jugar a ganar. Y los resultados se ven. Ecuador pudo ganarle a Colombia, pero sus jugadores parecían imbuídos de la misma mentalidad conservadora, esa que llaman "sacar un resultado" y que consiste, simplemente, en conformarse con un trsite y melancólico empate.... que casi siempre conduce a la derrota.... Celebremos el fútbol, celebremos el comportamiento de técnicos y jugadores que respetan al aficionado....

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

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

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


      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Raised 0.00 EUR of 130.00 EUR target
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.