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 bdurango in Macro demasiado lenta   
    Toma esta macro como ejemplo tu problema es que tu tienes varios do while.... wend, y eso hace que la macro se alente, la otra es que interactua demasiado con la pantalla y tambien eso alenta la macro.
     
     
    Sanción Prueba.xlsm
  2. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Intersección de ecuaciones   
    Prueba esta macro, sirve solo para ecuaciones de 1er orden como las que pusiste en tu ejemplo, das click al boton y la macro si encuentra valores iguales en todas las ecuaciones que alimentes te los pintara de amarillo al final de la ejecucion.
    la macro la alimentas asi si es 3x+5, solo pones en el area de las ecuaciones 3 en una celda y 5 en la contigua, en numero de variables alimentas la cantidad e variables que quieras calcular puede ser 1, 1000 o 1 millon, en la celda b6 te va a indicar la cantidad de coincidencias que se encontraron.
    Nota es matematicas, si te indica que bajo 1000 numeros solo obtienes menos resultados de los que quieres aunque aumentes la cantidad de variables dificilmente de va a dar mas resultados, esto debido a que no siempre (por la naturaleza misma de la ecuacion o ecuaciones) los puntos van a coincidir.
    ECUACIONES.xlsm
  3. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Se puede resumir esta macro?   
    145 lineas de programacion se pueden reducir a 44 lineas, el problema que tiene tu macro es que esa forma de programacion es muy ineficiente sobre todo si manejas grandes cantidades de datos.
    la opcion que te presento declara la informacion como objeto y le aplica en un solo paso las propiedades que el objeto va a tener, esto hace que la macro sea mucho mas rapida, pruebala y comentas
    ejemplocopia.xlsm
  4. Upvote
    Dr Hyde got a reaction from bugy in Eliminar filas si una de las columnas contienen datos   
    prueba esta macro
    Libro1 (5).xlsm
  5. Upvote
    Dr Hyde got a reaction from Visor in MACRO ORDENAR INFORMACION SEGUN CRITERIO   
    Prueba con esta macro
    EJEMPLO1 (1).xlsm
  6. Upvote
    Dr Hyde got a reaction from Enigma25 in Validar los datos del estudiante   
    Gracias @Gerson Pineda por la informacion de las teclas o mas bien tecla, respecto al tema Microsoft desarrollo a software para office una especie de Addin llamado WindowsRightsManagementServicesSP2-KB917275-Client-ESN-x86.exe, este tiene como objetivos:
    Evitar que un destinatario no autorizado del contenido restringido reenvíe, copie, modifique, imprima, envíe por fax o pegue el contenido para uso no autorizado
    Evitar que se copie el contenido restringido mediante la característica Imprimir pantalla de Microsoft Windows
    Restringir contenido con independencia del destino al que se envíe
    Admitir la caducidad de archivo, de forma que el contenido de los documentos, los libros o las presentaciones no se pueda ver con posterioridad a un período de tiempo especificado
    Exigir las directivas empresariales que regulan el uso y la divulgación de contenido en la empresa.
    se puede descargar a traves del mismo Excel solo con entrar al menu menu revisar, proteger libro, acceso restringido
    aqui esta la informacion mas a detalle de este complemento https://support.office.com/es-es/article/Information-Rights-Management-en-Office-2010-c7a70797-6b1e-493f-acf7-92a39b85e30c?ui=es-ES&rs=es-ES&ad=ES&fromAR=1
    quiza sea esta la solucion que necesita @Darwin Barrera Peraza
  7. Upvote
    Dr Hyde got a reaction from Gerson Pineda in Sres. Moderadores.   
    Estoy de acuerdo con Marco Antonio a mi tambien me ha sucedido lo mismo caso reciente este dia iba a subir un archivo con una propuesta de solucion al consultante y me encuentro con que ya estaba cerrado el tema a mas respuestas, digo nada cuesta esperar un poco en mi opinion deberian empezar por aquellos temas que ya llevan mucho tiempo abiertos y el consultante ya no le dio seguimiento.
  8. Upvote
    Dr Hyde got a reaction from Enigma25 in Guadar datos en una tabla   
    checa la macro 
    Ejemplo (4) (1).xlsm
  9. Upvote
    Dr Hyde got a reaction from Gerson Pineda in Sres. Moderadores.   
    Estoy de acuerdo con Marco Antonio a mi tambien me ha sucedido lo mismo caso reciente este dia iba a subir un archivo con una propuesta de solucion al consultante y me encuentro con que ya estaba cerrado el tema a mas respuestas, digo nada cuesta esperar un poco en mi opinion deberian empezar por aquellos temas que ya llevan mucho tiempo abiertos y el consultante ya no le dio seguimiento.
  10. Upvote
    Dr Hyde got a reaction from Gerson Pineda in Sres. Moderadores.   
    Estoy de acuerdo con Marco Antonio a mi tambien me ha sucedido lo mismo caso reciente este dia iba a subir un archivo con una propuesta de solucion al consultante y me encuentro con que ya estaba cerrado el tema a mas respuestas, digo nada cuesta esperar un poco en mi opinion deberian empezar por aquellos temas que ya llevan mucho tiempo abiertos y el consultante ya no le dio seguimiento.
  11. Upvote
    Dr Hyde got a reaction from jesus miguel in Formula de suma en rango variable   
    Trata con esta macro, ya sea que quites o pongas registros la macro trabaja sobre lo que este presente
    TOTALIZAR.xlsm
  12. Upvote
    Dr Hyde got a reaction from olguita9222 in Problemas con rango en listbox   
    de nuevo, new collection es una array que yo solo uso para filtrar duplicados, para el resto como dije convierto la informacion a objeto, hago uso de matrices y luego simplemente programo en base a las propiedades del objeto, puedo usar la instruccion what (que en lo personal considero lenta), o las funciones coincidir y vlookup, de las tres la mas eficiente es coincidir ya que me permite moverme de en cualquier direccion (atras, adelante,arriba, abajo) o por fila o columna o puedo crear regiones de datos combinando la opcion contar con coincidir para crear grupos de datos especificos sobre los que trabajo individualmente (algo asi como una tabla dinamica super personalizada), lo que yo hago es trabajar en procesar y analizar volumenes de informacion en vez de dato por dato y al no usar programacion convencional se logra rapidez y eficiencia en las macros, tambien empleo modulos de clases pero solo en casos muy especificos por ejemplo tengo una que hace una serie de analisis estadisticos sobre 3 hojas de calculo con informacion distinta, al momento que cambio la hoja ya tengo los resultados precargados y listos para los siguientes pasos del analisis, con eso me ahorro un buen de programacion. 
    el truco esta en hacer que las macros hagan su funcion en los menos pasos posibles.
    Saludos
  13. Upvote
    Dr Hyde got a reaction from Antoni in No consigo borrar TextBox con un evento Click   
    hay tres formas de hacer lo que pides
    1.- con estas instrucciones con solo pasar el señalador del raton sobre el textbox(sin dar clicK) el label1 se pone en blanco
    Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1 = vbNullString
    End Sub
    2.- con esta macro te colocas con el raton sobre el textbox das click y se limpia el label1
    Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1 = vbNullString
    End Sub
    3.- con esta macro dando click en cualquier parte del formulario se limpia el label1
    Private Sub UserForm_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1 = vbNullString
    End Sub
     
  14. Upvote
    Dr Hyde got a reaction from olguita9222 in Problemas con rango en listbox   
    de nuevo, new collection es una array que yo solo uso para filtrar duplicados, para el resto como dije convierto la informacion a objeto, hago uso de matrices y luego simplemente programo en base a las propiedades del objeto, puedo usar la instruccion what (que en lo personal considero lenta), o las funciones coincidir y vlookup, de las tres la mas eficiente es coincidir ya que me permite moverme de en cualquier direccion (atras, adelante,arriba, abajo) o por fila o columna o puedo crear regiones de datos combinando la opcion contar con coincidir para crear grupos de datos especificos sobre los que trabajo individualmente (algo asi como una tabla dinamica super personalizada), lo que yo hago es trabajar en procesar y analizar volumenes de informacion en vez de dato por dato y al no usar programacion convencional se logra rapidez y eficiencia en las macros, tambien empleo modulos de clases pero solo en casos muy especificos por ejemplo tengo una que hace una serie de analisis estadisticos sobre 3 hojas de calculo con informacion distinta, al momento que cambio la hoja ya tengo los resultados precargados y listos para los siguientes pasos del analisis, con eso me ahorro un buen de programacion. 
    el truco esta en hacer que las macros hagan su funcion en los menos pasos posibles.
    Saludos
  15. Upvote
    Dr Hyde got a reaction from Silvia in función para redondear al 50 más cercano   
    intenta =REDOND.MULT(D4,50), pon valor a redondear en la celda d4 y prueba
     
  16. Upvote
    Dr Hyde got a reaction from Enigma25 in datos en dos listbox diferentes   
    Prueba esta macro
    EJEMLISTBOX.xlsm
  17. Upvote
    Dr Hyde got a reaction from lug barry in VALIDAR MAYUSCULA EN USUARIO DE LOGIN   
    con ucase conviertes el texto escrito en minuscula a mayuscula, por ejemplo password=ucase(password), luego validas
    if password="ABCDE" then......
    con esta instruccion no importa si el usuario escribe en minusculas como dije al principio esta instruccion convierte todo a mayusculas
  18. Upvote
    Dr Hyde got a reaction from YoelMonsalve in Macro Para Ejecutar Un Proceso Mas Rapido   
    En 1000 registros tu macro tarda 7.92 segundos, el problema esta en que tu macro interactua demasiado con la hoja al ir colocando la palabra PYME, redefini la macro con dos alternativas ambas duran entre 0.11 y .30 segundos en una maquina antigua.
    la primera selecciona la columna W y reemplaza en un solo paso todas las celdas que esten en blanco (es el equivalente a len(certificado.value)=0).
    la segunda crea una matriz virtual en la memoria para almacenar todos los datos que complan con la condicion y pegarlos en un solo paso en la columna W.
    las macros se llaman replica y replicados estan justo abajo de la tu macro, puedes adaptarla a tus necesidades.
    EJEMPLO08032017.xlsm
  19. Upvote
    Dr Hyde got a reaction from Silvia in función para redondear al 50 más cercano   
    intenta =REDOND.MULT(D4,50), pon valor a redondear en la celda d4 y prueba
     
  20. Upvote
    Dr Hyde got a reaction from johan moreno in Combobox con Lista Dependiente año/mes   
    Checa esta macro, le hice unos cambios a tu tabla para usar la menor cantidad de codigo posible.
    Johan_listar_meses.xlsm
  21. Upvote
    Dr Hyde got a reaction from Visor in Contar rangos variables   
    prueba esta macro
    mjem3.xlsm
  22. Upvote
    Dr Hyde got a reaction from Visor in Calcular con Textbox para obtener promedio   
    para algo tan sencillo usas demasiadas lineas, te envio un ejemplo abreviado de tu formulario, solo teclea los numeros menos el 28 ese es promedio que estan en la hoja para que veas lo que hace la macro
    te recomiendo que uses la propiedad userform1.controls en un ciclo each for en casos similares te ahoras un buen de codigo y la macro se vuelve mas eficiente.
    MEJEMPLO.xlsm
  23. Upvote
    Dr Hyde got a reaction from SebastianFelipe in Borrar los espacios en blanco cuando son mas de 4 consecutivos   
    Prueba esta macro
    MEJMPLO.xlsm
  24. Upvote
    Dr Hyde got a reaction from Roni2509 in NÚMERO ASCENDENTE EN USERFORM   
    esto es lo que buscas? o al menos puede darte una idea para que lo adaptes a lo que necesitas, estoy asumiendo que solo tienes una columna de datos en caso contrario solo hay que hacerle algunas modificaciones
    numero ascendente.xlsm
  25. Upvote
    Dr Hyde got a reaction from waltermendez99 in UTILIZAR RANGE CON VALOR DE UNA CELDA   
    veamos para empezar celda localizada=hoja3.cells(2,17) se trae el valor numerico que tenga esa celda por ejemplo si hay un 12 en esa celda
    te queda asi: celdalocalizada=12 y luego aplicas un range(celdalocalizada).select o mas bien range(12).select  y te esto te provoca un error porque la instruccion debe quedar como referencia por ejemplo A1 y tu la estas manejando como numero, trata lo siguiente
    celdalocalizada=hoja3.cells(2,17).address esto carga la celda como referencia con esto ya no debe marcar error al ejecutarse la siguiente linea
×
×
  • Create New...

Important Information

Privacy Policy