Buenas noche amigos me gustarian que me den una ayuda he encontrado en el internel un código para extraer imágenes a excel desde una carpeta pero quiero mejorar. La idea es; tengo una carpeta de imagenes y quiero desde excel digitar el código (código de la carpeta origen) en una celda "A2"que tiene un combobox y que la imágen aparezca en la "B2" con dimensiones predeterminadas y al digitar el siguiente código en la celda "A3" se cargue la imágen en "B3" y así sucesivamente porque quiero mandar esto por un correo. Le adjunto el archivo para que ayuden amigos. Gracias por su tiempo Demo2.0.xlsm

Buenos días! Amigos estoy buscando una solución que me permita enviar un correo en nombre de otra cuenta, en lo que he logrado leer es posible, la siguiente instrucción trabaja bien, pero al momento de intentar agregar .AddAttachment "C:\Users\jballadares\Desktop\Comprobante.pdf", me salta el siguiente error (imagen adjunta), podrían ayudarme como resolverlo de forma que me permita adjuntar un documento : Sub SendEmailOnBehalf() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim olMailItm As Outlook.MailItem Set olMailItm = Outlook.CreateItem(olMailItem) With olMailItm .SentOnBehalfOfName = "Boletarecolectores@do…

Hola de nuevo compañeros, ¿Cómo puedo hacer para mostrar toda la información contenida dentro de un array en un sólo cuadro MsgBox? Tengo el siguiente código de pruebas con dos opciones disponibles, pero ninguna de las dos funciona: Sub pruebas() ' Declaramos las variables... Dim miArray() As Variant miArray = Range(Cells(2, 1), Cells(2, 8)) ' Opción 1: ' MsgBox Join(miArray(1, 3), vbCr) ' Opción 2: For i = 0 To UBound(miArray) msgString = miArray(i) & vbCr Next i ' Mostramos el contenido del array... MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString End Sub

Hola! Necesito crear alrededor de 120 libros, los cuales deben contener dos hojas cada uno. Dichas hojas son extraídas de dos libros diferentes. Lo que estaba haciendo era crear, a partir del "libro 1", un archivo por cada hoja que contiene dicho libro, usando una macro. Luego, abría cada uno de esos archivos y movía, manualmente, la hoja que les correspondía del "libro 2". Es importante mencionar, que tanto el "libro 1", como el "libro 2" contienen 120 hojas, las cuales pertenecen a cada nuevo archivo. ¿Existe alguna forma de crear los 120 archivos de forma automática? Desde ya agradezco cualquier información que me puedan aportar.

Hola, espero que me puedan ayudar, estoy haciendo un filtro con varios criterios variables, el tema es que cuando una de las celda esta vacia lo filtra como vacia y lo filtra asi. yo quiero que si esta vacia no filtre nada esa celda les paso lo que hice, no se como agregar if then. bueno si alguien me puede dar una mano porque estoy desesperado!!!!!!!!!!!! Sub filtro() Sheets("Importar").Select Range("A1").Select If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Range("$A$1:$T$100000").AutoFilter Field:=1, Criteria1:=">=" & [shipto_inicio], Criteria2:="<=" & [shipto_final] Range("$A$1:$T$100000").AutoFilter Field:=2, Criteria1:=">=" & …

hola, no encuentro la forma de completar textbox de un userform en vba excel desde sql server por favor ayuda gracias

Buenas noches, gusto de saludarles. He estado revisando los diferentes aportes pero no he encontrado, lo que realmente necesito. Por ello es que solicito vuestra comprensión y ayuda. Requiero de una macro que: Liste los archivo de la carpeta que seleccione, y de todas las sub carpetas que contenga esa carpeta, y que obtenga los datos que indico en la cabecera: Nombre del archivo, ruta, carpeta, extensión o tipo, y los muestre en una hoja según el archivo. PD.: la carpeta se debe escoger en una ventana similar a la imagen que muestro en el archivo adjunto. Gracias anticipadas por la atención Callao2908 Listar carpetas y archivos.xls

