Hola ojala q alguien me pueda ayudar, necesito una macro que me guarde un archivo adjunto de Outlook, pero que sea de un dominio especifico ej. @ssss.com y que sea guarde cuando reciba el mail, osea que no lo tenga q ejecutar yo q se ejecute automaticamente cuando me llegue dicho mail de dicho dominio, ya tengo un Scrip Este es mi codigo, y la verdad es que lo encontre, ya qu no se programas , espero q puedan ayudarme.... Sub GetAttachments() Dim ns As NameSpace Dim Inbox As MAPIFolder Dim Item As Object Dim Atmt As Attachment Dim FileName As String Dim i As Integer Dim SubFolder As MAPIFolder Dim strInter As String 'Abajo pongo el nombre o parte del nombr…

Buenas tardes, estuve leyendo sobre el tema, pero aplicar una macro no es muy facil, por lo que necesitare mas ayuda. En mi caso, liquido sueldos y tengo 180 empleados (una hoja para cada uno) con sueldos quincenales, entonces lo que necesito es tener un resumen en cada archivo para luego poder juntar estos resumenes, y tener un total mensual. Especificamente, de cada recibo necesito sacar el nombre, identificación, y monto de remuneraciones, tal como lo pongo en el archivo de ejemplo, el que tiene solo 5 empleados, espero que con vuestra ayuda pueda aplicarlo a los 180 Muchas gracias por dedicar tiempo a ayudar a los demas! Saludos ejemplo 1.xls

Hola a todos, tengo una macro que saque de otro foro y cuyo autor es Logroastur@2012, yo modifique mi archivo para que funcione, pero necesito cambiar la macro para adaptarla a mis necesidades, basicamente es un buscador que contiene 3 optionbutton que son los que deseo modificar para que al seleccionar el tipo de busqueda lo haga de acuerdo a la opcion elegida, claro esta que por la falta de conocimiento no puedo hacerla, asi es que recurro a ustedes para ver que solucion me pueden brindar, gracias. se podra poner un boton de borrar en lugar de elegir del desplegable para que lo haga? Buscar - copia.rar

