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)

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

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.

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

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…

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…

Buenas tardes!A través del presente requiero de su valioso apoyo para saber como utilizar la Referencia XML V6.0 Ya que el siguiente código me funciona correctamente con la versión 3.0, y me gustaría saber como actualizar para que funcione de la misma manera. Codigo XML v3.0 Option Explicit 'Variables de Lectura de archivos XML Private DocumentoXML As MSXML2.DOMDocument Private ListaNodos As MSXML2.IXMLDOMNodeList Private Nodo As MSXML2.IXMLDOMNode Function CargaXML(RutaXML As String) Set DocumentoXML = New DOMDocument DocumentoXML.Load (RutaXML) End Function Function Comprobante(Ruta As String, Dato As String) CargarXML (Ruta) Set ListaNodos =…

con que codigo puedo deshabilitar autoguardado ?

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

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

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

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

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

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

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.

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

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

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

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") …

ola a todos espero puedan ayudarme... e realizado un formulario para consultar mi inventario con diferentes criterio mediante combobox, y me funciona perfectamente.... lo q quiero q me ayuden es en el combo de fecha... quiero filtrar las vacias... me explico en la columna de fecha tengo celdas q estan con una fecha determinada y tambien hay celdas q estan vacias... ojo las hojas estan totalmente ocultas.... saludos INVENTARIO DE PIERRE DUCASSE-ULTIMO.part1.rar INVENTARIO DE PIERRE DUCASSE-ULTIMO.part2.rar INVENTARIO DE PIERRE DUCASSE-ULTIMO.part3.rar INVENTARIO DE PIERRE DUCASSE-ULTIMO.part4.rar

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…

Estimados, tengo una macro que copia en una hoja el contenido de todas las demas, el problema se presenta cuando lo corro en un archivo que tiene 1017 hojas. el codigo de la macro en mencion es el siguiente Sub uoooooooooooooooo() Sheets("union").Select ULTIMF = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1 For hoja = 2 To Sheets.Count Sheets(hoja).Select ufh = Range("A" & Cells.Rows.Count).End(xlUp).Row Range("A1:BA" & ufh).Copy Sheets("union").Select ULTIMF = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1 Range("A" & ULTIMF).PasteSpecial Paste = xlPasteAll Next hoja MsgBox ("fin proceso") End Sub 00LB…

Que tal a todos. Soy nuevo en este foro. Solicito de su apoyo y amable cooperación para realizar un macro el cual su funcion sea la siguiente: Tengo una carpeta con mas de 1000 archivos .xls los cuales quiero unir es un nuevo archivo de excel; los archivos tienen las mismas columnas, el problema es que el rango en cada archivo es variable. En el archivo Juntar.xls tengo lo que llevo de la macro, podrian ayudarme a solucionar este problema. Option Explicit Sub LlenaCuadros() Dim wb As Workbook Dim strArchivoExcel As String Dim strNombreCarpeta As String strNombreCarpeta = PonDiag(ActiveWorkbook.Path) 'preparar carpeta ChDir strNombreCarpeta strArchivoExcel = Dir(…

Hola buenos días amigos de Ayuda Excel, acudo nuevamente a ustedes para que me ayuden con esta macro. Muchas gracias Necesito una macro que limpie el contenido de las celdas A,B,C E,F,G de la fila que yo decida seleccionar. No me sirve eliminar la fila pues siempre debe mantener en este caso las 30 filas disponibles para incluir información LIMPIAR CELDAS.xlsm