Jump to content

Dr Hyde

Members
  • Content Count

    498
  • Joined

  • Last visited

  • Days Won

    16

Reputation Activity

  1. Upvote
    Dr Hyde got a reaction from Visor in Comparar fechas y ubicarse si se encuentra caso contrario añadirse si es ahora   
    Checa l macro, le hice una modificacion, le agregue un boton para hacer la comparacion
    Buscar fecha.xlsm
  2. Upvote
    Dr Hyde got a reaction from Visor in Comparar fechas y ubicarse si se encuentra caso contrario añadirse si es ahora   
    Entonces checa esta macro
    Buscar fecha (1).xlsm
  3. Upvote
    Dr Hyde got a reaction from Visor in Comparar fechas y ubicarse si se encuentra caso contrario añadirse si es ahora   
    cambia esta linea If CLASES > 0  Then por esta If CLASES > 0 And fecha <= Date Then y ya queda o bien If CLASES > 0 And fecha = Date Then
     
  4. Upvote
    Dr Hyde got a reaction from Antoni in Macro para eliminar otra macro   
    esta macro es de Antoni solo le agregue un if como condicional de la fecha, la puedes colocar en el evento workbook open del modulo thisworkbook asi cada que se abra al archivo validara la fecha si la condicion se cumple se borran las macros, si te funciona dale las gracias a Antoni.
    Private Sub Workbook_Open()
    '-----------------------------------------------------
    'Colocar aquí el código a ejecutar al abrir el libro
    'Recuerda tener copiado este proyecto antes de hacer pruebas
    'Este código una vez ejecutado, desaparecerá
    '------------------------------------------------------
    if date="31/12/1970" then
    With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
         .DeleteLines .ProcStartLine("Workbook_Open", vbext_pk_Proc), _
                      .ProcCountLines("Workbook_Open", vbext_pk_Proc)
    End With
    end if
    end sub
  5. Upvote
    Dr Hyde got a reaction from Visor in Comparar fechas y ubicarse si se encuentra caso contrario añadirse si es ahora   
    Checa l macro, le hice una modificacion, le agregue un boton para hacer la comparacion
    Buscar fecha.xlsm
  6. Upvote
    Dr Hyde got a reaction from psycho99killer in Buenas a todos, Consulta para restar columnas   
    esta macro hace lo que necesitas solo da click en el boton
    consulta_restar vba.xlsm
  7. Upvote
    Dr Hyde got a reaction from Antoni in Macro para eliminar otra macro   
    esta macro es de Antoni solo le agregue un if como condicional de la fecha, la puedes colocar en el evento workbook open del modulo thisworkbook asi cada que se abra al archivo validara la fecha si la condicion se cumple se borran las macros, si te funciona dale las gracias a Antoni.
    Private Sub Workbook_Open()
    '-----------------------------------------------------
    'Colocar aquí el código a ejecutar al abrir el libro
    'Recuerda tener copiado este proyecto antes de hacer pruebas
    'Este código una vez ejecutado, desaparecerá
    '------------------------------------------------------
    if date="31/12/1970" then
    With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
         .DeleteLines .ProcStartLine("Workbook_Open", vbext_pk_Proc), _
                      .ProcCountLines("Workbook_Open", vbext_pk_Proc)
    End With
    end if
    end sub
  8. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Filtro avanzado para que me genere un reporte   
    da clik en el boton y comentas.
    PROB_09.1.xlsm
  9. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Filtro avanzado para que me genere un reporte   
    da clik en el boton y comentas.
    PROB_09.1.xlsm
  10. Upvote
    Dr Hyde got a reaction from Antoni in Distribución de alumnos en salones por puntaje   
    da click en el boton y dime si es lo que buscas
    Alumnos Puntajes.xlsm
  11. Upvote
    Dr Hyde got a reaction from Antoni in Distribución de alumnos en salones por puntaje   
    da click en el boton y dime si es lo que buscas
    Alumnos Puntajes.xlsm
  12. Upvote
    Dr Hyde got a reaction from Antoni in Distribución de alumnos en salones por puntaje   
    da click en el boton y dime si es lo que buscas
    Alumnos Puntajes.xlsm
  13. Upvote
    Dr Hyde got a reaction from Silvia in ALGUIEN ME PUEDE AYUDAR QUE SEPA DE EXCELL   
    no se que version tengas de excel esta solucion solo aplica de 2010 en adelante
    son varios metodos si no te funciona uno, trata con otro
    este link es de la pagina oficial de Office Microsoft
    https://support.office.com/es-es/article/Reparar-un-libro-dañado-7abfc44d-e9bf-4896-8899-bd10ef4d61ab
    incluso trae una macro para extraer informacion de un libro dañado.
  14. Upvote
    Dr Hyde got a reaction from Finaam in Copiar datos de una hoja excel a otra con una condicion   
    nunca dijiste que lo ibas a usar en otro archivo y que ibas a manejar mas hojas, error 1004 indica que el range("ciudad_pais") no existe en tu hoja original y no solo te va a fallar hay tambien en todas las lineas que tengan range("fecha"),range("email").......
    Y ademas falta ver como esta la estructura de tu informacion en tu archivo original para que la macro este fallando es porque la distribucion de la informacion es diferente en ambas hojas.
    el problema no esta en la macro sino en todo lo que estas olvidando mencionar y la verdad ya se esta haciendo cansado y tedioso estar programando asi.
  15. Upvote
    Dr Hyde got a reaction from Gerson Pineda in Macro solo Mayusculas   
    Corrigeme si me equivoco quieres que en una fecha todas las palabras queden en mayusculas?, es decir Sabado, 3 de Junio de 2017, pase a SABADO 3 DE JUNIO DE 2017?
    tu problema se da porque quieres aplicar mayusculas a un formato fecha, no te confundas la fecha larga (aunque aparezca con palabras) Excel la sigue considerando como formato fecha es decir 03/06/2017 por eso cuando aplicas el UCASE causa el desorden de fechas.
    si lo que quieres es aplicar mayusculas a todo el texto de la fecha la solucion esta en el siguiente archivo tambien puede aplicar cualquier otra palabra y la convertira a mayusculas.
    de no ser lo que buscas puedes considerar hacer con todas las soluciones una adaptacion propia a lo que necesites.
    solo mayusculas.xltm
  16. Upvote
    Dr Hyde reacted to AlexanderS in GRAFICAS AUTOMATICAS   
    @DanielaAlcala22 me pareció excelente tú interés por querer aprender como funciona el código que te brindaron se nota que quieres aprender felicidades por eso y también sus créditos @Dr Hyde por su excelente explicación.
    Saludos a ambos. 
     
  17. Upvote
    Dr Hyde got a reaction from bigpetroman in GRAFICAS AUTOMATICAS   
    .- La linea de codigo ActiveSheet.ChartObjects.Delete va a borrar todas las graficas que se encuentren en la hoja activa, si no hay graficas Excel te va a generar un numero de error (err.number) y va a detener la macro o mas bien va impedir que continue
    On error resume next le indica a excel que continue ejecutando la macro ignorando ese error, on error goto 0 es simplemente resetear el err.number poniendolo en cero.
    en cuanto  la instruccion set esta es el alma de la programacion avanzada de Excel dominando esta instruccion puedes hacer macros muy eficientes, rapidas y con muy poco codigo, yo hago analisis estadisticos (tendencias, probabilidades, frecuencias, comportamientos estadisticos, etc) de diversos juegos de azar con cerca de 25000 filas de 6 numeros cada una (mas los numeros que capturo a diario) en menos de 1 minuto.
    Set en conjunto con with te permite manejar la informacion por filas, columnas, de arriba a abajo o de abajo hacia arriba, colorear, celdas, formatear, ordenar, usar formulas nativas de excel o crear tablas dinamicas y graficas
    usando set con for o con for each te olvidas para siempre de los loops Do, Do While, Do wend.
    la instruccion Set datos = Cells(44 + 20 * i, 1 + n).CurrentRegion toma todas las celdas con datos alrededor de la celda señalada en las 4 direcciones (Arriba, abajo, izquierda, derecha) y se detiene en la primera fila y columna vacias, en tu caso queda un area de 3 filas por 10 columnas.
    con esta instruccion Set datos = datos.Rows(2).Resize(datos.Rows.Count - 1, datos.Columns.Count - 1)  le digo a Excel que redefina el area partiendo desde la segunda fila esto para descartar los datos de la primera fila y que no sean graficados como el area se recorre quedando una fila vacia hacia bajo y otra a la derecha para no graficarlas le resto 1 y quedan solo la informacion que se necesita graficar.
    datos.Select le indica a la instruccion ActiveSheet.Shapes.AddChart.Select que solo grafique el area seleccionada es decir las 2 filas y las 10 columnas ya descartando la primera fila con esto no requieres la instruccion SetSourceData.
    Espero haber resuelto tanto tus dudas como el requerimiento que tienes.
    Saludos
  18. Upvote
    Dr Hyde got a reaction from bigpetroman in GRAFICAS AUTOMATICAS   
    .- La linea de codigo ActiveSheet.ChartObjects.Delete va a borrar todas las graficas que se encuentren en la hoja activa, si no hay graficas Excel te va a generar un numero de error (err.number) y va a detener la macro o mas bien va impedir que continue
    On error resume next le indica a excel que continue ejecutando la macro ignorando ese error, on error goto 0 es simplemente resetear el err.number poniendolo en cero.
    en cuanto  la instruccion set esta es el alma de la programacion avanzada de Excel dominando esta instruccion puedes hacer macros muy eficientes, rapidas y con muy poco codigo, yo hago analisis estadisticos (tendencias, probabilidades, frecuencias, comportamientos estadisticos, etc) de diversos juegos de azar con cerca de 25000 filas de 6 numeros cada una (mas los numeros que capturo a diario) en menos de 1 minuto.
    Set en conjunto con with te permite manejar la informacion por filas, columnas, de arriba a abajo o de abajo hacia arriba, colorear, celdas, formatear, ordenar, usar formulas nativas de excel o crear tablas dinamicas y graficas
    usando set con for o con for each te olvidas para siempre de los loops Do, Do While, Do wend.
    la instruccion Set datos = Cells(44 + 20 * i, 1 + n).CurrentRegion toma todas las celdas con datos alrededor de la celda señalada en las 4 direcciones (Arriba, abajo, izquierda, derecha) y se detiene en la primera fila y columna vacias, en tu caso queda un area de 3 filas por 10 columnas.
    con esta instruccion Set datos = datos.Rows(2).Resize(datos.Rows.Count - 1, datos.Columns.Count - 1)  le digo a Excel que redefina el area partiendo desde la segunda fila esto para descartar los datos de la primera fila y que no sean graficados como el area se recorre quedando una fila vacia hacia bajo y otra a la derecha para no graficarlas le resto 1 y quedan solo la informacion que se necesita graficar.
    datos.Select le indica a la instruccion ActiveSheet.Shapes.AddChart.Select que solo grafique el area seleccionada es decir las 2 filas y las 10 columnas ya descartando la primera fila con esto no requieres la instruccion SetSourceData.
    Espero haber resuelto tanto tus dudas como el requerimiento que tienes.
    Saludos
  19. Upvote
    Dr Hyde got a reaction from Silvia in varias condiciones   
    la funcion para el precio es la siguiente:
    =+INDICE($E$4:$G$7,COINCIDIR(B12,$D$4:$D$7,0),COINCIDIR(A12,$E$3:$G$3,0))
    para el monto hay algo que no checa la multiplicacion precio * cantidad da resultados que no vienen en la tabla de comisiones y por lo tanto te va a originar un error o te va a poner 0.
    Revisa creo que con esta formula tu solo puedes terminar tu tarea.
  20. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in GRAFICAS AUTOMATICAS   
    si ya vi donde esta el problema, la forma en que esta escrita la macro para graficar toma las tres filas como parte de la grafica, no tiene una instruccion para descartar la primer fila, ya se la agregue y contra lo que te dije le puse un select solo para que el graficador identifique las filas a graficar, esta modificacion descarta la primera fila y ahora si tienes las dos graficas que ocupas.
    Y respecto a los with te lo pongo son este ejemplo: en una programacion sin with hacer esto:
    range("a5").font.bold=true
    range("a5").size=12
    range("a5").name="colibri"
    es como poner uno a uno los ladrillos o bloques de un casa, con with
    with range("a5")
       .font.bold=true
      .size=12
      .name="colibri"
    end with
    es como poner las paredes prefabricadas, es decir con with le asignas todas las propiedades o instrucciones al objeto y Excel considera las lineas dentro de un with como una sola instruccion lo cual le da mas eficiencia y velocidad a una macro.
    ExcelTotal.xlsm
  21. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in GRAFICAS AUTOMATICAS   
    de nuevo tu codigo tenia lineas de mas y otras que no venian al caso por eso no te generaba las graficas que requieres, no utilices la instruccion que termine en .select eso solo hace lenta la macro, compara tu macro con esta modificacion y veras lo que te digo.
    ExcelTotal.xlsm
  22. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in GRAFICAS AUTOMATICAS   
    de nuevo tu codigo tenia lineas de mas y otras que no venian al caso por eso no te generaba las graficas que requieres, no utilices la instruccion que termine en .select eso solo hace lenta la macro, compara tu macro con esta modificacion y veras lo que te digo.
    ExcelTotal.xlsm
  23. Upvote
    Dr Hyde got a reaction from Jamel in Repetir datos según condicion   
    solo da click en el boton de la hoja 2 y me comentas si es lo que buscas.
    Ayuda3.xlsm
  24. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in GRAFICAS AUTOMATICAS   
    tu codigo solo tenia algunas lineas mal colocadas, poniendolas en su lugar ya genera las graficas, en cuanto al solver le quite dos lineas porque el programa marcaba error y ya no pemitia continuar, compara esta macro que te envio con la macro original y veras cuales cambios fueron los que hice.
    Los temas se cierran solo escribendo tema resuelto o caso solucionado
    Espero te sirva 
    Saludos
    ProgramaConGraficas.xlsm
  25. Upvote
    Dr Hyde got a reaction from psycho99killer in ayuda para modificar codigo   
    Solo da click en el boton de la hoja 2 y listo, creo que es lo que requieres.
    PRO_8.xlsm
×
×
  • Create New...

Important Information

Privacy Policy