Hola amigos, Espero alguien pueda tener una solución a mi problema, a lo mejor suene un poco repetitivo que otras consultas planteadas aquí, sin embargo ya he buscado en diferentes lados y no encuentro solución a mi problema, incluso yo supongo que debe de ser algo muy simple pero no logro encontrar la solución. El problema es el siguiente, tengo una macro para enviar un correo a mis clientes adjuntando su factura y archivo XML, sin embargo deseo firmar el correo con una imagen el cuerpo del mismo, el método de envío a través de webmail y no por Outlook como en varios temas se ha dado solución, la cuestión es que en el cuerpo de mi correo aparece un pequeño cuadrito gri…

Buenas días, tengo un Libro de excel "nuevos_datos" cuyos datos actualizan otras personas y me lo pasan a mi. Lo que tengo que hacer es pegar en mi libro "referencia" aquellos datos que son distintos del libro "nuevos_datos" y todas las celdas que se actualizan en "referencia" cambiar el color de la celda a Amarillo. Necesitaría una macro que hiciera las siguientes órdenes (o algo similar): Si Referencia.(A1) =nuevos_datos.(A1) 'comparar celda a celda los dos libros entonces Referencia.(A1); 'el valor de la celda se mantiene sino Copiar nuevos_datos.(A1) 'copiar el valor de la celda Pegar en referencia.(A1) Formato= amarillo 'tras pegar el valor tiene que cambiar e…

Hola amigos, tengo varios un combobox en un formulario dentro de excel, en un caso tengo cargado mediante el siguiente codigo: Sub UserForm_Initialize()Plan_inver.List = Array("FERUM", "PLANREP", "PMD", "FRYPMA") Arrastre.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011") Prog_ant.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011") Prioridad.List = Array("1 ALTA", "2 MEDIA", "3 BAJA", "REQUERIDO") End Sub en el otro caso estoy cargando los valores mediante la utilidad RowSource. El inconveniente que tengo es que cuando envío los valores seleccionados en el combobox, no funci…

Buen dia ..estimados Maestros del excel tengo un error que deseo corregir cuando busco una herramienta con Combobox y me muestra el listado de esta en listbox ( que esta bien) y despues de finalizado quiero dejar el combobox en vacio y que en el Listbox aparescan todas las herramientas nuevamente .. como lo puedo realizar..? por favor su gran ayuda , gracias atte Milton Villarroel Copia de existencias nvo 23 marzo 2020.xlsm

Hola amig@s... Quiero hacer una macro en la que a partir de una seleccion de archivos de una lista, al precionar un botón localice un archivo, lo abrá, copie cierta información y lo pegue en una hoja de trabajo del mismo libro donde esta el botón. Si no encuentra el archivo, lo que quiero es que dé un mensaje que diga que el "Archivo no existe". Inicie con el siguiente código en casa y si funciona, pero en la oficina no abre el archivo, aun que la ruta sea correcta: Sub IMPORTAR_EDO_CTA() ' ' IMPORTAR EL ESTADO DE CUENTA DE UN CLIENTE DETERMINADO X = Range("M6").Value Nota: esta es la ubicación de la lista en la hoja de excel On Local Error Resume Next Workboo…

Buenas para todos, he visto en algunos temas anteriores la realización de mapas, ahora mi consulta es la siguiente: Dispongo de un archivo en el cual voy seleccionado las ciudades y van apareciendo los nombres de los mismos, y a más de ello ¿es posible agregar la cantidad de habitantes por Densidad de puntos? Desde ya agradecería sus me puedan encaminar. Mapa Central.rar

en un formulario he colocado un webbrowser el cual es controlado por unos botones los cuales abren ciertas paginas de internet, el problema consiste en que las paginas web que se abren tienen un botón para cerrarlas, al hacer clic en este cierra el webbrowser del formulario, y al dar clic en otro botón manda un mensaje de error en el método 'Navigate' de objeto 'IwebBrowser2', como se le puede hacer para que el formulario se actualice y asi vuelva aparecer el webbrowser en el mismo. Gracias por la ayuda.

Buenas tardes, Cordial saludo, espero se encuentren muy bien. Tengo el siguiente problema con una macros y quisiera saber como solucionarlo: Estoy construyendo un lector de textos que agregue "carácteres especiales" cuando se dectecta en el texto una palabra con formato bold (Negrita). Igualmente me gustaría para Subrayado (Underline) pero no puedo continuar de este paso. Tengo marcado como comentario la parte del codigo que me manda error. Actualmente la macro lee bien el texto pero no reconoce el formato bold. Anexo el documento, captures y el código por si alguien tiene alguna idea para solucionar el problema. Muchas gracias a todos! …

