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

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 , por favor quisiera que me den una macro que inserte imagenes, pero que las imagenes salgan centradas, tanto de izquierda a derecha como de arriba a abajo, y que el tamaaño de la imagen no cambie

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…

Buenas noches a todos los expertos en Excel. Hoy solicito de sus valiosos conocimientos y aportes para resolver este tema: Tengo una hoja en Excel que debe ser completada por diferentes Usuarios. Cada fila es un evento y todos los campos (celdas) de ese evento deben completarse antes de iniciar el registro de otro evento (Fila nueva). Si no se completan todos los campos los totales varían y presentan errores. Si queda un campo sin completar debería mostrar un mensaje. Este control NO debe realizarse mediante botones. Incluyo un ejemplo del formato que se utiliza para esta actividad, el cual debería quedar de la siguiente manera, para poder realizar las su…

buenas tardes expertos me preguntaba si existe un formulario que me de las siguientes opciones tengo un rango numérico que va desde a1 hasta sx42 y me gustaría lo siguiente 1.darme la opción de eliminar los números pares 2.darme la opción de eliminar los números impares 3 darme la opción de darme los datos como estaban desde un inicio antes de eliminar los números pares e impares muchas gracias ….

Hola. Pues mi duda consiste en tratar de utilizar (si es que es posible) la función: Cells.Find(What:= condicion1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate[/CODE] Esto funciona correctamente, pero solamente cuando se tiene una condición, y yo quiero hacerlo mediante la busqueda de 3 condiciones Estoy ocupando un userform donde mediante 3 textbox escriben las condiciones para que sea mostrada toda la información. [CODE]Cells.Find(What:= (condicion1, condicion2, condicion3), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows…

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

Muy buenas tardes expertos. Tengo una macro que se inicia al abrir el libro y si se dan ciertas condiciones, ejecuta otras macros. Una de estas macros, es enviar un correo y lo que busco es que con algún tipo de registro o algo, que el correo solo se pueda enviar una vez al dia. He probado que al ejecutar la macro, quede reflejada la fecha y hora de la ejecución de la macro, con formato de dd/mm/yy hh:mm Range("a4").Formula="=NOW()"[/CODE] Decir también que con otra macro y formulas en celdas varias, el libro solo funciona en horario de 6:00 a 14:00 horas, cerrándose automáticamente si la hora esta fuera de ese horario. Se agradece cualquier ayuda.

Buenas tardes, tengo un problema al importar un fichero de texto en formato CSV. Si lo importo manualmente, funciona sin problema pero estoy intentando automatizar dicha importación mediante una macro y algunas columnas no las importa bien. Adjunto una hoja (Hoja2.xlsm) con la macro citada (Macro2) y el fichero a importar (C:\Activities.csv). Al importarlo manualmente, la columna E (distancia) la reconoce cómo un número y lo alinea a la derecha, sin embargo al ejecutar lo mismo mediante la macro, esta columna no es un número dejándola alineada a la izquierda. ¿Podéis ayudarme? Llevo tiempo dándole vueltas y no sé lo que estoy haciendo mal? Muchas gracias an…

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

¿Cómo desplegar calendario en una celda de excel, similar a lo que se muestra en Project? Buenas a tod@s, No tengo mucho conocimiento de Visual o programación, por lo que les pido respetuosamente me tengan paciencia, he estado revisando varios temas de este foro para ver si puedo resolver mi inquietud, pero de los archivos que he descargado y que otros han subido para aportar soluciones a las consultas, cuando los abro y habilito los contenidos y pruebo los pasos que indican, siempre me sale un mensaje que dice: "No se puede cargar un objeto porque no está disponible en este equipo", por lo que mis consultas serían dos basicamente: 1. ¿Tengo que descargar algún complem…

Buenos días Como se puede poner la ruta donde guardar el fichero pdf en la macro que tiene esta hoja factura Gracias Factura.xlsm

Hola amigos solicito de su valiosa ayuda para el siguiente problema. Tengo un libro que contiene unas 40 hojas (y que cada 15 diás se va agregar otra hoja) y cada hoja contiene unos 20 mil filas. Lo que deseo hacer es poder buscar cualquier valor en todas las hojas que existen o que luego se agreguen y que los valores encontrados se pongan en una hoja en especial como tabla y diga el nombre de la hoja donde se encontró. Actualmente buscando en internet encontre una macro que hace una parte de lo que quiero, pero como no tengo grandes conocimientos en el tema no se como modificarlo para que me funciones como lo necesito. En el archivo anexo explico como quiero que que…

Hola intento correr esta instruccion y me arroja el erro de "No se ha definido el tipo definido por el usuario" y me marca la siguente linea : objXML As MSXML2.DOMDocument , alguien que me pueda ayudar. Gracias

Hola que tal amigos foreros, les tengo una pregunta. Estoy haciendo un userform que contiene un listbox hasta ahora todo bien, solo tengo el inconveniente que no recuerdo cual es la propiedad del Userform que me permite cambiar de libro ya que al intentarlo no me lo permite, tambien tengo el inconveniente de que los datos que cargo al listbox no se muestran completo debido a que en cada celda tengo un parrafo con mucho texto y deseo que se muestre todo el texto y solo se muestra una linea completa pero por el ancho del listbox no puedo ver toda la frase. Mi pregunta es cuales son estas dos propiedades para ambos casos? - - - - - Mensaje combinado - - - - - Ya resolvi l…

Hola muy buen día tengan todos ustedes. Miren es que tengo un problema, quiero registrar todo lo que compra, y en la hoja llamada "Orden Compra", en la columna A tengo todos los nombres de los producto que compro, mismos que valide en la celda G3, y lo que he realizado hasta ahora, es que por ejemplo yo en donde dice "Compras", ahí yo escribo la fecha, la cantidad y el tipo de producto que compre, y con las funciones Si y BuscarV, me acomoda los datos automáticamente, pero lo que yo quiero es que esa fórmula se convierta solo en Dato y que me quite la fórmula, porque por ejemplo, como esta ahorita cuando hago otra compra de otro producto en la misma fecha o en otra fech…

Hola, buen día! Tengo un archivo Excel (el cual adjunto) que consiste en 4 columnas de datos con sus respectivas columnas con semáforos en tres colores (verde, rojo y amarillo), los cuales de definen en función de las condiciones establecidas en una tabla incluida dentro de la misma hoja de cálculo. Se me requiere añada un SEMÁFORO FINAL de tres colores (verde, rojo y amarillo), el cual se defina en función de los colores de los otros 4 semáforos, por ejemplo: Si en la fila 1 los valores de cada una de las 4 columnas cumplieron las condiciones para que sus semáforos sean todos verdes, en consecuencia, por lñas condiciones establecidas para el SEMÁFORO FINAL, éste será V…

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)

Hola a todos. Tratando de terminar mi proyecto me encontré con un lindo problema. Hace unos meses pasé los valores nutricionales de carbohidratos, proteínas y lípidos de una pagina que tiene un vademécum de la mayoría de los alimentos que hay en el mercado argentino. La cuestión es que a medida que fui realizando mi proyecto me di cuenta que no era suficiente con esos datos que tenia y que necesitaba la totalidad de los valores nutricionales de cada alimento. Los alimentos que pase fueron 1550 aproximadamente, lindo trabajito... Investigando un poco me di cuenta que me podría haber ahorrado ese trabajito realizando una macro. Bueno, vayamos al problema real... Lo qu…

Hola compañeros, Estoy tratando de crear un evento de tipo Worksheet_Activate de tal manera que cada vez que un usuario activa la hoja, el evento reconozca si existe una tabla dentro de la hoja activa (en caso contrario, insertar la tabla). Se me ocurre algo así... Private Sub Worksheet_Activate() Const HOJA As String = "CALENDARIO" Const TABLA As String = "CALENDARIO" Dim contador As Byte For contador = 1 To ActiveSheet.ListObjects.Count ' Si la tabla no existe dentro de la hoja, entonces... If ActiveSheet.ListObjects(contador).Name <> TABLA Then ' Insertamos la nueva tabla... ActiveSheet.ListObjects.Add(xlSrcRang…

Hola, ya se que este tema está visto hasta la saciedad, y hay por ahí varios ejemplos de lo que yo intentaba hacer ( @Haplox, @Antoni, @Gerson Pineda, ….) pero después de un año sabático disfrutando de mi peque, me esta costando volver a ponerme al día, pero todo se andará... El caso es que me gustaría, si es posible, que se ordenase el combobox alfabéticamente, así seria más fácil seleccionar el cliente del que quieres saber las ventas y si es posible, mediante un checkbox ignorar aquellos clientes que solo tengan una venta en un periodo determinado, osea que no los cargue en el combobox, supongo que habría que recargar el combo, al activar el che…

saludos como el titulo lo dice, deseo saber como establecer el encabezado de un listbox pero personalizando los nombre de cada columna diferente a los él extrae automaticamente al importar los datos o agregar un titulo a las columnas de un listbox usando codigo vba o si no quedo clara la pregunta: ¿Es posible configurar los encabezados en un listbox de varias columnas sin usar un rango de hoja de cálculo como la fuente.? gracias

Eliminar una carpeta cuyo nombre lo tengo en la celda A1 Gracias anticipadas por la ayuda

Buenas, estoy intentando crear un botón que me copie unas celdas determinadas de un libro a otro y después que me vuelva a copiar éstas celdas de una hoja a otra. la primera parte la tengo resuelta pero ahora no se por donde seguir. Así tengo el código de momento: Sub CopiarCeldas() Dim Pesadas As Workbook Dim Destino As Workbook Application.ScreenUpdating = False Set Pesadas = Workbooks.Open("Z:\D.Calidad y Tecnica\2_Gestion de CALIDAD\Patri\TONI\pesadas.xls") Workbooks("pesadas.xls").Worksheets("BCT2DB").Range("B1:H7398").Copy Workbooks("destino.xlsm").Worksheets("BD").Range("A2") Pesadas.Close False End Sub La pregunta en …