Hola a todos, Estoy creando una macro en la que se modifican/agregan datos a una base que ya fue cargada con anterioridad. Les explico la idea general y lo que necesito hacer, que no estoy logrando. 1. Cargo datos de fallas de equipos (desde Hoja "Carga de Fallas"), en una hoja llamada "Base de Datos". En la columna A deja guardado un código único asignado al equipo. Esta macro, deja información de cada equipo en filas, desde la columna A hasta la columna J, y luego en las columnas N y columna O. 2. Necesito una macro que busque el código único ingresado en la celda C4 de la hoja "Reparación", en la columna A de la Hoja "Base de datos" para identificar en q…

Hola Foristas: Intente adaptar una macro que me encontré aquí en el foro, para pasar datos de excel a PPoint pero aunque el demo esta muy bueno. No encuentro como pasar mi tabla y mi gráfica, es la primera vez que me solicitan este tipo de tarea y quisiera que me ayudaran con un ejemplo en donde pueda pasar la tabla y la gráfica que pongo en el ejemplo para ver como es el codigo y poder adecuarlo y terminar mi proyecto. la macro que trae el archivo la pueden deshacer para que el ejemplo sea mas simple. de antemano, muchas gracias Crea PPT_ST.zip

Buenas noches Genios en excel, aquí molestándolos de nuevo, figúrense que tengo un archivo que anula ingresos y egreso que me devuelve mi saldo anterior, es decir por ejemplo: al anular un ingreso en la hoja HISTÓRICO en la columna B del código 920 me devuelve mi stock anterior en la hoja de INVENTARIO del código 920, Pero hasta ahí está bien. Pero lo que quisiera es que al anular un ingreso o egreso que me anule la fila que estoy anulando en la hoja HISTÓRICO por ejemplo si quiero anular un ingreso voy a la hoja ANULACIONES_RA y digito el número de operación 1245 en la casilla de Userform de la operación a anular y el número de operación que busco está en l…

Bue dia, necesito modificar la macro que se detalla a continuación, en el trabajo nos migraron de Groupwise a Outlook y la persona que la realizo no está más. Option Explicit Private ogwApp As GroupwareTypeLibrary.Application Private ogwRootAcct As GroupwareTypeLibrary.account Sub Email_Multiple_Users_Via_Groupwise() 'Macro purpose: To stand as a self contained procedure for creating and 'sending an email to multiple users (if required) 'This code requires: ' -A reference to the Groupware Type Library ' -The following 2 lines declared at the beginning of the MODULE: ' Private ogwApp As GroupwareTypeLibrary.Application ' Private ogwRootAcct As…

Buenas tardes, tengo 2 hojas, en la 1° tengo una tabla con 5 campos (Cod, Nom, Apell, Area, Pais), en la 2° tengo un buscador, selecciono 1 codigo y me aparecen los demas datos, tambien tiene la imagen de la bandera del pais (B7). Lo que sucede es que no aparece la bandera cuando escribo un codigo en el filtro, pero he probado escribiendo el pais aparte y si funciona. ¿Como podria hacer que al actualizarse B7 tambien se actualize la imagen de la bandera? PD: Adjunto el codigo VBA para la imagen. Actual_Pais.zip Actual_Pais.zip

Buenos días y mes a todos; Estoy intentando armar una macro que sobre unos datos me genera un gráfico. Lo que me gustaría configurar es el poder cambiar los nombres de las etiquetas que aparecen en la leyenda y que se generan predeterminadamente y también si es posible añadir un filtro. Adjunto macro de ejemplo. Saludos a todos. MGráfico.xlsm

hola tengo creada una consulta con una celda echa con validación de datos "si" y "no" y tres botones de opción. Necesito que aparezca un mensaje de error o ayuda cuando en la celda de validación de datos se seleccione "si" + un botón de opción especifico. alguien me puede ayudar si mediante formula o codigo puedo conseguir que salga el mensaje? gracias.

Buenas días Espero que me puedan ayudar. Mi problema es el siguiente: Tengo un excel el cual posee 3 hojas (CAAA0547, Hoja2, Hoja5). En la hoja CAAA0547 tengo la base de datos. En la hoja 2 tengo dos macros una de busqueda segun algunos criterios y una que borra la busqueda, luego de realizar esta busqueda se calculan los promedios de días, mi problema es que yo quiero llevar este promedio de dias a la hoja 5 en donde copie esos dias dado los criterios definido en la hoja 2 y luego de que sean copiado en la hoja 5 este resultado no se borre. Espero que se entendiera mi problematica. Atte Nicolás pD: Adjunto archivo CAAA0547.zip

