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 psycho99killer in ayuda para modificar codigo   
    de hecho no le encuentro sentido a tu macro, puedes subir un ejemplo con datos pueden ser ficticios, quieres sumar datos y poner los resultados en la misma columna donde estan estos?.
    lo mas probable es que viendo que quieres lograr se logre programar una macro mas eficiente, a simple vista esta se puede mejorar pero sin datos es como ir dando palos de ciego.
  2. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Ayuda con macro, convertir texto a número   
    en un solo paso seria asi, te envio un ejemplo
    Sub copia()
    Range("b1").Resize(Range("a1").CurrentRegion.Rows.Count, 1).Value = Range("a1").CurrentRegion.Value
    End Sub
    Test5 (1).xlsm
  3. Upvote
    Dr Hyde got a reaction from Antoni in OBTENER EL SEGUNDO VALOR MINIMO de una fecha EN VBA DE EXCEL   
    el equivalente a kesimo menor en VBA es WorksheetFunction.Small(rango, 2), te paso un ejemplo de como funciona
    svm.xlsm
  4. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in formato condicional con macros   
    Prueba con esta macro, solo da click en el boton colorear
    consulta_4.1_F.C,M.xlsm
  5. Upvote
    Dr Hyde got a reaction from DanielaAlcala22 in DESPEJAR ECUACIONES   
    en tu problema esta la solucion y es esta el problema es que la macro crea formulas que aunque apagues el evento calculo va a seguir afectando la macro, la solucion es la siguiente transformar los campos formulas es campos planos es decir en valores y esto se hace asi
        Range("G2").Select
        ActiveCell.FormulaR1C1 = _
            "=INDEX('Base de Datos'!R[2]C[2]:R[31]C[3],RANDBETWEEN(1,29),2)"
      
    Range("a2:g2").Value = Range("a2:g2").Value
    solo agrega la linea que esta en negritas despues de el ultimo calculo de aleatorios y la macro que hiciste funciona perfectamente, todas las veces que la he corrido da resultados entre .4999 y .500800
  6. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Contar Unicos con Criterio   
    Prueba con esta macro
    Muestra ContarUnicos.xlsm
  7. Upvote
    Dr Hyde got a reaction from cesarion_2009 in Aumentar rendimiento hoja con VBA   
    quiza el problema este en las caracteristicas de tu equipo procesador, memoria, hice algunas pruebas con tu funcion personalizada y al menos con 10000 registros trabaja bien no se demora ni un minuto.
    tu funcion la puse como macro y en esos 10000 registros se tarda entre 10 y 13 segundos, haz la prueba tu mismo te envio el archivo.
    validar_email.xlsm
  8. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in MACRO INSERTAR FILA   
    Prueba esta macro solo da click en el boton
    Load Board For Carriers-.xlsm
  9. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in MACRO INSERTAR FILA   
    Prueba esta macro solo da click en el boton
    Load Board For Carriers-.xlsm
  10. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in MACRO INSERTAR FILA   
    Prueba esta macro solo da click en el boton
    Load Board For Carriers-.xlsm
  11. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in seleccionar celda de un resultado de busqueda   
    este es un ejemplo que puede adaptarse a tu macro
    ejemplo_busca.xlsm
  12. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Error 1004: Error en el método 'Range' de objeto '_Worksheet   
    vamos por partes el problema es el siguiente:
    Set ws = Worksheets("Inicio") carga todas las propiedades del objeto hoja llamada inicio hasta hay todo esta bien.
    for each departamentos in ws.range("inicio") crea un bucle que va a cargar en una variable temporal llamada departamento lo que encuentre en el rango("inicio") de la hoja ws, el problema es que la instruccion le indica que cargue un rango que no existe.
    la instruccion correcta es
    for each departamentos in ws.range("departamentos")
    next departamentos
    for each departamentos in ws.range("producto")
    next departamentos
     
  13. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Error 1004: Error en el método 'Range' de objeto '_Worksheet   
    vamos por partes el problema es el siguiente:
    Set ws = Worksheets("Inicio") carga todas las propiedades del objeto hoja llamada inicio hasta hay todo esta bien.
    for each departamentos in ws.range("inicio") crea un bucle que va a cargar en una variable temporal llamada departamento lo que encuentre en el rango("inicio") de la hoja ws, el problema es que la instruccion le indica que cargue un rango que no existe.
    la instruccion correcta es
    for each departamentos in ws.range("departamentos")
    next departamentos
    for each departamentos in ws.range("producto")
    next departamentos
     
  14. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Error 1004: Error en el método 'Range' de objeto '_Worksheet   
    vamos por partes el problema es el siguiente:
    Set ws = Worksheets("Inicio") carga todas las propiedades del objeto hoja llamada inicio hasta hay todo esta bien.
    for each departamentos in ws.range("inicio") crea un bucle que va a cargar en una variable temporal llamada departamento lo que encuentre en el rango("inicio") de la hoja ws, el problema es que la instruccion le indica que cargue un rango que no existe.
    la instruccion correcta es
    for each departamentos in ws.range("departamentos")
    next departamentos
    for each departamentos in ws.range("producto")
    next departamentos
     
  15. Upvote
    Dr Hyde got a reaction from ikanni 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.
  16. Upvote
    Dr Hyde got a reaction from temp01 in asignar un msgbox   
    me cuesta entender lo que escribes, cual es el rango que quieres comprobar?, tu macro solo actua sobre la columna2, esta es la macro modificada para mostrar el mensaje al final de analizar dicha columna
    Sub validacion()
    x = 0
    For i = 2 To Range("a1").CurrentRegion.Rows.Count
    If IsError(Cells(i, 2)) Then
        Cells(i, 2).Interior.ColorIndex = 50
        x = x + 1
    Else
        
    End If
    Next
    If x > 0 Then MsgBox ("tabla con " & x & " errores"), vbCritical, "AVISO"
    If x = 0 Then MsgBox ("tabla sin " & x & "errores"), vbCritical, "AVISO"
    End Sub
     
  17. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Optimizar macro   
    no entiendo como trabaja la segunda macro, asi que hice una version propia, te envio un solo archivo con las dos macros, es necesario que ambos archivos excel(los que manejas) esten en el mismo directorio.
    solo da click en el boton de la hoja aa_datos, esta macro recorre todas las hoja ya sea 1 o un millon y luego copia del rango a18 hacia abajo (el unico limite son los renglones que maneja excel) en la hoja aa_datos poniendolos en el ultimo renglon de los registros, luego abre el segundo archivo y crea una copia de todos los registros en la hoja aa_datos.
    zz_Datos Pacientes RECEPCION.xlsm
  18. Upvote
    Dr Hyde got a reaction from psycho99killer in Hola, macro para extraer datos de tabla y extraerlo a hoja nueva, se podra?   
    para no moverle a tus datos mejor la macro seguira creando una copia en otra hoja y sobre esa hara lo que tenga que hacer, al final te preguntara si quieres borrar la copia.
    extraer datos en hoja nueva.xlsm
  19. Upvote
    Dr Hyde got a reaction from psycho99killer in Hola, macro para extraer datos de tabla y extraerlo a hoja nueva, se podra?   
    mira esta macro hace una copia de la tabla que tienes y trabaja sobre esa copia, pero siento que el problema no esta en la macro sino en la estructura de tu informacion tienes una lista con una columna faltante (la B ) y sobre esa programo la macro que quieres usar en una estructura de datos que usa la columna B, lo mejor seria para no estar haciendo una y otra vez la macro que en caso de que esta macro no funcione subas la estructura real de los datos que manejas para hacer lo ajustes sobre esa.
    EXTRAER DATOS EN HOJA NUEVA.xlsm
  20. Upvote
    Dr Hyde got a reaction from psycho99killer in Hola, macro para extraer datos de tabla y extraerlo a hoja nueva, se podra?   
    prueba esta macro
    EXTRAER DATOS EN HOJA NUEVA.xlsm
  21. Upvote
    Dr Hyde got a reaction from psycho99killer in Hola, macro para extraer datos de tabla y extraerlo a hoja nueva, se podra?   
    prueba con esta macro
    EXTRAER DATOS EN HOJA NUEVA.xlsm
  22. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Optimizar macro   
    no entiendo como trabaja la segunda macro, asi que hice una version propia, te envio un solo archivo con las dos macros, es necesario que ambos archivos excel(los que manejas) esten en el mismo directorio.
    solo da click en el boton de la hoja aa_datos, esta macro recorre todas las hoja ya sea 1 o un millon y luego copia del rango a18 hacia abajo (el unico limite son los renglones que maneja excel) en la hoja aa_datos poniendolos en el ultimo renglon de los registros, luego abre el segundo archivo y crea una copia de todos los registros en la hoja aa_datos.
    zz_Datos Pacientes RECEPCION.xlsm
  23. Upvote
    Dr Hyde got a reaction from psycho99killer in Hola, macro para extraer datos de tabla y extraerlo a hoja nueva, se podra?   
    Checa entonces esta macro
    EXTRAER DATOS EN HOJA NUEVA.xlsm
  24. Upvote
    Dr Hyde got a reaction from psycho99killer in Hola, macro para extraer datos de tabla y extraerlo a hoja nueva, se podra?   
    Solo da click en la hoja existencia y listo
    EXTRAER DATOS EN HOJA NUEVA.xlsm
  25. Upvote
    Dr Hyde got a reaction from Mauricio_ODN in Ordenar Tabla   
    Solo da click en el boton de la hoja 1 y ve si este ejemplo te sirve para lo que necesitas.
    EJEMPLO2 (2).xlsm
×
×
  • Create New...

Important Information

Privacy Policy