Saltar al contenido

bigpetroman

Miembros
  • Contador de contenido

    2061
  • Unido

  • Última visita

  • Days Won

    78

4Seguidores

Sobre bigpetroman

  • Rango
    Miembro

Configuraciones

  • Campo que utilizas como separador de argumentos ;

Visitantes recientes del perfil

1257 visitas de perfil
  1. AÑADIR UNA CONDICION

    Bueno, es logico, si colocas 0 apenas pierda una ya lo elimina, de todas formas dejame revisar y te comento, seria colocar la opcion de activivar o no el reenganche suerte
  2. AÑADIR UNA CONDICION

    @PATILARGO, le agregue lo del recalculo automático que solicitaste en otro post, suerte reenganche.rar
  3. Lo que quieres es que se realice el sorteo siempre que existan parejas que ya se hayan enfrentado?, se puede hacer pero hay que colocarle un limite, ya que las utlimas rondas pues es muy probable que NO exista una combinación donde NO hayan parejas sin enfrentarse, y la macro entraría en un bucle infinito. lo reviso y te contesto en el otro tema, ya que es el mismo archivo
  4. AÑADIR UNA CONDICION

    Saludos @PATILARGO, te anexo el archivo con el cambio, para hacerlo más facil agregue una columna al final de la tabla, que sirve para llevar el control del reenganche, para no complicar mas aún la formula que ya de por si es complicada jejjeje. revisa y cualquier cosa me avisas reenganche.rar
  5. AÑADIR UNA CONDICION

    Saludos, amigo estoy revisando el archivo y este es diferente al último que yo le realice los cambios, donde la pareja si ganaba cierta cantidad de partidas clasificaba directamente; imaginate el tiempo dedicado y que al final se deseche?, tambien va a pasar con este cambio?
  6. Buenos días/tardes bigpetroman.

    Hace un par de años me hiciste un programación de agenda alucinante. Te paso el link:

     

    En estos años han aparecido algunas modificaciones y no sé si podrías echarme una mano. Te lo he puesto en privado porque realmente fuiste tú quien lo desarrolló. Si consideras que lo haga en público me lo dices y lo publico.

    Quería preguntarte si la función del tiempo (que actualmente podíamos escoger el tiempo (minutos de duración reunión) y éste se aplicaba a todos los proveedores), quería saber si cabía la posibilidad de poner distintos franjas de minutos para las reuniones. Es decir, hay reuniones que son de 5 minutos, otros proveedores son 10, no sé si ponerlo en la hoja primera de libro Excel, o si en la segunda hoja habría la posibilidad de poder asignar los minutos que quieres de la duración y que calculase automáticamente.

    Perdona..., no sé si me estoy explicando y si lo hago, tampoco sé si estoy abusando.

    Muchísimas gracias, sólo por estar leyéndome.

    Saludos.

    Rochada.

    PRUEBA REUNIONES (3).zip

    1. Mostrar comentarios previos  %s más
    2. bigpetroman

      bigpetroman

      ok, lo que sucede es que borre mi disco duro de información y estoy full aun recuperando datos, pero estoy pendiente para revisarlo

       

    3. bigpetroman

      bigpetroman

      Amigo, la duración estaría sujeta a que?,  al proveedor o al cliente, o seria variable?, es decir, el mismo cliente podria tener varias reuniones de diferentes duraciones, y un mismo proveedor podria tener los clientes con diferentes duraciones?, espero tu repuesta para ver si se logra hacer algo, cualqueir cosa me escribes a mi correo personal [email protected]

       

    4. rochada

      rochada

      Efectivamente Bigpetroman.

      Tal cual lo has expuesto.

      Tanto el cliente como el proveedor podrían tener diferentes reuniones de diferentes duraciones, por lo tanto sería variable.

      Te escribo por aquí, y te mando también este mismo mensaje al correo que me has indicado.

      Muchas gracias.

      Saludos.

  7. Gráfica Autoajustable

    Saludos @pistacho, revisa el anexo, espero que te sea util Cascada.xlsx
  8. Saludos @Haplox, amigo @lavex prueba con la siguiente macro Sub CompletarPDF() Dim rCelda As Range Dim rDatos As Range Set rDatos = Worksheets("Hoja1").Range("B3:Y3") Application.DisplayAlerts = False Application.ScreenUpdating = False ruta = "C:\usuario\etc\" nomb = "Formulario" ActiveWorkbook.FollowHyperlink ruta & nomb & ".pdf" Application.Wait Now + TimeValue("00:00:03") For Each rCelda In rDatos DoEvents SendKeys "{TAB}", True DoEvents 'si es check o es un texto, la procesamos If rCelda.Value <> "nocheck" Then If rCelda.Value = "check" Then SendKeys "{ENTER}", True DoEvents Else If rCelda.Value <> "" Then rCelda.Copy DoEvents SendKeys "^v", True DoEvents End If End If End If Next Application.ScreenUpdating = True Set rDatos = Nothing End Sub dos cosas importantes: 1.- En tu archivo faltan dos columnas en el cuadro CONTACTO PARA CONSULTAS RELACIONADAS CON (Correo Electronico y Número de Teléfono), la idea es que el archivo contenga TODAS los campos del formulario ya que al saltarse alguno pues de seguro va a generar algun error 2.- Es importante que unifiques todo, para los campos chekbox debes indicar check o nocheck, y no colocar otra cosa como "NO" que tenias en el campo telefono ya que la macro valida son esas dos palabras check o nocheck, para realizar un check o copiar un valor Ya lo demas sería cuestion de adaptarla para que procese todas las lineas de una vez suerte
  9. Memorama en VBA

    Excelente @Antoni, muy bueno, lo probe y sin problemas +1
  10. Macro que se ha vuelto lenta

    @Jose BN, muchas veces con solo Application.ScreenUpdating = False no es suficiente, se recomienda colocar tambien al inicio de la macro Application.EnableEvents = False Application.Calculation = xlCalculationManual y al final de la macro, estas Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic eso hace que tu archivo NO recalcule las formulas cada vez que modificas una celda, que de seguro eso es lo que hace lento tu proceso suerte
  11. Programador mensual

    Saludos @Chrispal1977, revisa el anexo, creo que con esto ya puedes seguir, se agregaron los 12 meses, para cambiar el año a las hojas prsionas el botón Actualizar Año y se actualizan los calendarios automáticamente. espero que te sea de ayuda, trate de dejarlo entendible para que le realices los cambios que necesites Planificador Mensual.rar
  12. Programador mensual

    Saludos @Chrispal1977, estoy viendo tu archivo y de verdad que se pierde uno, me parece un exceso de codigo, tratare de verlo mas a fondo para no cambiar mucho pero hacer que te funcione para todo el año por ahora te deje este archivo que yo realice hace tiempo, tal vez te interese https://ayudaexcel.com/foro/topic/22792-calendario-para-anotaciones/?tab=comments#comment-130057 suerte
  13. optimizar tiempo de macros

    Saludos, @Gerson Pineda exacto, esa linea era con las pruebas, no es necesario, y lo que indicas es cierto, un solo bloque y listo, no se porque quiere dejar esas lineas vacias, pero bueno.
  14. optimizar tiempo de macros

    Saludos @Gerson Pineda, amigo @isidrod, te dejo la macro del amigo Gerson con una minima modificacion para que no tengas problemas Sub HojasAdmon_GP() '************ by Gerson Pineda ************ Application.ScreenUpdating = False Dim vrsum As Range: Dim vrs As String: Dim vrc1 As Range: Dim vr1 As String Dim vrc2 As Range: Dim vr2 As String: Dim vrc3 As Range: Dim vr3 As String Dim vrc4 As Range: Dim vr4 As String: Dim v1 As String: Dim v2 As String Dim v3 As String: Dim v4 As String: Dim vl As Workbook: Dim vlh As Worksheet Dim vch As Range Set vl = Workbooks("TABLASAP.xlsx"): Set vlh = vl.Sheets("TABLASAP") Set vrsum = vlh.Range("F:F"): vrs = vrsum.Address(, , , 1) Set vrc1 = vlh.Range("G:G"): vr1 = vrc1.Address(, , , 1): v1 = "F$9" Set vrc2 = vlh.Range("B:B"): vr2 = vrc2.Address(, , , 1): v2 = "F$8" Set vrc3 = vlh.Range("D:D"): vr3 = vrc3.Address(, , , 1) Set vrc4 = vlh.Range("C:C"): vr4 = vrc4.Address(, , , 1): v4 = "$A$8" vti = VBA.Timer For Each vch In Hoja1.Range("A2", Hoja1.Range("A2").End(xlDown)) Worksheets(vch.Value).Select With Worksheets(vch.Value) With .Range("F26:AC29") v3 = "$AF26" .Formula = "=ABS(SUMIFS( " & vrs & " , " & vr1 & " , " & v1 & " , " _ & vr2 & " , " & v2 & " , " & vr3 & " , " & v3 & " , " & vr4 & " , " & v4 & " ))" .Value = .Value End With With .Range("F31:AC32") v3 = "$AF31" .Formula = "=ABS(SUMIFS( " & vrs & " , " & vr1 & " , " & v1 & " , " _ & vr2 & " , " & v2 & " , " & vr3 & " , " & v3 & " , " & vr4 & " , " & v4 & " ))" .Value = .Value End With With .Range("F35:AC38") v3 = "$AF35" .Formula = "=ABS(SUMIFS( " & vrs & " , " & vr1 & " , " & v1 & " , " _ & vr2 & " , " & v2 & " , " & vr3 & " , " & v3 & " , " & vr4 & " , " & v4 & " ))" .Value = .Value End With With .Range("F53:AC54") v3 = "$AF53" .Formula = "=ABS(SUMIFS( " & vrs & " , " & vr1 & " , " & v1 & " , " _ & vr2 & " , " & v2 & " , " & vr3 & " , " & v3 & " , " & vr4 & " , " & v4 & " ))" .Value = .Value End With With .Range("F58:AC58") v3 = "$AF58" .Formula = "=ABS(SUMIFS( " & vrs & " , " & vr1 & " , " & v1 & " , " _ & vr2 & " , " & v2 & " , " & vr3 & " , " & v3 & " , " & vr4 & " , " & v4 & " ))" .Value = .Value End With End With Next vtf = VBA.Timer - vti Set vrsum = Nothing: Set vrc1 = Nothing: Set vrc2 = Nothing: Set vrc3 = Nothing: Set vrc4 = Nothing: Set vl = Nothing: Set vlh = Nothing Application.ScreenUpdating = True VBA.MsgBox VBA.Format(vtf, "0.0000 Seg") End Sub El problema era con la variable v3 que estaba fija para todos los rangos de celdas, y esa cambia con cada rango, eso es todo Suerte
×