Hola amigos de AE, estoy tratando de unificar dos macros en una sola ya que tienen los mismos eventos pero no logro hacerlo. A ver si me pueden dar una mano. La macro fue creada por Haplox y funciona a la perfección, pero me he dado cuenta que la finalidad de la macro también debe aplicarse a las columnas E y F de la hoja LISTADO GENERAL en función de los datos reflejados en la columna D (DATO 4) de la hoja COLORES. Es decir, por ejemplo, el valor reflejado en D5 correspondiente a SUB AMARILLO de la hoja COLORES, debe actualizarse de manera automática cada vez que este valor cambie. Cabe señalar, que D5 y siguientes se actualiza automáticamente de la hoja AMARILLO y …

Tengo un Formulario, que me permite el ingreso de datos para llevar el control de ventas. Ocurre que me cambiara un poco dada la solicitud de cambio de forma de cuadrar o llevar el control de conteo de fichas. Para ello necesito encontrar el ultimo valor de "Fichas por Pagar" (Columna Q), dado un centro de costo (Columna . Encontrando esta forma de llevarlo al Userform, el resto es ingresar los valores en los Textbox y hacer sumas y restas. Alguien me puede dar algunos tips para encontrar la forma de lograr el ultimo a través del userform? Control de Fichas.zip

Hola a todos! He buscado por aquí y por la web y no he visto nada resuelto. Necesito mover unas carpetas con lo que contienen a otra u otras. El listado de los archivos y documentos con su ruta lo tengo. ¿Tiene alguien hecho alguna macro sobre esto? Muchas gracias. Un saludo

Buenas qué tal gente. Una consulta, hay alguna ruta o comandos para que pueda abrir WhatsApp desde excel? Desde ya muchas gracias!

Buenos días, Lo que sucede es que estoy teniendo problemas con una macro que estoy ejecutando pues me aparece el error que hace referencia a que el procedimiento es demasiado largo, no he podido reducirlo pues son al rededor de 270 variables que debo incluir, en el archivo adjunto incluyo una pequeña parte de esta macro donde solamente relaciono 2 variables y corre a la perfección. En general, lo que pretendo es pasar de un documento a las 270 variables al oprimir el botón "Formato". He intentado dividir el procedimiento en varias partes pero no lo he logrado, quisiera pedir su colaboración con este tema pues por más que lo intento no lo he conseguido. Este código es e…

buenas tardes, Estoy haciendo una macro la cual necesito seleccionar varias combinaciones de checkbox pero me gustaría si existe algún código que pueda resumir el código ya que son muchas combinaciones. El archivo consta de 2 grupos de checkbox: Grupo1: 8 checkbox (que se pueden eligir todas las combinaciones, es decir, todos o solo 1, o 2 o 7, etc) Grupo2: 4 checkbox (Se debe elegir solamente 1 de los 4). Por tanto existen muchas combinaciones, por ejemplo: - 1 checkbox del grupo 1 con el checkbox1 del grupo 2 - 1 checkbox del grupo 1 con el checkbox2 del grupo 2 - 8 checkbox del grupo 1 con el checkbox1 del grupo 2 - 5 check…

Hola tengo una macro que he utilizado correctamente antes desde windows, necesito abrirlo en MAC. Primero elimine todos los ActiveX controls para que funcione en mac y cambie algunos codigos. Ahora cuando trato de ejecutar el boton me sale error, es porque estoy usando RowSource el cual no funciona en mac. He probado distintos codigos sin exito. Este es el codigo del user form que tengo Private Sub UserForm_Initialize() Dim Uf As String Uf = Hoja3.Range("A" & Rows.Count).End(xlUp).Row ComboBox1.RowSource = "Registros!B2:B" & Uf End Sub Agradeceria si pueden ayudarme a cambiar este codigo sin alterar la …

Buenos días,Amigos(as) quisiera solicitar la ayuda a mi problema, estoy intentado crear un formulario que contiene 2 listbox, pero necesito que el resultado de la columna# 3 se exprese en formato hora(hh:mm) en cada listbox para mi ejemplo serian 2.Agradezco la ayuda que me puedan dar.Saludos Jose Consulta foro.xlsm

hola que tal compañeros estaba trabajando en Excel modificando un código de un formulario y todo iba bien asta que salí de Excel y volví entra para continuar el trabajo y me encuentro con este error

Hola amigos, aquí nuevamente solicitando ayuda, he visto archivo similares pero no he sido capaz de adaptarlo a lo que necesito, por esto he pensado que mejor prepararlo completo y así evitar líos con varios archivo y después adaptación al real, a ver he creado un archivo que será para una base de datos en un control de alumnos para cursos de karate, ya he creado el UserForm con todo relleno en lo que se refiere a datos que llevará dicha base de datos, en el archivo está todo explicado creo que bastante claramente, aunque por comentar algo diré que la intención es de insertar todos los datos de la ficha en la hoja BASE DE DATOS, tener las opciones de búsqueda de alumnos p…

Hola soy nuevo en esto pero tengo un problema con una macro que estoy corriendo, la macro se corre al momento de hacer un cambio en la celda (A1) y si funciona la macro pero me aparece el mensaje de Run-time error '13': Type mismatch y pues no se a que se deba esto, si me pueden ayudar se los agradeceria mucho les dejo el codigo y marcado en rojo donde me aparece el error cuando le doy debug: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = Range("A1") Then Call prueba End Sub Gracias!! pivottable filters (test)01.zip

Me gustaría que me solucionarais un problema con excel 2003. Necesito una macro que compare la columna A de la hoja 1, con otra columna A de de la hoja 2. y si son iguales la celdas que copie la celda que corresponde con la fila de la Hoja 2 columna B a otra celda de la hoja 1. muchas gracias Libro1.xls

Desde ya gracias por su ayuda, necesito consultarles una duda acerca del funcionamiento de las tablas dinámicas con macros. Tengo que buscar una fila especifica dentro de una tabla dinámica con una macro, por ejemplo tengo una tabla dinámica que tiene como etiqueta de fila fechas, por lo tanto me muestra una lista de fechas y yo quiero recorrer la lista de fechas hasta encontrar una especifica y luego tomar el valor de algún valor que quiera en la misma fila. También les agradecería si pueden guiarme con algunos manuales o ejemplos donde pueda ver el funcionamiento de las tablas dinámicas con macros, no crear tablas sino operar con las mismas dentro de una macro, por ej…

Hola a tod@s, agradecería mucha que me ayuden, debo hacer una planilla que calcule el material que se ocupara en la fabricación de un pedido de cortinas, principalmente la tela, la cual necesito saber cuantos metros lineales se ocuparían por cada tela del pedido. Les explico como funciona, solicitan medidas de cortinas, ancho x alto y debe elegir el tipo de tela (entre otras cosas). Teniendo estos 3 cosas fundamentales, ya deberíamos poder calcular la cantidad de tela a utilizar. Teniendo en cuenta que los rollos de telas miden 2.8 mts por 30 m de largo, si hay 2 o más medidas (ancho de cortina) si la suma de sus anchos sume igual o menor a 2,8 m, solamente se considera e…

Hola, que tal, soy nuevo en el foro, y nuevo en la programación en excel, mirando el código aquí he aprendido bastante, pero no he logrado encontrar o manejar este pequeño problema que tengo. (Realmente no sé como manejarlo). Tengo esta macro que busca el valor numérico que se encuentra en un TextBox dentro de la columna A, y luego lo selecciona, esta rutina se ejecuta en el AfterUpdate y de ahí lo que hace es seleccionar la celda encontrada(el código lo encontré por alguno de los temas aquí). Pero, lo que no sé como manejar es que si no encuentra el valor correspondiente me mande un msgbox y de ahí devuelva el focus a esa misma caja. Ahora mismo al ejecutarla y buscar u…

hola, como puedo generar claves o serial de licencia en vbaexcel para un aplicativo demo con determinado tiempo o contador de uso, que al ingresar en una caja de texto me desbloquea y no me vuelva aparecer mas el formulario de clave o serial. Bueno las claves tendria que enviarle yo por correo. Saludos se agradece su ayuda.

Hola a tod@s Tengo un formulario con varios TextBox y un Label. Tengo la siguiente instrucción para que dependiendo de la pantalla, y su resolución, este formulario se expanda. Pero lo que no consigo, porque no se como se hace, es que los TextBox y el label, se centre automáticamente dentro del formulario. Gracias anticipadamente por vuestra ayuda. Private Sub UserForm_Initialize() Me.Height = Application.Height Me.Width = Application.Width End Sub

La impresion predeterminada en la impresora de mi empresa es en blanco y negro. Como puedo hacer para que una macro VBA que imprime un listado de archivos lo haga en color ?