Buenas tardes, de nuevo por aquí pidiendo ayuda ?‍♂️ . Espero que se encuentren bien. He buscado como hacer para crear codigos qr desde el valor de una celda y he encontrado un codigo, pero no me funciona. Adjunto el fichero que tengo con el código. El error salta en la línea Set QR = ActiveSheet.Pictures.Insert(Ruta) ¿Cómo podría solucioanr este error.? Gracias de antemano. Un cordial saludo. QR Excel.xlsm

Ando Atrapado En Mi Proyecto De Control De Almacén en un pequeño error de que no puedo mostrar mas de diez columnas en mi listbox y no se como solucionar ese error lo deje comentado en el listBox programación dejo el archivo para ver si alguien me puede apoyar y pues si el archivo les sirve os dejo como obsequio INVENTARIO.xlsm

hola amigos tengo un problema deseo copiar datos de un libro excel a otro con un simple boton eh leido en otras guias como se hace incluso baje unas hojas de muestra donde ya posee el codigo hecho y funciona a la perfeccion ahora! yo quiero cambiar de ruta pero me da un error al consultar la informacion con el creador el me indica que cambie una formula al cambiarla me da error de sintax a ver si ustedes me pueden ayudar 1: formula original Sub CopiarCeldas() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel d…

Hola estimados foreros, es posible que me puedan apoyar por favor...no sé y la verdad no entiendo el porqué del error que arroja al querer registrar un nuevo item (sondaje), me explico... en la hoja "BD" hay un botón de "agregar", éste al pincharlo se dispara el formulario con algunos datos de la tabla, luego si es que quiero registrar un sondaje nuevo (botón registrar) , al momento de digitar cualquier tecla... se dispara inmediatamente un mensaje con el error mencionado en el título de este tema. Por lo que estoy estancado en este punto y no puedo seguir avanzando para dejar funcionando el resto de los botones. Adjunto el archivo por si alguien me puede ayudar a sacar e…

Como Ingeniero Civil, elaboré una Bitácora de Obra, con Calendario cuyo día está enlazado con una Celda; genera Imágenes (del estado de la Obra). Aparte tengo un Reloj digital LED. Quiero colocar este Reloj digital LED, en una celda de la Bitácora Bitácora.rar Reloj digital LED.rar

buenas tardes genios de la programación vuelvo otra ves al foro por ayuda otra ves mi problema es el siguiente tengo un formulario que me filtra desde un combobox por fecha pero cuando lo filtro con con el segundo combobox me filtra pero me desordena las columnas del listbox y me quita las cabecera del filtrado me podrian guiar con este problema y explicarme porque pasa espero haberme explicado subo el archivo PRUEBA.xlsm

Holas gentes.. estoy agregando un modulo para que me copie las celdas de mi excel a mi word, pero nose como los parametros de paste adjunto el codigo: Sub Copiar_Excel_a_Word() Hoja1.Range("A1:B1").Copy 'crear nueva aplicación Word Dim appWord As Word.Application Set appWord = New Word.Application With appWord .Visible = True .Activate End With 'crear nuevo documento Word appWord.Documents.Add 'pegar celdas Excel appWord.??????????????????????????.Paste 'liberar el objeto Word Set appWord = Nothing End Sub [/PHP] Una ayudita plis para quienes sepan como se puede hacer.

Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano Adjunto también la macro. MEvento.zip

con que codigo puedo deshabilitar autoguardado ?

Buenas noches, quisiera que me ayuden con lo siguiente. Necesito una macro para poder poner un mensaje de derecho de autor en la barra de estado de un libro de Excel (En la parte inferior). Ejm. Hecho por Edu..... He intentado con esta macro pero no me sale el mensaje Private Sub Worbook_open() Application.DisplayStatusBar = True Application.StatusBar = "Hecho por Edu" End Sub Nota. El mensaje que quede permanente y nadie pueda borrarlo.

Saludos. Deseo presentar una información mediante listbox, todo está bien menos una cosa: hay una columna donde la información tiene un formato personalizado (8 mA, 12 mA, 16 mA, etc), el "mA" es el formato personalizado. Pero el listbox no mantiene el formato y solo presenta (8, 12, 16,..). Cómo podría solucionar este incoveniente y hacer que el listbox mantenga el formato de origen de la celda? De antemano, gracias. (No adjunto archivo porque no lo veo necesario)

Buenas noches, expertos por favor tengo un macro creado para generar codigo QR masivo ejecuta todo bien pero no muestra las imagenes del QR, por favor me puede ayudar por que ocurre eso. Ajunto el archivo QR.xlsm

Buenas tardes, Amig@s del foro quisiera solicitarles apoyo estoy intentando conseguir una macro que se ejecute en una hora determinada para esto estoy utilizado el siguiente evento: 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" Application.OnTime TimeValue("17:21:00"), "Recordar" End sub Hasta ahí cuando el libro se abre, se ejecuta una macro que lanza un MsgBox en la hora establecida, pero quisiera condicionarlo a que si el valor de una celda co…

Hola Buenas Noches, me podrian ayudar, tengo este formato con 4 combobox, quisiera saber como pasar uno a otro al momento de presionar enter, y como limpiarlos una vez utilizados, con solo presionar el botos de "BORRAR DATOS", el cual ya tiene una macro para borrar otros datos....anexo archivo...gracias Recibo Fuera de Nomina.xlsm