Gracias por atender mi pregunta. Voy a intentar explicar todo lo que hago. Yo recibo de un fabricante una tarifa en PDF. Esta tarifa en PDF me la transformo a Word con el programa "Solid Convert PDF" Una vez la tengo en word me lo paso copiando a excel con el formato que te adjunto. Tiene que ser de esta forma. Primero el código del artículo, que tipo de artículo es, si es ud ó ml, Descripción breve, casillas en blanco, unidad, precio/ud y finalmente lo que será el precio final. Llegados a este punto, tengo que insertar entre artículos una fila hasta el final de los artículos. Y una vez insertadas todas las filas, la celda "D1" la tengo que copiar de en la celd…

Buenos días, intento borrar filas metiendo varios criterios (texto) situados en una sóla columna mediante este código pero no consigo meter varios. Agradecería cualquier ayuda. Muchas Gracias de antemano: Sub ElimarFilaxCriterio() u = Cells(Rows.Count, 1).End(xlUp).Row qColumna = "x" qCriterio = "XXX", "YYY", "ZZZ" For i = u To 2 Step -1 Cells(i, qColumna).Select If Cells(i, qColumna) = qCriterio Then ActiveCell.EntireRow.Select Selection.Delete End If Next End Sub

Buenas tardes, estoy teniendo un pequeño problema con una macro; resulta que tengo una hoja que a traves de un botón actualiza una tabla proveniente de internet, y una vez que actualiza, realiza operaciones (remplaza "." por "," para que me lo pueda leer como número) Pero resulta que al ejecutarla me he dado cuenta que primero realiza las operaciones y por ultimo actualiza, cuando en realidad el orden es al revés, porque puede ser? Alguno que me oriente porque me desconcertó el problema. El código que uso es : ActiveWorkbook.RefreshAll Dim i, f, final As Integer 'todo Sheets("Todo").Activate For i = 2 To 10000 If Cells(i, 1) = "" Then final = i - 1 Exit For…

Hola buen dia amigos de excel hoy les toco un tema interesante el cual no lo pude resolver, como realizar filtros a columnas, normalmente excel trae filtro para las filas, pero ahora es para las columnas subo un ejemplo haber si me pueden echar una manito Filtrar columnas.xlsm

Hola a todos, acá nuevamente solicitando su tiempo para el siguiente inconveniente que tengo ? La siguiente macro, encontrada en la web, me funciona a la perfección. Sin embargo, cuando el archivo esta en uso crea un nuevo archivo temporal con la extension (.ldb) y es ahi donde la macro no funciona. Como resolver este inconveniente? Sub CopiarArchivos() FileCopy "Y:\INVENT.mdb", "Y:\INVENT2.mdb" End Sub Saludos

Buenas a todos: Estoy empezando en la programación en VBA para Excel y gracias a vuestro foro, estoy aprendiendo bastantes cosillas pero me he quedado atascado con algo y no soy capaz de encontrar la solución. Estoy haciendo, a modo de ejercicio, un sencillo programa que permita al usuario introducir una matriz de dimensión variable para calcular su función inversa. La matriz se escribe desde la celda A4 en adelante y mi idea es que el programa lea el número de columnas con contenido para establecer el orden de la matriz, redimensionar los vectores y calcular la inversa. El programa es el siguiente: Option Base 1 Dim M() As Variant Dim MInv() As Variant Sub Inv…

Estimados Buenas Noches Acudo a uds una ves mas para solicitar de vuestra valiosa ayuda. Arme un codigo de la siguiente manera, me ayude de google para llegar a este: Sub AbrirWeb() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Navigate "http://www.mercadopublico.cl/Portal/Modules/Site/Busquedas/BuscadorAvanzado.aspx?qs=1" Do DoEvents Loop Until IE.readystate = 4 IE.Document.getelementbyid("txtSearch").Value = "2239-14-LP14" IE.Document.getelementbyid("btnBusqueda").Click IE.Visible = True 'Posibilidad de obtener codigo fuente 'IE.Visible = False End Sub[/CODE] Este código me abre la pagina web, lo hago así porque deb…

Hola Amigos del Foro Recurro a su valiosa ayuda para avanzar en un archivo que he venido adaptando para una automatización que requiero. Tengo 2 Archivos 1.-Filtro Archivo.xlsm 2.-Mayor.xlsx El archivo 1.-Filtro Archivo.xlsm tiene 2 Hojas 1.a.- En esta hoja “PROFIT” esta la data de la información a filtrar en 5 columnas Código/Fecha/Referencia/Descripción/saldo CODIGO FECHA REF DESCRIPCION SALDO 110102 31/1/2020 4 223 0000008291 TRAN,J306725024AUTOMERCADOS PLAZA'S, C.A./J306725024 AUTOMERCADOS PLAZA'S, C.A. …

