Buenos días, Tengo una tabla dinámica en la que he creado unos campos calculados para que muestre los costes agrupados por tipo de trabajo. Dichos costes, ya están calculados en base a la moneda local de cada país, por lo que inicialmente al no haber ningún filtro, muestra la suma de todos. Lo que necesitaría sería saber es como hacer que cuando filtre por un país, las celdas de los costes me muestren el símbolo de la moneda de dicho país. Por ejemplo, que si selecciono España me ponga €, USA, $, UK £, etc... Gracias y un saludo.

Amigos, Quisiera saber si alguno de uds sabe la línea de código que necesito para colocar "Importancia Alta" al enviar un Correo desde Outlook 2010. Si pudieran ayudarme se los agradecería un montón. Les envío el código con el que estoy trabajando, por si le sirve a alguien: Sub EnviarEmail() Dim objOutlook As Object Dim objItem As Object Dim objNamespace As Object Dim ADJUNTO As Variant Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objItem = objOutlook.CreateItem(olMailItem) objNamespace.Logon "EXCELSPACE", , True, True ADJUNTO = "Destino.xlsm" With objItem .Attachments.Add (ADJUNTO) .Display .…

Hola amigos.. soy bastante nuevo en el tema de la programacion pero me gustaria seguir aprendiendo. Tengo un formulario con un listbox en donde voy agregando elementos (Productos) con varias columnas. Necesito que al presionar un boton me compare los nombres de cada elemento en el listbox con el nombre del producto en la tabla y descuente del stock. Adjunto imagenes y dejo parte del codigo... Private Sub btn_AgregarProducto_Click() Dim i As Integer Dim uFilaConDatos As Integer Dim CantidadColumnas As Integer Dim CantidadVendida As Integer Dim Columna1 As Variant Dim Columna2 As Variant Dim Columna3 As Variant Dim…

Hola amigos, buenas tardes Otra vez por aquí. Necesito un código para que me haga lo siguiente: Si en la celda “D9” se muestra GV2, aumentar un 5% a un rango de celdas, por ejemplo I11:I25 + I27:I41 + I43:I59. Si se muestra GV3, aumentar un 8% sobre los mismos rangos Si se muestra GV4, aumentar un 10%...... Por favor, si alguien pudiera ayudarme se lo agradeceré. Saludos Prueba2.rar

hola a todos estoy programando un formulario en cual contiene optionbutton y checkbox, estoy progresando en esto de las macros pero en esta situacion en particular solicito de su ayuda me gustaria saber si se puede hacer con una macro, que la opcion que se elija en un check box se puede mandar a una celda con la palabra que tiene esa checkbox ejem * chocolate * caramelo * helado * paleta * chicle y que si elijo chocolate con la casilla de seleccion me lo envie a la celda que yo le especifique, y que si elijo mas de una lo agregue en la misma celda con un espacio, seria como concatenar cuadros de seleccion se puede programar eso??? uy espero da…

Buenas noches. Estoy trabajando en una idea de hacer una animación con una macro de excel, pero me gustaría saber como puedo ejecutar todas las macros que he grabado de manera secuencial usando solo un botón. es decir que al oprimir el boton se ejecute la macro1 luego la macro2... macro_n hasta que se terminen. Adjunto esta el archivo con las macros. Gracias Libro1.rar

Hola a todos En la asignatura de Programación de Servicios y Procesos, me piden representar en unas tablas los tiempos de ejecución de los procesos, los tiempos de espera y el orden de llegada. Se me ocurrió intentar hacerlo, pero programado en vba. Lamentablmente, me pasa como en mis anteriores proyectos, lo imagino, pero no logro llevarlo a la práctica. Tengo una matriz, donde meto los datos de los procesos: Orden de llegada ordenados por número de proceso del 1 al 9 y que identifican cada proceso en una fila diferente. Tiempo de llegada, que será la celda desde donde se comenzará a ejecutar el proceso, o sea, si llega en 3 milisegundos, empezar…

