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

Hola buenas tardes, para solicitar de su valioso apoyo, encontré un ejemplo en el que se hace una búsqueda de información y el resultado se muestra en un listbox, posterior acople el código a mi macro y la fui delimitando para que funcionara como yo lo necesito, sin embargo después del ultimo cambio y que funcionaba al 100% el código y me sacaba el reporte impreso en PDF de los resultados encontrados, ahora solo crea una hoja en PDF con los encabezados de las columnas pero sin información dentro de estas, no sé porque lo hace, comparto el código: Private Sub ExportaPDF_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume …

Hola Masters! Estoy desarrollando una macro que debe copiar y pegar un rango de datos muy grande de la Hoja "BD" hacia la Hoja "DATOS GRAL" del mismo archivo pero por alguna razón cuando ejecuto la macro se traba y me aparece "Excel no responde". El rango de datos es de apróx 639,360 celdas. El código que uso es este: Sheets("BD").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("DATOS GRAL").Select Range("A4").Select ActiveSheet.Paste Nota: Si lo hago de forma manual el copiar y pegar los mis…

Hola amigos! Necesito vuestra ayuda, he estado creando un pequeño programita para rellenar un formulario y que aparezca en un listbox y en la hoja de excel. El código lo he estado haciendo por mis pequeños conociemientos y buscando por internet. A ver si alguno con mas experiencia me puede ayudar. Tengo muchos problemas, pero os contaré poquito a poco: El primero, cuando relleno el formulario y doy a ingresar y pongo el nombre de una hoja que no existe, me crea la hoja con la cabecera pero sin los datos. Me podéis ayudar? Ando muy perdido. Muchisimas Gracias, para cualquier aclaración ya sabéis. Un saludo viiic Vic1804.xls

Buenos días. He programado una función no muy compleja, en la que le digo mediante un if que dependiendo del caso haga un cociente en el que en el numerador y en el denominador llamo a la función vlookup de Excel. Bien, el problema es que esa función, que utilizo masivamente luego en la hoja, a veces se "engancha" y no devuelve el resultado sino que da VALOR. Si me situo encima de la celda donde da valor, la activo (F2) y luego le doy al Inter, ya me devuelve el resultado. El problema es que esa función la utilizo para luego devolver un calculo más complejo, por lo que si falla esa función falla el resto de cálculos. Las preguntas son: ¿Por qué ocurre esto? ¿Qué pue…