La cuestión planteada es, que desde una macro (MiMacro) se seleccionen varias celdas alternas, en la misma columna, respecto de la celda activa que está comprendida dentro de un rango. Es decir, hay que seleccionar varias celdas en las posiciones relativas según la celda que esté activada inicialmente Gracias por la ayuda Prueba.zip

Saludos, es mi primera pregunta, sin embargo muchas veces me he beneficiado de sus aportes. Y en esta ocasión necesito saber, si hay posibilidad de hacer que un archivo que esta protegido por una contraseña pero que hace modificaciones por medio de botones asignados a macros y esos macros contienen la contraseña para deshabilitar la opción de protección, a pesar de estar protegido por contraseña el código del macros, si el usuario hace clic en desproteger no le pregunta la contraseña. Lo que quiero es deshabilitar la pestaña y que solo se pueda acceder con un botón que pregunte una clave o algún mecanismo alterno para evitar que desbloqueen la hoja. No se que se les pu…

Buenas tardes. Estoy intentando hacer una hoja que sirva para el juego de "Bingo". Falta todavía implementarle varias cosas, como por ejemplo la comprobación de la línea y el bingo, pero por ahora, encuentro unos pequeños inconvenientes, que no sé cómo solventar. Aparte de que me he vuelto loco para que el wait funcione medianamente bien, porque dependiendo de dónde coloque las líneas y dónde coloque el comando application.wait, los números se cantan y aparecen en la pantalla a su bola. Parece que ahora con la estructura que tengo, funciona medianamente bien. Me surgen dos problemas: Uno es que si nada más empezar el sorteo, doy a ESCAPE, …

Buenos días colegas. Espero se encuentren bien de salud. No acabo de salir de una y ya estoy en otra. El Sistema de Pre-Nominas que algunos de ustedes me han ayudado a terminar y que felizmente ha esto trabajando sin problema alguno, acaba de darme este error: Error de sistema &H8000FFFF Error catastrófico He buscado en este Foro y vi algunas cosas de una anterior consulta, pero no me quedó claro nada y no se si después de eso alguien haya podido solucionar el dichoso problema y estamos a fin de mes y mi esposa que trabaja con el esta vuelta loca porque el sistema no le funciona...así que podrán imaginar... Me habla de memoria insuficiente, pe…

Hola de nuevo a tod@s ! No encuentro apenas información sobre la forma de trabajar con los SpinButton de los controles ActiveX de excel, al menos en lo que a fechas se refiere. Partiendo de un cuadro de texto con la fecha de hoy, mi intención es ir variando esa fecha en +/- 1 días según se van pulsando las flechas del SpinButton. Os dejo el archivo para ver si podéis echarme una mano. Muchas gracias y un saludo ! subir_bajar_fechas.rar

Estimados amigos del foro: Quería preguntarles si se pueden crear a nivel de una macro las ayudas explicando las variables de una formula o función personalizadas o definidas por el usuario Que esten bien saludos

Un saludo a todos alguien puede suministrar una macro que me copie todas las hojas de un libro menos una en especifico y las pegue en otro libro de excel??? no suministro ejemplo por no hay nada que yo pueda hacer,es solo cuestión que el codigo que se suministre pase las hojas de un libro menos una en particular a otro libro,encontre este codigo pero me da error Sub Copiahoja() 'Por.DAM ActiveWorkbook.Sheets("PLANTILLA").Copy Before:=Workbooks("libro1").Sheets(Workbooks("hoja1").Sheets.Count) End Sub y no se si hace lo que requiero la quise probar pero me da error gracias de antemano

Que propiedad debo de utilizar en un ListBox de varias columnas para que me pongo tanto las líneas verticales y horizontales (cuadricula separador de filas y columnas)

Saludos amigos los molesto para ver si me pueden ayudar en algo, llevo varios dias leyendo y releyendo en muchas hojas como poder crear un registro para mi escuela y llenar la data de los chicos con todos sus datos por medio de un formulario de visual bisic, pude hacer el formulario pero no logre codificarlo y les ruego ayuda, ya que me urge para organizar la data son mas o menos 2000 chicos. Me gustaria poder registrar, buscar, modificar. Gracias mil les anexo mi proyecto ojala me ayuden gracias PROYECTO ESCUELA.xls PROYECTO ESCUELA.xls

Me podrias ayudar a poder Guardar un UserForm como PDF asignandolo a un boton, yo imprimo el userform con me.printForm pero antes oculto el boton imprimir, luego lo habilito, pero no se como hacerlo en PDF.

Buenos días a los integrantes del foro, en esta ocasión recurro a uds, para que me brinden su apoyo con la siguiente macro, el cual me esta emitiendo un error en la segunda macro con el titulo Macro que permite grabar hoja en un nuevo libro, y es que al momento de guardar los datos de la hoja REPORTE a la hoja PRE_REPORTE y cuyo dato de la hoja REPORTE celda C3 no convierte como #¡VALOR! tras presionar SI, para lo cual anexo archivo y desde ya agradezco su atención y apoyo. Macro que copiar de una hoja a otra hoja: Sub CopiarReporte() Application.ScreenUpdating = False Set h1 = Sheets("REPORTE") Set h2 = Sheets("PRE_REPORTE") …