Hola buenas, Tengo la siguiente cuestión. Necesito poder filtrar con código VBA, para sacar los resultados únicos en una lista, para en el futuro hacer una lista validada con ella. Tengo la siguiente tabla con "Soporte" y "Espacio". En la celda E5 tengo una lista validada con mis soportes y me gustaría sacar en G5 una lista con los espacios dependiendo del soporte que elija en mi lista validada de E5. Es similar, por poner un ejemplo, a utilizar la función filtrar, como muestro en el ejemplo de F5 pero necesito hacerlo únicamente en VBA. En las capturas muestro como me gustaría que se viera utilizando la función filtrar, pero me gustaría rea…

Amigo expertos espero me ayuden, el tema es que tengo un formulario con 2 combobox y un textbox para hacer la busqueda de diferentes hojas y al lado derecho para que muestre los datos consultados en la parte izquierda con los controles antes mencionados; lo que pasa es que me busque cuando escoge del combobx tipo de reciduo me seleccione la hoja correspondiente y mas abajo tengo un textbox para poner el numero de normas a tratar que corresponde en la hoja seleccionada arriba y por ultimo mas abaja hay un combobox y por ultimo en el tipo de reciduo que debo seleccionar normas a cumplir me muestre los datos el los textbox correspondientes cumpliendo todo los pasos correspon…

hola. estoy desarrollando un macro que me baje un archivo plano a excel y al bajarlo necesito que me elimine la basura de este archivo plano; pero lo e intentado de varias formas y no e podido eliminar la basura de ese archivo esta fue la ultima forma que intente pero no lo elimina todo me saca erro 91 y no me deja continuar. Sub Macro1() ' ' Macro1 Macro ' ' ChDir "D:\" Workbooks.OpenText Filename:="D:\UFCG1041.PJB", Origin:=xlMSDOS, StartRow _ :=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(10, 1), Array _ (43, 1), Array(66, 1), Array(68, 1), Array(89, 1), Array(114, 1), Array(135, 1), Array(137, _ 1)), Decimal…

Buenas tardes, quisiera que cuando ejecuto una macro esta me escriba en una celda el nombre de una tabla para que la muestre en esa celda. Es decir, si tengo una tabla que va de "A1:B2" llamada TABLA. Si yo escribo de forma manual en la celda C5: "=TABLA", se me muestra la tabla. Pues bien, yo quiero poder hacer esto con VBA. Es decir, que la celda C5 esté vacía pero al ejecutar una macro se escriba en C5: "=TABLA" para que ahí se me muestre la tabla. El problema es que cuando intento hacerlo, en lugar de en C5 escribirse "=TABLA" se me escribe "@TABLA" y no sé cómo poder solucionarlo. Tengo esta línea de código: Sheets("Hoja").Range("C5") = "=TABLA" …

Hola que tal tengo problemas para realizar un macro con el titulo adjuntado, soy nuevo en Macros y intento crear un Buscador de Datos con Visor de Imágenes, ya que daría la soluciona mi trabajo. favor de enseñarme señores Maestros.:hopelessness: Modelo de Cotizacion.rar

Necesitaria su ayuda para agregarle un loop a esta macro que haga que mientras H36 sea "Bajo" se copie el valor de K36 en C36, si el valor de H36 es "alto" se copie L36 en C36 y si el valor de H36 es "Bien" termine la macro. El resto funcion abien pero yo mismo no pude agregarle el loop, les dejo masomenos lo que tengo Sub Porcentajes() Application.Calculation = xlCalculationAutomatic If Range("h36").Value = "Bajo" Then Range("k36").Copy Range("c36").PasteSpecial xlPasteValues End If If Range("h36").Value = "Alto" Then Range("l36").Copy Range("c36").PasteSpecial xlPasteValues End If If Range("h36").Value = "Bien" Then Exit Sub End Sub

Hola a todos!! Tengo un problema con la siguiente macro: Código: Sub Correo() strReportName = "C:\Users\xxx\Documents\Pedidos nacional\Pedido Norte Chico&FechaHora&. Pdf.pdf" Dim objOutlook As Object Dim objMail As Object Dim objOutlookAttach As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(olMailItem) Set objOutlookAttach = objOutlook.CreateItem(olAttachMents) With objMail .To = "xxx@xxxx.com.pe" .Subject = "Pedidos" .Body = "" .Attachments.Add (strReportName) .Send End With Set objMail = Nothing Set objOutloo…

Hola amigos, ya acudí a vosotros anteriormente con un problema de búsquedas complejas, he seguido adaptando mi libro a lo que necesito y con mis pocos conocimientos de Excel, en esta ocasión estoy intentando realizar una especie de control de stock para llevar un control de los productos que compro y vendo. A ver si me podeís ayudar, os explicaré un poco lo que necesito: 1.- He creado la hoja Stock almacén, donde mediante el botón de "Entrada de producto" quiero ir insertando las entradas de "material", pero en el userform5 que he creado no consigo como hacer que cuando pongo una referencia de producto se ponga automáticamente el nombre del mismo sin tener que teclearlo.…

