Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation since 07/25/2019 in all areas

  1. 5 points
    Lo prometido es deuda: https://abrahamexcel.blogspot.com/2019/06/conectar-excel-con-excel-online-en.html Espero sea útil Abraham Valencia
  2. 3 points
    amigo @eugeniocol, revisa el anexo, coloque dos formas de hacerlo, hay muchas formas de hacerlo, pero la forma como esta en tu macro, pues es la peor jejeje, suerte Foro copia con criterio.xlsm
  3. 3 points
    johnmpl

    ANSWERED Unificar cantidad de Códigos

    ¡Hola, a ambos! Revisa el adjunto, donde propongo una opción con formulación y formato condicional. ¡Bendiciones! Unificar.xlsx
  4. 3 points
    Antoni

    Next C - Error

    Los genios somos así, jajaja 😋
  5. 3 points
    Listo, no hay problema, aclarados los malos entendidos, todos seguimos con lo nuestro: Las preguntas del foro. Sobre Access, hace unos años Microsoft habilitó la posibilidad de trabajar con dicho programa en línea a través del uso en servidores SharePoint, por supuesto que era de pago y no había forma de usar dicho tipo de servidores de forma gratuita. Hoy en día el mensaje que da el mismo Microsoft es: "Importante Microsoft ya no recomienda crear ni usar aplicaciones web de Access en SharePoint. Como alternativa, puede usar Microsoft PowerApps para crear soluciones de negocio sin código para la web y dispositivos móviles." Claro, lo que no dicen es que con PowerApps no es que se pueda usar Access. La explicación que dio alguna vez, hace unos años, Microsoft sobre la imposibilidad de usar Access en línea fue solo que: Su arquitectura no lo permite... plop. También se anunció la posibilidad de que se habilite pero, hasta donde sé quedó en prácticamente en nada. Es más, Microsoft hace más propaganda de SQL Server como sistema gestor de base de datos. Saludos Abraham Valencia
  6. 2 points
    ¡Hola, @SALAVERRINO! Basta con que uses la siguiente fórmula: =TRUNCAR(C4;1) Dando formato a la celda para que muestre dos decimales. Nota: Mi separador de argumentos es ";". Si no es el tuyo, cámbialo por "," o por el que maneje tu sistema. ¡Bendiciones!
  7. 2 points
    soy fanático de los "no bucles" (cuando se puede) y esta pudiera ser una alternativa viable (?) Sub FasterJoin() With Range("a3:a" & Cells(Rows.Count, 5).End(xlUp).Row) .Formula = "=""'""&text(e3,""ddmm"")&year(e3)&right(""0000000000""&h3,10)&right(""0000000000""&i3,10)&j3&k3" .Offset(, 1).Formula = "=g3&k3" With .Resize(, 2): .Value = .Value: End With End With End Sub
  8. 2 points
    Antoni

    Application.OnTime

    No me odies a mi que "so mu majo". 😂😂😂
  9. 2 points
    avalencia

    Application.OnTime

    En realidad odio a todos... jajajjajajajaja ¡lo que has ocasionado @Gerson Pineda! 😨 Abraham Valencia
  10. 2 points
    digitalboy

    Web Scraping Campo Dinamico

    Hola @bigpetroman Ya probaste con lo siguiente: Option Explicit Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .navigate "http://preev.com/btc/usd" Application.Wait Now + TimeValue("00:00:02") Debug.Print Split(.document.Title, " ")(0) .Quit End With End Sub Saludos!
  11. 2 points
    Hola Siguiendo con tu misma idea: Sub Prueba_HojaYFilaVariable() Dim NH As String NH = "Hoja1" Range("A2").Formula = "=CONCATENATE(" & NH & "!A6," & NH & "!B6)" End Sub Saludos Abraham Valencia PD: Cuando se trata de variables hay otras formas también
  12. 2 points
    Jose BN

    El día de la marmota

    Antoni del tiempo que tengo de visitar el foro tú y el resto del equipo son seres extraordinarios de gran voluntad y bondad; solo espero que a veces no se pierda la buena acción de ayudar a una persona verdaderamente desorientado. Mis más cordiales saludos; JB
  13. 2 points
    ¿Y por qué buscaste en el Userform si estabas, estamos, hablando de un TextBox? Abraham Valencia
  14. 2 points
    Antoni

    Sumar numeros automaticamente

    Sheets("Gestion").Select p = Split(Range("F3").Value, "/") p(1) = p(1) + 1 Range("F3") = Join(p, "/")
  15. 2 points
    Te dejo una solución (parcial) @meduvilla . Fijate enque he cambiado los nombres de los Textbox y labels, solo para el primer caso (el de la izquierda. El de la derecha te lo dejo como ejercicio Copia de ayuexcel.xlsm
  16. 2 points
    Sin querer te "exhibí" jaja Eres como mi abuelo y lo sabes, solo imagina que estas con uno de tus nietos y te pide tirarte al suelo [debes hacerlo jaja] Saludos
  17. 2 points
    Hola nuevamente Considero, al igual que Gerson, que la solución para ti es usar a nube pero como Excel, dejar de lado ya Access (al menos para este caso) o en todo caso migrar a SQL Server o MySQL (no son gratis para usarlos a través de internet). Ah,. para hacerlo tipo formularios, comos seguro tienes en Access, sugiero usar los"Formularios de Google", son gratis, trabajan a través de internet, y lo mejor para ti, se almacenan en línea. Cada formulario general un archivo en la "Hoja de Cálculo de Google" y con la cuál te puede conectar usando Excel y Power Query (como sugiere Gerson). Aquí justamente algo que escribí al respecto: Enlace La otra opción es usar "Microsoft Forms", también gratuito y en línea, y si generas el formulario desde OneDrive, también se almacena en "Excel Online" y con un par de trucos, también te conectas con Excel usando Power Query. Voy a ver si hago un artículo sobre eso y lo termino hoy. Saludos. Abraham Valencia
  18. 2 points
    no, discordia! [ni lo digas]... pero cada quien da su punto de vista según su experiencia, a eso se le llama debate o discusión temática A tu tema... porque no utilizas simplemente Excel como BD, cada quien sube la información y la suben a Ondrive, luego con PQ, lo juntas, ya con esto te olvidaras de las limitaciones de Access en la nube, y no te quiero desanimar, pero hay cosas por las cuales MS, no va retroceder Power Query sera tu ETL [Extract, Transform and Load («extraer, transformar y cargar»)] Saludos
  19. 2 points
    Hola La respuesta rápida a tu pregunta es: No, no se puede. Al colocar tu archivo en cualquier nube, para compartirlo la dirección/enlace que te da dicha nube es para visualizar o para descargar, no permite el intercambio de datos. Igual podrías intentar "mapeando" la "nube" como discos en las PC respectivas, hay formas, aunque formalmente hablando no es que los archivos sigan en una "nube" sino que usamos sus herramientas para compartir los archivos, pero eso es otro debate. Sugiero leer este debate al respecto: Enlace Ah, claro el dilema es que en cada PC tendrás que colocar la ruta ya que va variando en cada PC y usuario de OneDrive y no hay forma de que sea una sola para todas (yo no he usado Access así, por si acaso) Otra opción es que uses VPN, pero no es gratis. La mejor opción, en realidad, es usar MySQL o SQLServer en un hosting, para ser sincero. Saludos Abraham Valencia
  20. 2 points
    Antoni

    ANSWERED Ofuscador VBA

    Trabajo en una Institución educativa que desea apropiarse mi trabajo realizado en vba Si recibes remuneración por tu trabajo, el trabajo no es tuyo, es de la Institución. 😐
  21. 2 points
    Abre el adjunto y pulsa sobre el icono. Las pruebas las he hecho con el archivo: texto a ser importado.txt ImportatTXT.xlsm
  22. 1 point
    Y una macro para solo el booque L:R hasta fila 700.000 ??? que pueda acoplarse para contar coincidencias 3,4 y 5, pero individualmente no que cuente a la vez 3,4 y 5. Salud2....
  23. 1 point
    Gerson gracias por tu aporte,y gracias por hacerte disponible a ayudar,tengo apenas semanas practicando y me surgen muchas dudas,ya hice mi primera medida con calculate y sumx sencillo ya que he visto que se combinan con funciones nivel superior,espero llegar a esos niveles,me quede enganchado,ya no veo la TD como antes con las medidas he podido hacer cosas que no sin ellas,ejemplo al colocar un campo varias veces pero digamos una para promedio y otra para suma y le cambias el nombre se cambia el nombre para las 2 columnas eso me frustraba,con las medidas quede muy satisfecho,lo dicho seguiré practicando y espero contar con esta comunidad como hasta ahora saludos cordiales ,tema cerrado
  24. 1 point
    Holas! Nick Las semanas continuas son correctas, pero lo que tu deseas se debe armar, la TD no puede mostrar algo que no tiene, debemos hacerlo de una u otra forma, para ponerlo a disposición Lo que hice fue agregar una columna adicional [Columna Calculada] y listo, revisa el adjunto Saludos a ambos Segmentadores por semanas de mes_GP.zip
  25. 1 point
    Pon la propiedad ShowModal=False en el formulario o muéstralo así: UserForm1.Show vbModeless
  26. 1 point
    Hola, Os cuelgo el modulo y la clase en archivo de texto. El modulo se incluye como modulo independiente. Luego el formulario que quieres se redimensione en sus eventos Open y resize debes colocar esto. ----------------------------------------------------------------- Private Sub Form_Open(Cancel As Integer) ScaleFormWindow Me Me.InsideWidth = 15309 ' a tu gusto Me.InsideHeight = 11340 ' a tu gusto End Sub Private Sub Form_Resize() ScaleFormControls Me End Sub ----------------------------------------------------------- La clase la debes de llamar con su nombre. REPITO esto funciona en access en excel no lo sé..las apis funcionaran pero todo en su conjunto, no lo sé. Suerte Clase_clFormWindow.txt Modulo.txt
  27. 1 point
    digitalboy

    Web Scraping Campo Dinamico

    Ese mismo valor esta en el titulo de la pagina. A mi se me hizo mas fácil mejor tomarlo de ahí. Cada ciertos segundos se va actualizando.
  28. 1 point
    Jose BN

    Application.OnTime

    Gersón primero gracias!!! por incluirme en tan bondosa familia.... Paso aclarar lo siguiente: Mi idea es que al abril el libro si la condición se encuentra el valor "Activar" en la celda mencionada esta dispare una macro que llamado recordar con una seria de mensajes para el usuario lo cual debe ocurrir en una hora establecida en el evento(Application.OnTime), hasta aqui el fin que busco, como le comentaba Antonio para cancelar este "disparo" quería mediante una segunda condición a la que llamé "Null" cuando este valor se cumple cancelar el evento de la macro recordar, que se dispara en la hora ya comentada, evitándole con esto que el usuario deba cancelar el evento desde editor de vb si en algún momento ya no se hace necesario este recordatorio y para que no se vuelva molesto este aviso quería cancelarlo con el evento: Sub CancelTimer2() On Error Resume Next Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _ Schedule:=False End Sub Ahora solo me quedan las corrección optimas que seguro saldrá de sus experiencias y grandes conocimientos.
  29. 1 point
    Otra forma que es la que utilizo y que habitualmente veo que no es muy utilizada, es la siguiente: Dim mh As Worksheet: Set mh = Hoja1 va6 = mh.Range("A6").Address(, , , 1) vb6 = mh.Range("B6").Address(, , , 1) VBA.MsgBox va6 VBA.MsgBox vb6 Set mh = Nothing @avalencia conoces otros métodos? Saludos a ambos!
  30. 1 point
    Gerson Pineda

    Application.OnTime

    Si entiendo, pero hay mas jajaja... pero sabes que abuelo, esperemos que el "primo" Jose, nos explique un poco mas Saludos
  31. 1 point
    Antoni

    Application.OnTime

    Y porqué no lo dejas así; Private Sub Workbook_Open() MsgBox "Es importante recordar enviar el correo de los marchamos retirados al Laboratorio!!" & vbNewLine & "Revisar el retiro de las muestras de leche en almacenes", vbExclamation, "JBalladares ---- Aviso automático" If Range("H1") = "ACTIVAR" Then Application.OnTime TimeValue("19:02:00"), "Recordar" End Sub Recuerda que esta macro solo se ejecuta al abrir el libro.
  32. 1 point
  33. 1 point
    Adjunto ejemplo. Saludos Horas.xlsx
  34. 1 point
    Pues aquí va. ayuexcel.xlsm
  35. 1 point
    Antoni

    Recorrer argumentos de una función

    No se si esto te puede servir: Ejemplos de ParamArray Un ejemplo de código: Option Explicit ' función que utiliza ParamArray Private Function Calcular_Maximo(ParamArray Los_Valores() As Variant) As Variant Dim i As Integer, Maximo As Variant 'Recorre el array For i = LBound(Los_Valores) + 1 To UBound(Los_Valores) If Maximo < Los_Valores(i) Then Maximo = Los_Valores(i) End If Next Calcular_Maximo = Maximo End Function Private Sub Command1_Click() 'Le envía la lista de parámetros MsgBox Calcular_Maximo(165, 654, 6897, 265, 6598, 999999), vbInformation End Sub
  36. 1 point
    torquemada

    Como Graficar esta secuencia de texto

    Hola @Silvia. No te preocupes, ya tiene la respuesta aquí: http://foro.todoexcel.com/como-graficar-esta-secuencia-de-texto-t48071.html Saludos. P.D. Ya sabeis, creo una plantilla y la esparzo por el universo.
  37. 1 point
    Hola El código que colocas funcionaba hasta la versión 2003 de Excel, o sea, hace bastantes años. si tu intención es deshabilitar las opciones de la Cinta de Opciones, necesariamente tienes que modificar tu archivo mediante, por ejemplo, Custom UI Editor. Ah, eso tienes que hacerlo ya sea con Excel o con Word. Si quieres solo usar macro, prueba colocando esto en el módulo de la hoja en donde quieres el efecto: Private Sub Worksheet_Activate() Application.CutCopyMode = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.CutCopyMode = False End Sub Abraham Valencia
  38. 1 point
    ok, gracias, sí estaba ocupando esa herramienta, y lo que me cuentas sobre los duplicados escritos diferentes era lo que me complicaba, gracias Silvia.
  39. 1 point
    determinar cuales celdas están "bajo una figura incrustada" en una hoja de cálculo es un reto de varias aristas: el adjunto lleva una copia del archivo original más una hoja con "equivalencias" trasladadas a rangos que permiten analizar algunas de las aristas (p.ej.) - las celdas de la hoja terminan por ser rectángulos (cero oblicuidades) - las figuras incrustadas NO son parte de las celdas, están en la "capa de dibujo" de la hoja (y son flotantes) - determinar sobre que rango "flota" una figura incrustada es sencillo, el "pero" está en lo siguiente: - las figuras (aun líneas rectas pero oblicuas) guardan un "reflejo rectangular" del área sobre el rango donde flotan - si se "agrupan" dos (o más) lineas en diagonal se puede notar un rango más grande de las celdas "bajo la figura", ver primera macro (rangoDeFiguras) - esto se puede observar con la segunda macro (ubicacionDeFiguras) que reporta los rangos (aparentemente) "invertidos" de las figuras en diagonal " / " (no así en el caso " \ ") - los rangos reportados "conservan" esa dirección de celdas "izquierda-arriba => derecha-abajo" (.TopLeft - .BottomRight) - lo que lleva a la necesidad de calcular el ángulo de la recta para determinar las celdas "reales" por las que atraviesa la línea la primera macro está tomada de esta conversación: excel vba find range object occupied by shape object en el caso de determinar si "x" celda forma parte de un rango (hoja2) la cosa es más sencilla el formato condicional fue aplicado usando el caracter de intersección de rangos en fórmulas y funciones (un espacio entre rangos) a través de nombres, ya que no se puede aplicar en directo sobre formatos condicionales (ni algunas otras herramientas) bueno, no comento más ya que el material de estudio para resolver el tema de "celdas bajo figuras incrustadas" puede aparecer en cualquier lado (combinados ?) celda en rango (ayudaExcel).xlsm
  40. 1 point
    Yo creo que, en teoría, no hace falta el ancho y alto de una celda, puede ser variable... Todas las celdas tienen una propiedad Top, height, width, left, etc que puedes chequear con las coordenadas de la forma... Igual por ahi puedes solucionar el problema.
  41. 1 point
    Silvia

    Como Graficar esta secuencia de texto

    hola Alistair Revisa el adjunto.. saludos, Silvia Ejercicio 3 sq.xlsx
  42. 1 point
    Hola, Perdona si te molestó mi comentario. Al leer rápido entendí que te referías a un archivo en la nube y no a "tu" archivo en la nube... Saludos.
  43. 1 point
    avalencia

    Macro excel en Access

    Hola Si bien el VBA es el mismo para todos los programas de Office (y otros), al ser los objetos, propiedades y eventos diferentes, no existe una forma de traspasar lo hecho en Excel a Access de manera rápida o fácil, necesariamente tienes que aprender/entender algo de cómo usarlo en Access. Abraham Valencia
  44. 1 point
    Héctor Miguel

    Calendario perpetuo

    si no recuerdo mal, por allá de mayo de 2010 ya habías preguntado algo por un calendario perpetuo con diferente "arreglo" (?) y si entiendo bien y por "días de la semana" te refieres a las celdas con formato personalizado de tipo "ddd", mira el adjunto en devolución calendario finde (ayudaExcel).xlsx
  45. 1 point
    Hola @José Mª. ¿Quizas, porque no estas sumando las columnas de tres en tres, si no cada tres columnas? Saludos.
  46. 1 point
    sumar1.xlsm
  47. 1 point
    GabrielRaigosa

    algun formato de presupuesto

    Puede intentar con las plantillas en linea que ofrecce Excel
  48. 1 point
    Holas! De acuerdo con @AlexanderS Power Query esta diseñado para transformar nuestras BD y Dax para poder calcular nuestras TD PQ es como VBA y Dax las formulas en Excel, solo que mas potente, pero si en realidad lo que deseas es mostrar una Tabla en vez de TD, te adjunto una solucion con Power Query PD: las BD no deben tener filas vacías, aunque en PQ, es facil de resolver Saludos a ambos Emular tabla dinamica con power query_GP.zip
  49. 1 point

    Version 1.0.0

    65 downloads

    Este es un ejemplo de un Formulario donde tiene la opción de Nuevo, Editar, Eliminar, Buscar, Guardar, Cancelar, Ir al Primero, Ir al Anterior, Ir al Siguiente, Ir al Ultimo y Salir en una Base de Datos de Excel. Con la facilidad de presentar una Imagen por registro. Saludos.
  50. 1 point
    LeandroA

    MSO UI Editor

    Version 1.0.0

    34 downloads

    MSO UI Editor es una herramienta para personalizar la interfaz de usuario de Microsoft Office como ser la cinta Ribbon, Menu contextual entre otras, mediante el formato XML, es casi una copia del “Custom UI Editor For Microsoft Office” pero éste trae unas pequeñas mejoras. Esta programado en Visual Basic 6. Cuenta con un detector de errores en la formación del xml y utiliza .xsd que garantizan una mejor validación. También genera automáticamente los Callbacks para los eventos en VBA, otra opción extra es que se puede buscar y reemplazar en el xml. Me hubiera gustado poder armar algunos ejemplos pero me ganó el cansancio y opté por subir algunos que encontré en la web. Si desean leer mas sobre esta herramienta o conocer su codigo de fuente pueden acceder desde mi Blog donde estaré publicando nuevas versiones. http://leandroascierto.com/blog/mso-ui-editor/ Espero que alguien de aqui le pueda sacar provecho y subir algún trabajo que realicen.
  • Newsletter

    block_newsletter_signup
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5