Hola a todos Tengo un problema con un formulario, estoy intentando poner los datos en la siguiente fila de una columna mediante: Private Sub CommandButton1_Click() Dim Hoja As String Hoja = Nombre.Value Sheets(Hoja).Select Range("D32").End(xlUp).Offset(1, 0) = Titular.Value End Sub Todo lo hace bien, SI LA CELDA ESTA VACIA SIN FORMULAS, es decir, escribe en la siguiente fila hacia abajo.... ...Pero yo en los valores de las celdas de esa columna tengo (cambiando el nº de fila obviamente) lo siguiente =SI(C6="NO";"-";SI(C6="XX";"-";SI(C6="YY";"-";""))) Con lo que, la celda de cara a 'verla' está vacia pero para el proceso VBA no lo está :-( Asi es que, como pued…

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

Saludos colegas. En la universidad usamos bastante la modelacion de tranporte (costo mínimo, esquina noroeste) mediante el uso de solver. Perdemos bastante tiempo por cada modelacion y formulacion por ejercicio, la propuesta es crear una macro que ahorre y optimice procesos pero en el tema de macros estoy bastante crudo, acudo a uds. este es un ejercicio que hemos realizado. Debemos tener en cuenta que para cada modelo de transporte, se debe definir -la cantidad de puntos de origen y la cantidad de destinos -costos de cada producto Analizando al momento de realizar la macro me parece que el mejor metodo de desarrollo sea el costo mínimo, pero no tengo idea de …

¡Hola! Por favor pido su ayuda, estoy intentando hacer un combo box que me permita escribir y solo muestre las opciones de acuerdo a lo que escribí, como el filtro avanzado. En la hoja "Info para Combos", columna H, Tengo una lista de 236 elementos que son los que muestra mi lista desplegable en la hoja Plantilla TT Resuelto, celda F2, para ir revisando uno a uno es muy lento, por lo que quiero escribir una palabra clave, por ejemplo "falla" y que únicamente me muestre las opciones de esa lista que contengan la palabra "falla". La verdad que tengo nociones limitadas en excel y necesito su ayuda!! Les agradezco mucho su apoyo. Plantilla docume…

Buenos días Muchas gracias por todas las ayudas brindas en el mi proyecto. Acudo a ustedes para que me ayuden con un nuevo formulario para que el cada usuario pueda cambiar la contraseña sin necesidad de hacerlo desde la base de datos. https://mega.nz/file/cVpgDIaK#92-eFaVsW8t493NeL7GWT5YLy6dyn641Gl72fbe3FqU Saludos.

Hola, Necesito ayuda con un trabajo. Necesito contar la cantidad de casillas a las que se les asigna un colo especifico, EN Internet encontre una macro para usar, pero solamente actualiza cuando se edita, o cuando copio pego sobre la celda en que se encuentra el rango de funcion. Podria alguien ayudarme para que se actualizará la formula sola? El codigo de la funcion se encuentra a continuacion Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 …

Hello, My Friends:I have a workbook with several sheets, some of which are going to be printed at once, eighther to a .pdf file or to a paper. Doing so, there are several dialogs that are shown, for example: Dialog PrinterSetup to choose the printer.Dialog Save PDF file as, in the case of a .pdf, to choose where to save the document.Dialog Confirm Save to confirm the operation, of course.Dialog Adobe PDF that shows the addition of sheets to the final document.I am not sure, but only the first one is really an Application.Dialogs, the others are not, at least they do not appear in the VBA list as one.All of the dialogs have a "Cancel" button, to cancel the printing. My cod…

Buenas tardes aquí solicitando de su apoyo, alguien me puede corregir de favor tengo los siguientes variables Tengo establecido estos variables para determinar mi última columna puesto que a veces mi base de datos trae 10 columnas y otras veces mas (cantidad variable) hasta aquí parece funcionar 1.- uc = Sheets("Hoja1").Range(Sheets("Hoja1").Range("a8"), Sheets("Hoja1").Range("a8").End(xlToRight)).Columns.Count 2 .-Tengo esto para determinar mi ultima fila referenciando la ultima columna , no se por que pero en otras columnas no puedo usarlos para determinar mi ultima fila ocupada , me imagino que ha de traer caracteres ocultos o de color blanco pero no …

Buenas Tardes Chicos, Tengo el siguiente código el que ejecuta una consulta sql de una base de datos de oracle, esto lo realizo 5 veces al dias, es solo para ver los movimiento de algunas personas. El problema es que cada ves que la ejecuto me pide la contraseña de la base de datos, lo que pasa que quiero que al momento de ejecutarla me arroje los datos enseguida al excel y no esperar que tenga que meter la contraseña cada ves que le haga una consulta............ y lo otro es que he trato que en esta parte específicamente : "Select pam_nfolio N_PAM,afil_Nrut RUT_AFILIADO from PAM Where afil_Nrut=8959637") , hace referencia que busque al codigo:8959637 , pero lo que h…

Estoy trabajando un archivo de biblioteca para el cual ya me han ayudado anteriormente con un ListBox y con un formulario para Mantenimiento de Listas, lo que me ha servido muchísimo y de lo cual estoy muy agradecido de los miembros Antoni y JSDJSD, en esta oportunidad he agregado al objeto "ThisWorbook" las instrucciones "Application.Visible = False" y "FRMPanel.Show" para que al usuario le muestre solo el formulario "Panel" desde donde podrá realizar la gestión de la biblioteca, ocultando la aplicación Excel a su vista. La contraseña del proyecto es "biblio" Además he agregado al formulario un botón de comando para hacer visible Excel, el que al ejecutarlo y,…

Hola, me gustaría ocultar la cinta de opciones tan sólo en mi libro activo. Se me ocurren las siguientes ideas, pero no me funcionan: Sub OcultarRibbon1() If ThisWorkbook.Activate = True Then Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)" End Sub Sub OcultarRibbon2() Application.ThisWorkbook.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)" End Sub Agradecería cualquier ayuda. Gracias.