Hola buenas tardes: Tengo un archivo que me funciona para revisar mis archivos que me llegan constantemente, estos tiene por default un nombre y yo debo revisar cada uno y poner un nombre final. Los archivos los en listo en una hoja de la siguiente manera, a partir de la fila 4: En columna A: La ruta hasta la carpeta donde se encuentra el archivo En columna 😄 Nombre del archivo con extensión En columna N: La ruta completa Manualmente ingreso en la columna G el nombre de mi nuevo archivo (Sin extensión) En la columna J Se encuentra mi nombre nuevo y su extensión. (con formula) Este nuevo nombre lo asigno con una macro que funciona así: N…

Hola buenas tardes! Intentaré expresar mi problema... Tengo una base de datos de dos registros en una hoja de excel llamada "DBMain" En otra hoja "Diseño" tengo un formato que se llena con los datos contenidos en "DBMain". Ahora bien deseo que suceda lo siguiente: 1. Se llena el formulario con el primer registro 2. Se manda a impresión previa 3. Se vuelve a llenar el formulario con el segundo registro 4. Se manda a impresión previa 5. Al término de los registros se debe mostrar al usuario una vista previa de los archivos a imprimir (los dos formularios) Pregunta adicional: ¿Es posible hacer esto en excel apoyándome en VBA?

Hola buenas, tengo una consulta alguien sabe algún código para crear una variable dentro de un for cambiando los nombres seria algo asi como col = 0 y = 10 For cell = 10 To 16 If Cells(y, 29) = True Then col = col + 1 ####criterio + col = dalomismo ## la idea es que se cree una variable llamada criterio1, criterio2, criterio3, hasta que termine el for End If y = y + 1 Next cell siento fallar en algo así pero no pude hacerlo se agradece cualquier ayuda, de antemano gracias

Buenos días, espero alguien me pueda ayudar debe ser algo muy sencillo pero no tengo idea como hacerlo. Tengo un código para que me muestre el contenido de una celda en un textbox de un formulario, como puedo mantebner el dato en el textbox aún cuando inserto o elimino filas o columnas en el libro de excel, es decir , en B1=546 cuando inserto una fila pues el 546 ya esta en la celda B2, cómo hago para que se modifique esto automáticamente en el código VBA y me siga mostrando el 546 en el textbox El código que tengo ahora es Private Sub TextBox1_Change() With UserForm1 .TextBox1.Value = Range("=b1").Value End With End Sub consulta foro.zip

hola, necesitaria si se puede eliminar el excel que contiene la macro en uso. Si no se introduce bien la clave y para que no generen copia Lo que pense es que se cierre el libro y se elimine, puede ser con la instruccion: ThisWookbook.close y luego kill mas el Path en donde esta? pero no me lo toma, como podria hacerlo?

Buenas, soy nuevo en el foro. Quería saber si podrían ayudarme con un problema que tengo y no encuentro la forma para resolverlo. No tengo muchos conocimientos en VBA, asi que espero que me puedan ayudar. Voy a tratar de explicar lo mejor posible lo que busco. Lo que quiero concretamente es que cuando el usuario ingrese un valor en la columna "Cantidad de vagones no descargados", automáticamente se agregue una fila abajo del último registro de la planilla, en la que se copien todos los datos ingresados hasta el momento (de la fila en la cual se había ingresado el numero de vagones no descargados). Adjunto archivo con ejemplo. Agradezco de antemano su ayuda Planilla.xl…

Hola, Necesitaria saber como hacer que al clickar la pestaña de una hoja para cambiar de pantalla se me abra un MsgBox preguntando si estoy seguro de querer salir ya que al pasar a la hoja principal se me reinician todos los valores. Como lo puedo hacer? Muchas gracias

Hola amigos del foro, Estoy ejecutando esta macro, y continuamente me muestra 'Error definido por la aplicación o el objeto': Sub ProtegerHoja() Dim fila As Long fila = Sheets("Hoja1").Range("A1048576").End(xlUp).Row Dim contraseña As String contraseña = "abcd" With ActiveSheet .Protection.AllowEditRanges.Add Title:="Rango1", _ Range:=Range("A3:H" & fila), _ Password:=contraseña .Protect Password:=contraseña, _ DrawingObjects:=True, _ Contents:=True .EnableSelection = xlNoRestrictions End With End Sub No sé dónde …

Buenas, desde Gijón-Asturias-Spain, Disculpad si el tema ya ha sido resuelto, hay tanta información que me resulta imposible localizarlo. Es posible proteger un libro para que en una fecha determinada excel pida introducir contraseña? Saludos Lobato