Hola!! Un favor, he creado un boton en excel para que se envie automaticamente un correo con un archivo en pdf. Lamentablemente, no he encontrado la manera de que me de un aviso cuando el correo haya sido enviado (uso outlook). Existe alguna manera de hacer esto con las macros? Gracias!!!

Hola espero me puedan ayudar me gustaria poder hacer una busqueda de la columna B una vez que encontro el dato revise si tiene informacion en la columna J y K si no tiene informacion en alguna de estas dos columnas mande un mensaje de que faltan datos y se posicione en la celda vacia . Gracias duda.xls

Hola tengo un código q busca un valor en una base de datos lo que quiero es que cuando no encuentre el valor me de un MsgBox que diga "Código no encontrado" se que ya hay preguntas similares pero no he podido adaptarlo a mi código, por cierto ya tiene un MsgBox que avisa cuando se a dejado el campo en blanco Gracias al que quiera ayudarme yo apenas estoy empezando con esto de las macros Private Sub CommandButton1_Click() If TextBox1 = Empty Then MsgBox "No ha escrito nada en el campo CODIGO" Else Cells.Find(What:=Val(TextBox1), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate Acti…

Muy buenas de nuevo foreros! De nuevo vuelvo a pedir consejo a vosotros, genios del excel! Os explico un poco lo que me sucede. Tengo un Useform (funciona perfectamente), que por medio de cinco textbox me pide diferentes datos: Textbox1 es de tipo numerico Textobox2 y 3 de tipo texto Textbox 5 y 5 de tipo fecha Y ademas tengo 5 optionbutton. Para completar el useform, tengo el boton de "aceptar", que lo valida todo y el de cancelar, que lo cancela (obvio, no?)jeje. Bueno, al grano. Todo me funciona a la perfeccion, pero, para mejoralo un poco, me gustaria que si se introdujese en un campo algo erroneo (por ejemplo, en el textbox1 texto), saliese un mensaje de error.…

Buenos dias: Tengo una base de datos y en mi codigo uso el vlookup para traer informacion de esa base a un userform, lo que necesito es incluirle un mensaje de alerta cuando se digite el codigo equivocado y por tanto no se encuentra en la base de datos, alctualemnte si se digita mal lo que hace es sacarme al codigo. Gracias por su colaboracion... el codigo es el siguiente Private Sub CommandButton1_Click() If Reclamacion = "" Then Numero_de_Factura = "": Exit Sub total_facturado_mdqx = "": Exit Sub total_reclamado_mdqx = "": Exit Sub Primer_apellido_de_la_victima = "": Exit Sub Segundo_apellido_de_la_vicitima = "": Exit Sub Primer_nombre_de_la_victima = "…

Buenas tardes, el motivo de solicitar su ayuda es referente a este problema... tengo un archivo de excel con un macro, el cual lo cree en office 2010, dicho archivo ocupo abrirlo en otras computadoras con office 2007, pero tengo un problema ya que en una computadora me arroja un mensaje que dice "Advertencia de seguridad, Las macros se han deshabilitado", al seleccionar la parte de "Opciones" no me sale ninguna opción donde pueda activar la macro... me podrían asesora a que es el problema? Cabe mencionar que lo he probado en otra computadora con office 2007 Standard y si lo corre sin problemas (lo puedo saber por que me arroja un formulario al abrir el archivo)... y en a…

Hola a todos Requiero de su ayuda para completar el siguiente macro Private Sub UserForm_Initialize() Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset, Sql As String Dim Hoja As Object ComboBox1.ColumnCount = 4 ComboBox1.ColumnWidths = "50;40;100;150" Set Cnn = New ADODB.Connection Cnn.Open "Driver={SQL Server}; Server=10.15.50.50; Database=pruebas; Uid=sa;Pwd=123456" Set Rs = New ADODB.Recordset Sql = "SELECT Usuario, Contraseña, Hojas_Activas, Nombre, Unidad FROM Usuarios" Rs.Open Sql, Cnn, 3, 3, adCmdText If Not Rs.EOF = True Then ComboBox1.Column = Rs.GetRows Cnn.Close Lo que requiero es lo siguiente 1 limitar a 10 segundo…

Hola a tod@s. Me está saliendo un mensaje que he tratado de buscar la solución por los foros y no doy con ello. Tengo un programa en una unidad de red. El fichero solo puede abrirse en modo lectura si ya está abierto en otro ordenador, pero esto es otro problema. El problema me surge cuando el primero que lo ha abierto cierra, y es que si trata de salir del programa el segundo operador, aparece el siguiente mensaje: Ya existe un archivo con nombre "xxx" en esta ubicación. ¿Desea reemplazar el archivo existente? Si No o Cancelar Tengo que decir que esto ocurre cuando pasa por la instrucción: ActiveWorkbook.Save Si pulso Si sale del programa salvando, pero si puls…

Buenas Tardes, tengo el siguiente código, que lo que hace, es enviar la hoja activa de excel via outlook, pero por cuestiones de seguridad aparece una ventana emergente donde me pregunta si quiero permitir que un programa envie un correo por mi.No puedo desactivar la notificacion por seguridad de la empresa.La pregunta es: que puedo ingresar al codigo para que tambien pueda dar "click" en permitir y que se envie? la codigo funciona bien, si le doy click manualmente, el correo se envia con la info. Sub Enviar_Correo_HojaActiva()On Error Resume NextActiveSheet.CopyWith ActiveWorkbook.SendMail Recipients:="colocar email", Subject:="Inventario".Close …

Hola a todos, he puesto un control de errores en un procedimiento y se duplica el mensaje de error dos veces y no se porqué lo hace. El procedimiento es este: Sub InsertarTabla() On Error GoTo Etiqueta Dim nTabla As String nTabla = ActiveSheet.ListObjects(1).Name ActiveSheet.Range(nTabla & "[#All]").Select Selection.Copy Etiqueta: If Err.Number = 0 Then 'Correcto ElseIf Err.Number = 9 Then 'No sé porque repite dos veces el mensaje, si no hay ninguna tabla debe destildar el check MsgBox "No hay ninguna tabla, operación cancelada", vbCritical, "Mensaje" UserForm1.CheckBox1.Value = False '---> Si comen…

Hola Buenos días: Estoy intentando hacer una simple macro que me muestre un mensaje en función del valor que te de una lista desplegable, es decir, es un cambio automático de celda. He hecho la macro con el If.. Then.. y perfecto, pero siempre que meto el valor manualmente, pero cuuando tengo una lista desplegable la cual se vincula con un celda, ejempl "C10", esto no funciona, ya es esta celda, va cambiando en función de lo que yo cambie en la lista. Muchas gracias.

Buenas tardes no logro poder enviar mensajes con imágenes distintas a mis usuarios, solo me logra enviar a 1 y a los demás solo les envía texto me podrían ayudar Multienvios WSP 4.6 sin contraseña.xlsm

Buenos días a todos y feliz año. Quería saber si se os acurre alguna forma de ejecutar un mensaje de recordatorio en la aplicación si no se guarda el archivo en un tiempo determinado. Muchas gracias! Saludos

Saludos!, Estoy importando datos desde una pagina web hacia mi libro de excel, otras macros realizan otras operaciones con dichos datos, El problema que tengo actualmente es que en algunas ocaciones el excel muestra un mensaje emergente y detiene todas las macros que se están ejecutando, hasta que el usuario presione "Aceptar" (Adjunto mensaje) Quisiera que el excel no muestre ningún mensaje y que las macros sigan ejecutándose, o que de alguna manera los acepte, (espero poder explicarme), En internet encontre esta linea de comando "" Application.DisplayAlerts = False "" Pero no me funciona, o al menos el mensaje sigue saliendo, Mil Gracias, …

Buenas Tardes Mi problema es el siguiente genere un pequeño menu con un useform, con el cual puedo seleccionar siertas hojas de mi libro de excel pero al momento de cerrar el useform y querer moverme en las celdas de la hoja selccionada no se mueve y por caso contrario se mueve la hoja desde donde cargue el useform. Les comparto el formulario (actualmente estoy utilizando el office 2013) Gestion de Refacciones.zip

Buenos días a todos; -En el archivo que subo tiene en la hoja "Arqueo y Ventas" una macro que me muestra al hacer clic con el botón derecho del mouse un menú personalizado. He configurado de forma que si la persona que utilice la macro no tiene privilegios de administrador no pueda acceder a dicho menú. Si lo intenta aparece un formulario donde se debe introducir la contraseña correcta que estableció el administrador. Consulta: Como puedo hacer para que una vez logueado me actualice el menú contextual sin necesidad de que tenga que ir saltando de una hoja a otra. Dejo enlace de un video explicativo: Video Saludos. JExcel.xlsm

Estoy intentando realizar un menu de enlace a dos aplicaciones ya creadas pero me surge el problema de que se queda una aplicación abierta oculta y no consigo encontrar la manera de solucionarlo. Andrés Prueba.rar

buenos días compañeros, espero que se encuentren bien, Tengo el siguiente caso, en la columna W se pone el mes anterior al que estoy, es decir, estamos en Marzo 2020, en W1 se deberá poner Febrero 2020. las columnas L a V seguirá disminuyendo de a mes , cómo así? Sí en W1 está Febrero 2020 las columnas deberán quedar así v1: Enero 2020 - u1:Diciembre 2019 - T1: Noviembre 2019 - S1: Octubre 2019 - R1: Septiembre 2019 .... L1:Marzo 2019 El proximo mes, cuando estemos en abril, la casilla W1 deberá ser Marzo 2020 y el resto de columnas v1:Febrero 2020 - u1:Enero 2020 - T1: Diciembre 2019 - S1: Noviembre 2019 - R1: octubre 2019 .... L1:Abril 2019 …

Hola muy buen dia, heme aqui de nuevo solicitando su valiosa colaboracion, para poder realizar ya sea una macro o una formula o si existe alguna manera facil que me pudieran proporcionar para lograr que dentro de una tabla la cual tiene encabezados de: ID | FOLIO | EXPEDIENTE | NOMBRE COMPLETO | FECHA DE NACIMIENTO | CELDADONDESEINSERTARANNOMBRES y como es de observarse deacuerdo al archivo muestra que un id + folio + expediente son por asi decirlo los "rubro unicos", mas sin embargo los nombres si son agregados de esos "rubros", pero cada nombre debe tener su id y a su vez todos los nombres de esos "rubros" deben estar en la ultima columna (celdadondeinsertaran…

Compañeros, una vez mas recurro a los expertos. como seria el codigo para que mediante una combinacion de teclas (ejemplo: ctrl + alt + q) se ejecute la macro de un command button que se encuentra dentro de un form que esta dentro de otro command button. :stupid: un poco complejo, intente con el evento onkey en el workbookopen pero muy complicado y no pude. Saludos

Hola amigos buenos días, Resulta que deseo usar el método FIND RANGE como alternativa para búsqueda, antes de usar un ciclo for, pues realmente pensaba se me hacia más fácil usar el método FIND . Adjunto un ejemplo, la intención de la macro es que me busque el numero de la celda D4 en la lista de números, y me indique con una mensaje en que fila esta, y la seleccione, pero resulta que al colocar el número 1 me ubica la fila de donde esta el 10 o el número 2 y ubica la fila donde esta el 12 así sucesivamente como que me hace falta algo en la sintaxis para que busque el dato exacto. https://docs.google.com/spreadsheets/d/12M2MlCV6zr5OkZEaMk0v-N6_iP7Wxhjv/edi…

Buen día, tarde, noche Quisiera solicitarles de su amable ayuda para solucionar un problemita que estoy teniendo en un archivo Dropbox - Chequeras.rar Quiero hacer un barrido de la Hoja que se llama ACSEL Q, y que me vaya a buscar el número de cheque en la hoja que se llama Listado de Cheques, y que me traiga ciertos datos hacia la hoja ACSEL Q Lo estoy haciendo a través del método Find, pero siempre me salta el error 91, y esto se debe porque no encuentra algún dato. Al código le agregué lo siguiente: On error resume Next . . . if err.number = 91 then goto Siguiente[/CODE] Esto me resuelve a medias el problema, pues lo que hace es que si existe el error 91 …

Hola como están, una pregunta para los capos de Macros Bueno yo estoy trabajando con una tabla con formulas(que es mi objeto) y tengo una macro que busca insertar/eliminar filas y columnas de este objeto dependiendo de ciertos valores Declaro lo siguiente: Sub ActualizarTabla() Dim f&, c&, oldRows&, newRows&, oldColumns&, newColumns& f = Range("H1") c = Range("H2") With ListObjects(1) oldRows = .Range.Rows.Count oldColumns = .Range.Columns.Count newRows = f + 1 newColumns = c + 1 newRows = Application.Max(3, newRows) .Resize .Range.Resize(newRows, newColumns) If newRows < oldRows Then .Range.Offset(newRows).Resize…

Chicos, una pregunta express: ¿Cuál era el método para ocultar las ventanas de alerta como por ejemplo, la ventana de cerrar la aplicación (ya se me olvidó... ?‍♂️)?

Muy buenas tardes tengan, queria preguntar si sería posible seleccionar un archivo excel desde otro archivo excel y copiar totalmente su contenido, algo así como cuando le das a abrir en las opciones y abrir. No sabría que dejar de ejemplo, así que os dejo esto mil gracias Copiar.zip