Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Max2005

  1. Un Gusto haber ayudado Saludos !!! @ubimur ¿Se puede dar por cerrado el tema?
  2. Hola @ubimur, Ya corregí el archivo, por favor prueba nuevamente, adicione hojas por todos los meses y ejecute la macro para verificarla, por favor revisa y comenta si es lo que necesitas Saludos !!! Mucha Suerte datos_Max1.zip
  3. Hola @ubimur, te dejo una propuesta, anexe la macro en el modulo para que la revises Espero sea lo que necesitas Saludos Mucha Suerte datos_Max.zip
  4. Hola @xafel, no me queda muy claro tu planteamiento y tampoco creo que estés usando correctamente el "Select Case", pues por lo que veo te faltaría anexar antes de Case "1" Select Case mes, pues no lo veo en el código que anexas. Saludos !!!
  5. Hola @Darafu, Intenta Cambiando los siguiente: Cambia de CInt a CDbl Ejemplo: strDescripcion = .VLookup(CDbl Comentas, si es lo que necesitas Saludos Mucha Suerte !!!
  6. Hola @Brian Velez, Buen día, mejor comparte tu archivo para ver el error , en la imagen no se alcanza a ver toda la formula. Saludos !!!
  7. 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
  8. 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 !!!
  9. Hola Diego Un aporte más antes de que cierres el tema, de acuerdo a tu ultima solicitud, y como te comenta Gerson en Excel hay muchas posibilidades de obtener con un poco de imaginación lo que necesitas Saludos @Mauricio_ODN buenos aportes Amigo y verdaderamente el gusto es mio mi estimado @Gerson Pineda Proyecto_Avanzado_Max.zip
  10. 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
  11. Hola Andrea, Nos compartes tu archivo donde quieres usar el BUSCARV para poder ayudarte Saludos !!!
  12. Hola Amigos, Estimado @DiegoRuiz8, Revisa el adjunto y comenta si es los que necesitas y nos comentas Mucha Suerte !!! Saludos Proyecto_Avanzado_Max.zip
  13. Hola @nemodigital, Ya revise tu hoja y no encuentro error alguno, lo que puede estar pasando es que no estés habilitando las macros al abrir tu libro, tienes una macro que genera el indice de acuerdo a las hojas de tu libro y si no las habilitas jamas te creara los links de cada hoja. Inténtalo nuevamente y comenta Mucha Suerte !!! Saludos
  14. 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
  15. Hola @bigboss 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
  16. Hola @aaquino, Espero haberte entendido, Revisa el adjunto y nos compartes tu respuesta Mucha Suerte !!! Saludos muesetra_Max.zip
  17. 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
  18. Hola @Hugo resendiz, No es necesario que subas 2 veces tu pregunta, es mejor que subas tu archivo para que podamos ayudarte. Saludos !!!
  19. Hola @Juan M., Te anexo 2 ejemplos de como puedes hacerlo, ya que no subiste un archivo, es difícil saber cual te pudiera servir, pero espero que uno de estos te sea de utilidad. Mucha Suerte Saludos !!! Extraer Datos TXT.zip
  20. 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
  21. Hola Silvia Felicitaciones Un poco atrasado pero MUCHAS FELICIDADES !!!
  22. Hola Nuevamente [uSER=196809]@Eviky[/uSER], Realiza lo siguiente: Copia tu hoja "solicitud" a otra nueva hoja y elimina la anterior, una vez hecho esto, renombrar la nueva hoja con el nombre "solicitud" y ejecuta la macro, con esto te debe de funcionar, por favor comentas Saludos !!!
  23. Hola [uSER=205419]@Juvenal[/uSER], Para Tu siguiente pregunta tienes que abrir una nuevo tema son las REGLAS DEL FORO, lo único que puedo comentarte es que hay mucha información sobre Crear o Insertar Calendarios en un Control Bottom Saludos !!!
  24. Hola [uSER=196809]@Eviky[/uSER] , Por favor podría probar tu archivo y comentarnos si esta funcionando como necesitas. Mucha Suerte !!! Saludos proyecto vacaciones con calendario foro.zip
  25. Hola [uSER=205419]@Juvenal[/uSER], Hice una modificación a tu macro, revisala y comenta si es lo que necesitas Mucha Suerte Saludos !!! BASE DE DATOS PERSONAL.zip
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png