Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Max2005


  1. Hola @biostec

    Usa la siguiente macro y comenta si es lo que necesitas 

    Public Sub DesplazaDato()
    
        uF = Range("A2", Range("A1048576").End(xlUp)).Rows.Count
    
        For X = 2 To uF
            If Cells(X, "A") <> Cells(X + 1, "A") Then 'AQUI PEGA EL CALL DE TU OTRA MACRO
        DoEvents
        Next
        
    End Sub

    NOTA IMPORTANTE : Pon una cabecero a tu serie de datos, porque estoy leyendo desde la celda A2

    Mucha Suerte !!!

    Saludos


  2. Hola Amigo @DiegoRuiz8

    Estuve analizando esta petición, pero creo que no lo necesitas, puesto que cuando inicias un nuevo campeonato tus únicos datos son los participantes, sin datos en tus tablas los participante queda como los vayas poniendo, para la tabla de mejores clasificado ya que con las formulas que te puso @Gerson Pineda, tu tabla se convierte en interactiva, no vería conveniente que dejaras de ver como se va moviendo los mejores clasificados después de cada ronda y como van quedando a cuartos de final.

    Es mi opinión

    Saludos !!!


  3. Hola Nuevamente,

    Bien modifique lo que te había planteado a un principio aunque ahora con la explicación que nos envías, me surge una duda, sobre el archivo, en los cuartos de final entre P3 Vs P6 a las semifinales en tu ejemplo se envia a P3 y debería ser P6, y entendiendo bien tu solicitud debería quedar así:

    P1 Fernando Ortiz

    P2 Luis Perez

    P3 Oscar Arancibia  y

    P4 Jorge Contreras 

    Revisa el adjunto las formulas que puse no tienen nada que ver con las anteriores, puedes modificar en tus columnas de Cuartos de final, semi-final y Final, columna "C", "H" y "M" respectivamente para que veas el resultado, Importante es una alternativa a tu solicitud.

    Mucha Suerte !!!

    Saludos 

    Proyecto_Avanzado_Max.zip


  4. Hola a Todos,

    De acuerdo a lo que yo entiendo de tu pregunta, coloca la siguiente formula en el promedio

    =SI(PROMEDIO(B2:B7)-ENTERO(PROMEDIO(B2:B7))=0.5,PROMEDIO(B2:B7), SI(PROMEDIO(B2:B7)-ENTERO(PROMEDIO(B2:B7))<0.5,ENTERO(PROMEDIO(B2:B7)),REDONDEAR(PROMEDIO(B2:B7),0)))

    Mucha Suerte !!!

    Saludos 


  5. Hola @bigboss

    En 3/6/2016 at 10:18 , bigboss dijo:

    Te cuento brevemente, que no me he explicado nada bien

    1. columna DATE IN ACCT
    • Si hay mas de tres dias de diferencia con la columna received date,  DAte in acct se ponga en verde.
    • Si hay mas de tres dias de diferencia, que se ponga en rojo

     Si la diferencia entre Date of sending to site y date of receiving from site es menor o igual a 6 dias,  verde en la columna date of receiving from site-

    si la diferencia entre estas, es de entre 6 y 9 dias (mas de seis) , que se ponga amarilla la columna date of receiving from site 

    si la diferencia es igual o mayor a 10 dias, que se ponga en rojo (date of receiving from site)

    Es un poco confusa tu explicación, trate de entender tu solicitud, espero que sea lo que necesitas, solo esta para las fechas y NO para el Signature Status, por favor revisalo y comentas

    El Archivo debe de funcionar al abrirlo, tome la base de propuesta que te envío nuestro compañero @elunico22, seguramente te pedirá habilitar Macros, las debes de habilitar para que funcione.

    Mucha Suerte !!!

    Saludos 

    SUB.FOLLOWING LIST_Max.xlsm.zip


  6. Hola @venenqn,

    Me gustaría ayudarte con tu primera solicitud pero no esta tu archivo, la ayuda sería mas fácil así, de cualquier forma intenta lo siguiente:

    Sheets("Pendiente").Range("A:Z").Copy

    Sheets("Origen").Range("A:Z").PasteSpecial xlPasteFormats

    NOTA IMPORTANTE:

    Para tu segunda pregunta, necesita abrir un tema nuevo en el lugar adecuado

    Mucha Suerte !!!

    Saludos 

     


  7. Hola @ssanceb

    He revisado tu Macro y realice una modificación, ¿podrías revisar e indicar si ya esta funcionando?

    Sub Firmas()
    
    '******************** DEFINIR VARIABLES
    
    Dim LIBRO As Object
    Dim HOJA As Object
    Dim IMPRESION As Object
    Dim PRINCIPAL As Object
    Dim PROFESORADO As Object
    
    Dim HORARIO As Object
    Dim HOJA_HORARIO As Object
    
    
    Dim k As Integer
    Dim c As Integer
    Dim DIA As Integer
     
    'DIM mArg(0) As New
    
    Set LIBRO = ThisWorkbook
    Set HOJA = LIBRO.Sheets("HOJA")
    Set IMPRESION = LIBRO.Sheets("IMPRESIÓN")
    Set PROFESORADO = LIBRO.Sheets("PROFESORADO")
    
    '***********************Borrado de celdas
    
    HOJA.Range("C8:K80").ClearContents
    
    
    '***********************Número de día
    
    If ActiveSheet.Range("M9").Value = "LUNES" Then DIA = 1
    If ActiveSheet.Range("M9").Value = "MARTES" Then DIA = 2
    If ActiveSheet.Range("M9").Value = "MIÉRCOLES" Then DIA = 3
    If ActiveSheet.Range("M9").Value = "JUEVES" Then DIA = 4
    If ActiveSheet.Range("M9").Value = "VIERNES" Then DIA = 5
    
    '***********************ABRIR HORARIOS
    
    c = PROFESORADO.Range("C5").Value
    
    
    For k = 1 To c
    
    
    Set ruta = LIBRO.Path
    
    Set Rutalocal = ruta & "\" & PROFESORADO.Range(k + 7, 3).Value & ".xls*"
    
    
    Set HORARIO = Workbooks.Open(Rutalocal)
    Set HOJA_HORARIO = HORARIO.Worksheets("Hoja1")
    
    
    For i = 1 To 8
    
    If HOJA_HORARIO.Range(i, DIA).String = 1 Then
    HOJA.Range(6 + k, 1 + i).String = "X"
    
    Else
    HOJA.Range(6 + k, 1 + i).String = ""
    
    End If
    
    Next
    
    HORARIO.Close
    
    Next
    
    MsgBox ("TERMINADO")
    
    
    End Sub

    Mucha Suerte !!!

    Saludos 

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png