Máximos colaboradores

Para esa versión se me ocurre usar otra web y una UDF: Function InsertQRCode(celda As Range) As String Dim mirango As Range Dim QRCodeURL As String Set mirango = Application.Caller QRCodeURL = "https://quickchart.io/qr?text=" & celda.Value With ActiveSheet.Pictures.Insert(QRCodeURL) .Left = mirango.Left .Top = mirango.Top .Width = mirango.Width .Height = mirango.Height End With InsertQRCode = "" End Function

Hola a ambos, Varias opciones: En el ejemplo presentado, se observa que las posiciones abscisa/ordenada son las mismas en las tablas fuente y destino. Si va a ser así, bastaría con: =I3:L6 fórmula que, colocada en F26 devolvería los resultados. Otra forma abreviada podría ser: =BUSCARV(D26;H$3:L$6;{2\3\4\5};) fórmula que habría que insertar en F26, y copiarla verticalmente hasta F29 para obtener los mismos resultados. Pero eso sí: siempre que el orden de las columnas también sea el mismo que el de la tabla fuente. Y por último, ya que tienes Excel-365, también podrías emplear: =EXCLUIR(REDUCE(0;D26:D29;LAMBDA(a;b;APILARV(a;BUSCARV(b;H3:L6;{2\3\4\5};))));1) fórmula única, que introducida en F26, devolverá una matriz dinámica con todos los resultados. Si entre esto y la aportación de @Israel Cassales ya queda resuelta tu petición, perfecto. En el caso de que el problema pueda abarcar otras vertientes y exceder en complejidad (filas o columnas en posiciones diferentes, por ejemplo), mi recomendación es que subas otro archivo, pero esta vez con el escenario más difícil que pueda existir, para ver de aportar nuevas posibilidades de solución. Saludos a ambos,

el comportamiento que describes se ha reportado desde hace varios años y en toda version de excel, algunas (posibles) causas... - el complemento PDFMaker (y muy probablemente otros) - cerrar un libro con un UserForm 'cargado' en memoria (aunque no este visible) - hacer consultas (SQL) al mismo libro (segun version de creacion) - crear instancias de excel > abrir libros para consultar > y cerrar con su ventana oculta - definir y asignar variables de objeto y NO 'terminar/destruir' al final de los procesos

Duda BUSCARV - AYUDA EXCEL.xlsx

Te respondí en el otro lado. Saludos.

Function InsertQRCode(celda As Range) As String Dim QRCodeURL As String On Error Resume Next ActiveSheet.Shapes("QR").Delete QRCodeURL = "https://quickchart.io/qr?text=" & celda.Value With ActiveSheet.Pictures.Insert(QRCodeURL) .Name = "QR" .Left = 500 .Top = 25 .Width = 300 .Height = 300 End With InsertQRCode = "" End Function Adáptalo a tus necesidades.

Buen día, Así como está explicado se puede suponer que la función CONTARA() debería ser útil y un VBA similar replicaría lo que hace esa función, no tiene mucho sentido. Ahora, si se trata de deducir (que no es lo mejor) tal vez es posible que usted tenga un rango con diferentes celdas en formato de diferente color y por discriminación necesita contar las celdas que se vayan "despintando", en ese caso la función mencionada NO SERVIRÁ. ¿El rango es fijo? ¿El rango cambia a selección del usuario? ¿Cualquier clase tipo de texto? ¿Se refiere a valores y texto? Por qué no muestra un ejemplo con el resultado a obtener, así es posible recibir mejores propuestas o ideas.

Gracias feliz año 2025 para ti también.

puedes compartir el codigo que te sugirio copilot ? prueba (en excel) a guardar tu libro como binario (*.xlsb), al menos, google-calc no puede abrir ese tipo de archivos (lo que obligaria al usuario a usar excel) pero falta comprobar que pasa si ese *.xlsb se abre con numbers u otra aplicacion de hojas de calculo (?), ante lo cual... (ya veriamos de dar algunas 'vueltas de tuerca' ?)

Hola. No hay forma de evitar que un archivo de Excel se abra en otros programas que sean compatibles; asimismo, las macros de VBA no pueden ser usadas en web, solo funcionan en Excel de escritorio. Tal cual lo planteas al parecer quieres un archivo conectado mediante internet para lo que no te será útil Excel.

PERFECTO!!!!! Dar las gracias públicamente a este SEÑOR, que ha tenido la paciencia del Santo Job. Es un crack. Es un trabajazo el que ha hecho, a parte de toooooodas las modificaciones que le he pedido. MUCHÍSIMAS GRACIAS!!!!!!!! Por todo.

@Fernando Reyes Chavarria Es importante seguir la recomendación del Moderador en ampliar los detalles para recibir más posibilidades de ideas. Con lo que describe me parece (o al menos eso entiendo) que busca tener dentro del gráfico dos siluetas donde el relleno se aumente o se disminuya de acuerdo al porcentaje de la operación que viene en su libro, algo como la imagen: Pero con siluetas humanas, creo. De ser así la idea es simple, en su gráfico debe remplazar las formas por las formas humanas transparentes, luego agrupar con las formas que tendrán el relleno auto ajustable que dependerán del resultado de la fórmula. Aunque puedo estar equivocado y queda esperar a que usted de una información más amplia. Saludines

Un año más en este foro aprendiendo de los demás y tratando de aportar lo mejor posible, espero que se encuentren bien cada uno de los que participan en el foro, consultantes, miembros, maestros, moderadores, administradores... ¡bendiciones y buenos deseos! ¡Feliz Navidad 2024 y Año 2025! Saludines

El archivo Propuesta25122024.xlsm

Te entendí bien, pero me quede a medias, únicamente hacia lo que pedias cuando ponías directamente el NHC y no cuando lo buscabas con la lupa, prueba ahora y comenta

Private Sub UserForm_Initialize() Dim hoja As Variant For Each hoja In Sheets If hoja.Name <> "Alta" And hoja.Name <> "Auxiliar" And hoja.Name <> "ddTraDa.hoja" Then ComboBox8.AddItem hoja.Name End If Next TextFechaReg = Format$(Date, "dd/mm/yyyy") End Sub Cambia en tu formulario Private Sub UserForm_Initialize() por este y solamente te cargara las hojas que necesitas actualmente, cuando añada nuevas que quieras incluirlas debes cambiar el código a tus necesidades.

Prueba y comenta Propuesta27102024.xlsm

Si está configurado así, como tendría que ser?

Utiliza la función CDbl() en lugar de Val().

El archivo Cemento.xlsm

Parece que el consultante @RubenDario no ha tenido oportunidad de dejar sus comentarios, esperando que cualquiera de las propuestas recibidas en el tema le haya servido, de mi parte concluyo mi participación. Saludines