Leaderboard

Lo prometido es deuda: https://abrahamexcel.blogspot.com/2019/06/conectar-excel-con-excel-online-en.html Espero sea útil Abraham Valencia

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

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

Los genios somos así, jajaja 😋

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

¡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!

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

No me odies a mi que "so mu majo". 😂😂😂

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

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!

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

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

¿Y por qué buscaste en el Userform si estabas, estamos, hablando de un TextBox? Abraham Valencia

Sheets("Gestion").Select p = Split(Range("F3").Value, "/") p(1) = p(1) + 1 Range("F3") = Join(p, "/")

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

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

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

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

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

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. 😐

Abre el adjunto y pulsa sobre el icono. Las pruebas las he hecho con el archivo: texto a ser importado.txt ImportatTXT.xlsm

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....

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

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

Pon la propiedad ShowModal=False en el formulario o muéstralo así: UserForm1.Show vbModeless

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

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.

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.

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!

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

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.

Adjunto ejemplo. Saludos Horas.xlsx

Pues aquí va. ayuexcel.xlsm

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

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.

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

ok, gracias, sí estaba ocupando esa herramienta, y lo que me cuentas sobre los duplicados escritos diferentes era lo que me complicaba, gracias Silvia.

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

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.

hola Alistair Revisa el adjunto.. saludos, Silvia Ejercicio 3 sq.xlsx

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.

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

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

Hola @José Mª. ¿Quizas, porque no estas sumando las columnas de tres en tres, si no cada tres columnas? Saludos.

sumar1.xlsm

Puede intentar con las plantillas en linea que ofrecce Excel

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