AL ABRIR UN ARCHIVO XLSM ESTE ME MANDA UN MENSAJE: "HEMOS ENCONTRADO UN PROBLEMA CON EL CONTENIDO DE ' NOMBRE DEL ARCHIVO': ¿DESEA QUE INTENTEMOS RECUPERAR EL MAXIMO DE CONTENIDO POSIBLE?, SI CONFIA EN EL ORIGEN DE ESTE LIBRO HAGA CLICK EN SI". HAGO CLICK EN SI, Y SALE UN CUADRO QUE DICE: "PARTE QUITADA: PARTE /XL/VBAPROJECT.BIN (VISUAL BASIC PARA APLICACIONES (VBA))" ¿ALGUIIEN SABE LA SOLUCION A ESTE PROBLEMA?, PUES EL ARCHIVO LO ABRO DESDE OTRO COMPUTADOR Y FUNCIONA PERFECTAMENTE. SIENTO QUE EL PROBLEMA ES DE EXCEL O DE ALGUNA CONFIGURACION. YA DESINSTALE Y VOLVI A INSTALAR.

Buenas tardes: Tengo un problema y es el siguiente: Tengo un formulario simple que depende de un listbox para seleccionar un libro a abrir. Mi formulario cuenta con 4 botones de comando, 1 para filtrar datos dependiendo de mi listbox, el 2do para guardar los cambios que se realizen en el formulario, el 3ero es para abrir un hipervinculo y el 4to para cerrar la hoja activa, es decir el hipervinculo abierto. Mi problema es que si por error se activa el 4to boton se cerrara mi archivo principal, cosa que no deseo, en mi logica entiendo que ese boton solo debe funcionar si se activo el 3ero, caso contrario no debe activarse. Espero haberme echo entender, de todos modos les…

hola amigos del Foro, tengo unas dudas, estoy realizando unos formularios en Excel VBA y estoy buscando como ajustarlos a la pantalla de la computadora, ya que estos formularios se van a ejecutar en diferentes equipos y lo que pretendo es que se ajusten en automatico de acuerdo al monitor... espero y me puedan apoyar en darme una idea...no subo un archivo ya que solo es un formulario normal..... gracias por su gran ayuda y apoyo.... Saludos amigos....

Buenos días a toda la comunidad de AyudaExcel, soy nuevo en el foro, actualmente trabajo en un proyecto, y me surgió una duda acerca de términos como "Cuentas por cobrar", "Cuentas por pagar", etc. aplicados a una aplicación en excel, tengo una tabla en excel con un botón el cual me calcula los anticipos que dieron los clientes , pero el detalle esta en que hago una suma "acumulativa", es decir si quiero que me calcule los anticipos que dio otro cliente, va a seguir sumando... adjunto el archivo para que se den una idea de lo que estoy haciendo.... si alguien me puede orientar lo agradecería mucho, de antemano muchas gracias.. cuentasporcobrar.rar

Hola buen día a todos Quisiera pedir de su apoyo para lo siguiente, he hecho el siguiente archivo a través de varias consultas y poco a poco lo he ido creando y pues ya casi lo tengo listo, pero, por más que intento solucionar lo siguiente no mas no me da. 1.-Al Abrir Excel aparece un formulario y ese tiene la finalidad de decirme el nombre de la persona, así como los días que faltan para la fecha de su vencimiento de contrato, sin embargo, por alguna razón que no logro entender, me toma todos y lo que necesito es de que si es el mes de Octubre me digan cuales vencen solamente en ese mes, cuando llegue Noviembre, me diga cuales son nada más los de noviem…

Hola al abrir el archivo me sale un error: "Excel found unreadable content in "nombre del archivo.xlsm. Do you want to recover the contents of this workbook? If you trust the source of this workbook, click Yes" Pulso yes, el archivo se abre y aparece una ventana con el siguiente error: "Repaired Records: Drawing from /xl/drawings/drawing3.xml part (Drawing shape)" En este archivo no tengo ningún gráfico. También les comento que este workbook realiza un proceso, y luego graba una planilla por cada cliente (en total por ahora son 54) en otra carpeta. los archivos con error son estos que generó. Podrían decirme como solucionarlo. Gracias!!!

Buenas tardes; Por favor, ayuda...... Hasta este año no he tenido problemas con el número de semana en las macros que tengo hechas, digo hasta este año porque hoy al actualizar y meter los datos del año que viene .....? No sale el número de semana que tendría que salir. El número de semana le estoy sacando de la siguiente forma: día="01/01/2021" Numero_semana=format(format(día,"ww"),"0#") El número de semana resultante debería de ser 53 pero me está dando 01. Como puedo solucionarlo. Estoy con el móvil, si necesitais el Excel con el ejemplo enciendo el ordenador y lo subo. Muchísimas gracias.