No se si en parte, estoy en lo cieto. Explico lo que pretendo: Cree eses celdas coo referencia. Si ahy mejor y mas proficional solucion, mejor, si es sin las celdas de referencia mejor aun Tengo una hoja en la cual voy dando salidas de ciertos productos mediante un recibo con varias linea (12); Columnas con; Cant Salidas, productos, precio ect. Este recibo puede tener 1, 5, 8 hasta 12 productos y cada producto su cant Salida Pretendo que al pasar cada recibo, en la columna G de esta hoja y en cada linea de cada producto sume la cantidad de salida que ya existe mas la que sea auto-enviada desde el recibo mediante una formula. El recibo tiene la Cant. Requerida (sali…

Hola, tengo un problema con un archivo(error 9.xlsm), obtiene datos desde un bd y le llegan a la celda C5, copia la celda C5 y lo inserta en otra hoja, funciona bien pero al momento de ejecutar otro archivo XXX.xlsm paralelamente me da error el archivo error9.xlsm ,esto sucede con cualquier archivo que tenga macros, siempre me da errar el archivo error9.xlsm, pero al ejecutarlo solo, funciona sin problemas. Este es el error que me da y adjunto el archivo erro9.xlsm . Espero sus comentarios. Error 9.rar

deseo obtener alguna macro o funcion que bloqee la opcion de que alguien pueda copiar el contenido de una hoja excel a Word Gracias

Buenas tardes Forista Por favor necesito ayuda con macro para poder cruzar bases de datos, para identificar que persona esta repetida en estas. Los campos que se deben de mirar son nombre y numero de identificacion que pueden estar en diferentes filas y a su vez poder organizar los listados sepados en nombres y apellidos. Si es posible que se pueda seleccionar o escoger el archivo asi mismo la fila a buscar y comparar. Muchas gracias, Anexo dos archivos como ejemplo Aprobados.rar YUMBO.rar

Estimados amigos: En esta oportunidad, quisiera su ayuda en lo siguiente: Tengo un cuadro que llenar, pero necesito que al posicionarme en una celda me aparezca una tabla con un listado y con opción para buscar para seleccionar el código que le pertenece y se pegue en la celda que eliga. Y tbn que me ayuden con otra formula para concatenar de manera automatica no quiero que aparezca ese contenido de formula concatenar sino que solo al dar click se concatena solo en la columna de determinada celda que tenga información. Les adjunto mi archivo y imagen para que lo puedan entender mejor. Mil gracias!!!

Saludos alguien me puede ayudar con un ejemplo de una macro que importe informacion de una pagina web apartid de poner la liga en una celda, de antemano muchas gracias

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…

Hola a todos, gracias de antemano. Adjunto archivo donde explico en lo que deseo me ayuden. En la hoja inicial tengo una tabla con encabezados y cantidades. Lo que deseo es que en las celdas donde haya cantidades, estas sean sustituidas por el encabezado. Y por último, en la hoja "Resultado esperado", está la tabla a como deseo obtenerla. Las celdas vacías sean eliminadas y ocupadas por la siguiente celda con dato a la derecha, o lo que es lo mismo, correr las celdas con datos hacia la izquierda, sustituyendo las celdas vacías. Gracias de nuevo por su acostumbrada ayuda agrupar celdas con datos.xlsx

Buenos días, Tengo el siguiente código: Sub Copiar_NCAGT() 'MODULO11copia ndagt Application.ScreenUpdating = False Range("S2").Copy Windows("Caja Jesus 2016.xlsm").Activate Sheets("BOLETOS").Select Range("AA2").PasteSpecial xlPasteValues Application.CutCopyMode = False Range("AA2").Select Range("AA2").Copy Range("AA3:AA" & Range("I" & Rows.Count).End(xlUp).Row).Select ActiveSheet.Paste 'ActiveSheet.PasteSpecial xlPasteAll Application.CutCopyMode = False End Sub Bueno este código lo tengo en mi libro NOTAS DE COBRANZA y lo que hace es copiar de mi hoja ND celda S2 el valor a mi otro libro Caja Jesus 2016 a la celda AA2…

Que tal compañeros buen dia, Me gustaria saber si me pudieran ayudar con esta consulta, ya probe el query en SQL Server y funciona de manera correcta ejecutandolo desde ahi, pero cuando intento hacerlo desde vba no hace nada, osea pareciera que el codigo se ejecuto correctamente pero en realidad no hace nada, esto si quito las lineas de: adoRs.Close adoCn.Close adoCn.ConnectionString = "" Pero si dejo esas lineas me sale el siguiente error: "Operation is not allowed when the object is closed" Si alguien me pudiera decir como solucionar este problema, lo he intentado de diferentes formas y de diferentes formas de hacer la conexion y algu…

Buenos días Estimados, Tengo un listbox que muestra ciertos datos que están en una cierta hoja, una de las columnas está en formato hora [hh:mm] pero al visualizarla en el listbox me aparece con puros números como muestra la imagen: Este es el código que estoy ocupando y me lo muestra con números: Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Format(b.Cells(nFila, 8), "hh:mm") 'HORA Como puedo hacer para cambiarle el formato y que se vea como debe ser? (hh:mm) ¿Existe otra forma de asignarle el formato hora a la columna? Gracias.

Hola buenas, tengo una plantilla que me gustaría imprimir con un codigo a modo de contador, para pasar a la vez siguiente hoja

Estimados, necesito hacer una macro para reemplazar valores automaticamente en una formula, que seria la siguiente: =INDICE(Lista!C$2;COINCIDIR($B$8;Lista!A$2;0)) necesitaria que C$2; y A$2; sean reemplazados por $3, por $4, etc. y asi sucesivamente hasta un numero tal. Abajo dejo el ejemplo de como seria. =INDICE(Lista!C$3;COINCIDIR($B$8;Lista!A$3;0)) =INDICE(Lista!C$4;COINCIDIR($B$8;Lista!A$4;0)) =INDICE(Lista!C$5;COINCIDIR($B$8;Lista!A$5;0)) etc... Desde ya muchas gracias!!

Hola amigos de AE. Les escribo acerca del APPCRASH, solo quiero información. He encontrado en la red información. Pero si pudieran comentar al respecto. Que es, por qué sucede, como evitarlo, etc Gracias

Buenos días a todos, esperando que estén todos bien, quería solicitar su ayuda. Necesito crear una macro que reciba varios archivos .txt e ingrese el nombre del archivo en una celda(columna A) y el contenido del. Txt(columna B). He buscado solución a este tipo de problemas usando macros, pero no logro encontrarla, por lo que vengo a buscar consejo. Dejo adjuntos ejemplos de archivo .txt y como se vería el archivo Excel que deseo generar. De antemano Muchísimas gracias Excel Ayuda Ejemplo.rar

Hola Amigos Programadores, tengo este codigo ? que me sirve para que el archivo corra solo en las pc con los series de disco duro asignados en ese codigo, pero yo quería saber si es posible adaptarle fecha para que después de esa fecha el archivo se elimine.. Probé ponerle este codigo al comienzo de la macro paro me aparece error : Dim FechaVen As Date FechaVen = "20/07/2021" If Date >= FechaVen Then Private Sub Elimina() If IsError(Application.Match(Hex(CreateObject("scripting.filesystemobject").Drives.Item("c:").SerialNumber), Array("EE91AAE1", "8001a6af", "otroSerial_3"), 0)) Then Application.DisplayAle…

Hola a todos Estoy intentando automatizar un proceso y que los registros que hay en excel exportarlo a SQL espero que los espertos del gripo me puedan ayudar. El archicho que adjunto me funciona cuando es solo un registro en la fila 7, sin embargo requiero: 1 Que me consulte si los datos de la fila B (que peuden ser una o muchas filas con información ), en caso de ya estar el registro en la base de datos que mande la leyenda. 2 Que si los datos de la fila B no existen en la base de datos que exprote todos los datos con el macro ingesarDatos. El archivo adjunto lo he estado trabajando, sin embargo se me han complicado los p…

Buenos dias a todos. Estoy intentando desde excel meter datos en una página web, y me encuentro con dos combobox con el mismo classname. En el primero meto los datos bien, pero en el segundo, no se como hacerlo, no veo el id o alguna otra forma de identificarlo. Sub vuelos() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.Navigate "https://www.google.com/travel/flights?tcfs&ved=2ahUKEw jD1eu2kcH6AhWJ2tUKHdTsAGIQyJAB egQIABAY&ictx=2&authuser=0" Do DoEvents Loop Until IE.ReadyState = 4 Dim inputfield As Object Set inputfield = IE.Document.getElementsByClassName("II2One j0Ppje zmMKJ LbIaRd") If inputfield.Length >…

En un botón que acabo de crear, inserto un hipervínculo a una página que está dentro de un web que pide ID y Password para entrar. Previamente me "logeo" en la web con mi ID y Password, Cuando ya estoy logged in, pincho en el hipervínculo de excel pero no me lleva a la página del hipervínculo, sino a la inicial para pedirme las credenciales. En cambio si en esa página ya logeado, copio la URL del hipervínculo si que me funcional. Debe ser queal accionar el hipervínculo excel lo hace de forma que no se sabe que ya estoy logeado en otra pestaña de Chrome. ¿Alguna idea? Como la web destino es muy grande, con muchas páginas, tengo que hacer una hoja de …

Hola colegas, buenas tardes y que tengan una excelente salud. Tengo un pequeño proyecto para controlar los comensales, pero necesito una hoja para llevar de manera manual las incidencias. ya tengo hecho todo, excepto que necesito en la Hoja Modelo, en la columna E me ponga una linea en la parte inferior de las celdas (Para Firmar), siempre que existan datos. Yo tengo este código: Private Sub BtnImprimirM_Click() Dim X As Long Application.ScreenUpdating = False Hoja10.Range("A4:D5000").Clear Worksheets("BD Alumnos").Range("A4:D5000").Copy Worksheets("Modelo").Range("A4") With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .P…

Hola buenas, Me ha surgido la duda y no he encontrado ningún tema al respecto, Se puede introducir código VBA para cualquier evento de hoja, por ejemplo el changes, para una hoja que no existe? Es decir, imaginaros que tengo una única hoja en el libro simulando la portada (Hoja 1), y en ella un botón para que a través de VBA, se origine una hoja nueva (Hoja 2) en la que haya una serie de datos. Hay alguna manera de poder programar para que en esa hoja nueva (Hoja 2), se desarrollé código? Que salte el código por ejemplo con el evento Changes? Un saludo y muchas gracias de antemano.

Saludos @JSDJSD espero estes bien como ya me dio un excelente soporte adaptando a Macros Vba las fórmulas de mi anterior post: Espero también pueda ayudarme con los resultados de estas dos últimas fórmulas que me faltan en los TextBox26: y TextBox32: TextBox26: si alguno de los TetxBox16, 17, 18, 19, 20, 21, 22 es mayor que el ComboBox2 entonces se debe de restar el TetxBox que cumpla con la condición menos el ComboBox2 siendo así el resultado que se debe mostrar en el TextBox26 de manera simultánea y automática será la sumatoria de los resultados individuales de cada TetxBox mediante la combinación de las siguientes operaciones equivalentes en Vba: SI(Text…