Hola a todos, espero que me pueda ayudar con esta macro. Necesito hacer una iteración para saber la sección 2 , os lo explico mejor con un ejemplo de la tabla adjunta. El material, sección1, tipo e intensidad1 los pongo yo. La columna intensidad tabla es la intensidad máxima de la sección 300 de la tabla en la hoja 2. La intensidad2 corresponde a cada sección2 en la tabla de la hoja 2. El número de circuitos se obtiene de dividir la intensida1/intensidad2, al entero superior. La idea es cuando la intensidad 1 sea mayor a la intensidad de la tabla (367), la intensidad 1 se divida por las intensidades2 de la tabla en la hoja 2 y escoja el menor número de circuitos j…

Busco curso Macros y Programación VBA Buenos días. Busco un curso online de macros y programación VBA para excel 2010. Si podéis por favor aconsejarme alguna cosa de España... no me importa el precio, pero quiero uno que sea bueno de verdad. Es que busco y busco por internet y no acaba de convencerme nada... seguramente porque para empezar no sé si el programa que ofrecen es bueno o no. Muchas gracias

Hola amigos, Tengo un reto. En el archivo adjunto tengo un archivo con varias pestañas. La pestaña LEAVE SOURCE tiene dos tablas, estas deberían esta en blanco al abrir el archivo, excepto los Headers o titulos de las tablas. Existe un botón que le solicita un password al empleado, solo asi el podra ver su información. Hice manualmente una simulación de como se vería el resultado si el Empleado 2 ingresara al sistema. El resultado esta en la hoja LEAVE TARGET. NOTA: no deseo que se abra otra hoja, sino que en la misma hoja LEAVE SOURCE se filtre y muestre la información solicitada por el empleado (segun su password) Alguna idea con el codigo? …

tengo una pequeña interfaz que al dar inicio me abre unas opciones, cuando entro a la opcion centralizado me da 3 opciones, al entrar a cualquiera de ellas me envia a una tabla de selección. lo que deseo es que no se me abra un userform2 quiero que esa tabla se me abra en la pestaña 8 donde dice controladores y que la tabla que tengo al lado derecho de la hoja 1 de exel me quede en la hoja 2... le agradezco al que me ayude por que no e podido realizar este paso. adjunto el programita que estoy realizando perdon por lo feo que esta pero hasta ahora lo estoy realizando http://www.4shared.com/file/qDNq5mC4...nta_exel.html? herramienta_exel.part2.rar herramienta_exel.part1…

¡Hola! ¿Sabéis si hay alguna forma de traducir el control dtPicker (el del calendario) para que en vez de que aparezca "Today" se pueda ver "Hoy"? Gracias

Tengo la siguiente macro, y cuando quiero copiar los datos, no sé las filas que habrá.. he estimado 55 filas, pero si son menos, me inserta datos vacíos.. he incluido que me diga el número de filas, para conocer el número exacto. Como puedo poner el rango sin conocer la última fila, y que inserte las filas que tengan datos. Sub BorrarDatos() 'primero borro los datos de la hoja Sheets("macro").Range("A2:B55").ClearContents Sheets("macro").Range("D4:F55").ClearContents Sheets("macro").Range("I4:L55").ClearContents 'copio datos de la hoja datos, es la hoja que he tenido que sale del programa milena, tengo que copiar Sheets("datos").Range("A2:B55"…

Buenas tardes foro. Quisiera ver si alguien puede darme una mano con esto tengo 10 combobox que si o si deben estar colocados todos tienen los mismos datos ya que son de personas osea que solo cambia el nombre del combobox pero todo lo demás es igual, lo que quisiera es que estos combobox se vallan cargando a medida que se comienza a escribir en el mismo. tengo echo esto. lo que necesitaría es que de acuerdo al combobox que comiencen a escribir se cargue con los apellidos. y una vez que se seleccione otro combobox el anterior quede bloqueado a cambios. Option Explicit Private Sub carga_cb() Sheets("apellido y nombre").Select Cells(2, 5).Select Do …

Que tal buen día Tengo una base de datos de números y quisiera hacer que del rango donde esta la base da datos si es menor que 15 se convierta a 0 y si es mayor deje el numero que esta en la celda, con siguiente formula se realiza "=Si(C11<15,0,C11)" , pero quiero ver la opción para que lo haga en la misma celda donde esta el numero no hacer otra tabla de numeros. Dejo el ejemplo, a como lo tengo horita Ejemplo 2.xls

Hola amigos: Soy nuevo en el foro, estoy realizando mi PFC, mi duda es la siguiente: Tengo un cuadro de lista con diferentes artículos y tengo una macro que realiza una serie de operaciones cuando se realiza el evento click, mi problema es que en el cuadro de lista tengo unos 1000 artículos, y tengo que realizar estos mismos pasos para 10 años diferentes, es decir unos 10000 artículos, lo que me haría perder mucho tiempo si tengo que hacer el evento click manualmente. Por tanto estoy intentando realizar un bucle que me repita el evento click de mi listbox automáticamente para todos los artículos