Hola, Requiero de su valiosa orientación y ayuda, de antemano gracias! En la Hoja "DATA" tengo la información que necesito se pase a la hoja "RESULTADO" el id es el número de empleado que esta en la Hoja "RESULTADO" A2 solo se tiene que pasar toda la información que coincida con este dato. En la hoja "RESULTADO" he dejado como debe de quedar la información. Anexo archivo muestra. Muchas gracias! muestra.zip

Buenas tardes, como siempre recurro a vosotros cuando no encuentro una salida, de antemano muchísimas gracias por atender mi petición. Bueno vamos a ello. Necesito hacer una macro que me ordene los datos de la hoja adjunta (columnas A y B) de manera que queden como esta en las columnas (F y G), en principio no es difícil ya que es un orden alfabético por la columna “B”. El problema es que los datos de la columna “B” provienen de una fórmula que busca los datos de “A” en otro libro y si lo encuentra nos devuelve los datos de la columna “B”. Cuando intento ordenarlos por la columna “B” como la formula hace referencia a la celda del mismo número en la columna “A” se estropea…

Hola alguien sabrá con activar un botón oculto en un Userform donde tengo un ListBox en modo multiselect, anteriormente el ListBox lo tenia en modo single y con la siguiente instrucción funcionaba bien. Private Sub ListBox1_Click() CommandButton6.Visible = True End Sub

Buenos Dias, Comentandoles, que tengo un archivo con Macros el cual lo pase como Complemento Add-In que contiene 2 procedimientos este disponible en cualquier Excel que se abra, esto es, porque para el procedimiento 1 que es la conversion de Listas de Materiales (BOM) sea mas sencilla para el usuario y que no este teniendo que abrir el archivo de macros para ejecutar la conversion, pero porque? Bueno, el BOM se genera desde un ERP Epicor en un archivo de Excel simple, pero no esta formateado, la macro lo que hace es, crear una nueva hoja en ese libro con la informacion del BOM, y complementa las descripciones de los productos que quedaron truncadas en el report…

Buen día, estoy realizando un programa para controlar un pequeño inventario, y utilizo userforms para ingresar y registrar datos. Manejo un inventario de 100 materiales aproximadamente y los enumeré desde el 001 en adelante..... el detalle que se me presenta es al ingresar algún código para registrar un movimiento de material, utilizo un textbox, y al ingresar cualquier número, me antepone 2 ceros antes del número, todo esto dentro del textbox. Por ejemplo quiero ingresar el 047 y coloca 0047. Como puedo evitar que coloque 2 ceros delante del número que quiero agregar?

Buenos días; Me estoy liando un poco con las consultas por SQL en Access desde Excel, por favor, me podéis asesorar ( esto no lo había tocado nunca ). Hace un par de semanas empecé a tocar las consultas por SQL, vi un par de videos, hice algún ejercicio, etc…pero no me ha quedado muy claro ya que en cada sitio veo una cosa. Las primeras consultas que hice por SQL las hice con “Execute”, la verdad que me funcionaba bien hasta que he probado con un Access que tengo en red con muchas líneas y ……. tarda muchísimo en obtener los datos, investigando por internet, parece ser que la mayoría de la gente usa “Recordset”. Qué diferencia hay??, Yo en princip…

Hola le pido ayuda para la siguiente cuestión Tengo un Excel con dos hojas visibles en pantalla. Hoja1 y Hoja2. Con datos variables cada vez que lo abro el Excel Lo que necesito es que situándome en Hoja1 celda A1 me filtre en Hoja2 las filas que tengan el mismo valor Si me situo en Hoja1 celda A1 apareceria en pantalla lo siguiente Si me situó en Hoja1 celda A2 me aparecería Y asi sucesivamente Muchas gracias duda1.xlsx

Hola buen día, acudo a los expertos a ver quien me puede apoyar, requiero hacer un control de inventario, en una hoja de calculo tengo los datos de insumos con entradas, salidas y el stock (inventario), requiero de una macro que me permita crear vales y que estos se vayan sumando en la columna de salidas de la hoja de calculo inventario, se que es algo muy complicado para mi, espero puedan apoyarme, saludos Inventario.xlsx

Buenas pues eso.. me explico trabajo en bases de datos, muy seguido recibo los archivos sin las macros y tengo que importar modulo por modulo lo cual toma tiempo.. necesito 2 archivos distintos uno para modules y otra para modules2 para exportarlos en batch al archivo corrupto.. adjunto los modulos un abrazo, agradecido de antemano! Modules 2.zip Modules.zip

Hoja amigos, les traigo a ustedes este error que me marca una macro, cabe decir que algunas macros las encontré en este foro y las adapte a mis necesidades. Les platico. la siguiente macro la tengo en un botón, el cual al dar clic llama a un userform Private Sub CommandButton6_Click() EliminarFilas2.Show End Sub en ese userform hay que poner una contraseña para poder eliminar Private Sub CommandButton1_Click() Dim resp As Integer resp = 3313 If TextBox1 = 3313 Then Unload Me 'Tu procedimiento aquí Call Busqueda_Resguardo.eliminarProducto Else MsgBox ("La clave ingresada es incorrecta"), vbInformation, "AVISO" TextBox1 =…

Buenas tardes!! Estoy intentando buscar sin éxito información acerca de a través de una tableta para firma electrónica poder capturar la firma e insertarla en una hoja Excel, en un rango o una picture, pero no tengo éxito. Os agradezco si podéis darme un poco de luz, o si sabéis de algún link, o donde buscar, porque no veo información al respecto. La intención es que a la hora de imprimir una hoja de entrega de por ejemplo una herramienta de trabajo, en vez de imprimirla y firmarla en papel, pudiera firmarla en una tableta y guardar en PDF o imprimirla pero ya firmada. Todo lo que me sugiráis será de ayuda. Gracias de antemano. Moisés.

Buenas, necesito una macro que me permita abrir un cuadro de dialogo, seleccionar una carpeta y copiar todos los archivos que hay dentro a otro destino. Gracias de antemano Saludos!

Hola a todos...estimados... por favor me pueden ayudar...pls..pls.. la idea es que el formulario controle que No se repitan las facturas de un mismo proveedor ..(adjunto form.) se podra? desde ya agracias totales repfactura.xlsm

Hola necesito ayuda con lo siguiente: resulta de que estoy trabajando para una empresa que se dedica a hacer aberturas de metal y aluminio, el tema es que tienen 3 planillas de Excel y yo quisiera ver la forma de que la información de dos de ellas se traspase automáticamente a una de esas tres. Primero hay una planilla de caja donde se va cargando todo lo que se paga en el día y los pagos que se van recibiendo de los clientes incluyendo los cheques recibidos, otra planilla qué donde se van anotando los diferentes recibos que se van haciendo de forma manual y una tercer planilla que es la planilla que debería incluirse o qué debería tener la información de las primera…

Buen dia, Me pueden hacer el favor de ayudarme.? El adjunto hace lo siguiente: Guarda datos en en la hoja RELACION, CTAS, Y FACT, cada cuenta esta asociada con un numero el cual esta ligado a las facturas de dicha cuenta. Mi pregunta es: Como hago para modifica la cuenta y la facturuas asociada a una cuenta? ya que una cuenta se puede dar la posibilidad de modificarle, eliminar y agregarle facturas a esa cuenta. De antemano les agradezco su valiosa ayuda. Gracias. Registros Asociados.xlsm

Hola a todos, mi nombre es Maurizio Y mi problema es este: En una hoja de Excel usando el código vba Extraiga los enlaces que están estrechamente vinculados a las imágenes para el sitio de pronóstico del tiempo (Wearther); Y hasta ahora todo bien. Estos enlaces, de acuerdo con mi testamento, se insertan en la columna (A30: A44). Además, para decir la verdad, no usaré solo Cinco. En la fila (A5: F5) Se extraen las imágenes reales tomadas de este sitio. Por lo tanto, mi pregunta es: podría crear una especie de cambio de tamaño tanto de las celdas como de (Formas) para poder adaptar todo en igual medida. (P.S) Creé una función que me funciona bien sie…

Hola a todos, He escrito un macro con un bucle (Do/Loop Until) para que realice iterativamente el cálculo de una probabilidad hasta que esta sea mayor que el valor umbral fijado. Cuando se supera este valor, la macro debe de escribir en unas celdas determinadas el resultado del calculo inmediatamente anterior al que superó el umbral. Lo he probado y al ejecutarlo el cursor no para de girar y me dice que Excel No Responde. Supongo que entra en un bucle infinito. No se que he hecho mal. Os subo el archivo por si me podeis ayudar. Gracias de antemano. Saludos. Cálculo tamaño familias_m2.xlsm

Buenas, desde Gijón-Asturias-Spain, Disculpad si el tema ya ha sido resuelto, hay tanta información que me resulta imposible localizarlo. Es posible proteger un libro para que en una fecha determinada excel pida introducir contraseña? Saludos Lobato

Que tal saludos para todos quisiera saber si alguien me puede ayudar con una macro que me identifique las columnas con datos (como un currentregion)y sume su valores al final de cada cada columna muchas gracias por su colaboracion Libro1.xlsx

Hola amigos la siguiente macro la tengo en ComboBox como filtro, pero tengo dos detalles con ella espero contar con su apoyo. Cuando un articulo no cuenta con una imagen dentro de la carpeta imagenes me arroja un error y Cuando filtro un articulo por una sola palabra no lo realiza, es decir si busco la palabra cuadrada y esta está en medio o al final no la filtra, solo lo hace si esta al principio. Espero haberme explicado Dim C As Range, mPath$ Image1.Picture = LoadPicture("") Set C = Hoja8.Range("a1").CurrentRegion.Columns(2).Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole) If C Is Nothing Then Exit Sub Worksheets("inventario").Visible = True W…

¡Hola! Estoy trabajando con un macro que copie toda una carpeta con subcarpetas y archivos a otra ubicación, el nombre de las carpetas estan en A1, la ruta donde las voy a mover en B1. Por ahora tengo esto pero no logro que funcione. Sub copiafolder() Dim FSO As Object Dim inicio As String Dim fin As String Dim valida As String Set FSO = CreateObject("scripting.filesystemobject") Range("A1").Select On Error Resume Next Do While ActiveCell.Value <> "" inicio = Range("B1") & ActiveCell fin = Range("B1") valida = Dir(inicio) If valida = "" Then Else FSO.CopyFolder inicio, fin End If Act…

Hola amigos tengo una macro que inserta una imagen en un control image y en una carpeta de imagenes, funciona bien hace su función casi perfecta, pero tengo un pequeño detalle cuando doy click en el botón donde esta la macro y aparece el explorador de windows y no selecciono ninguna imagen, pero cierro el explorador me arroja un error diciendo "archivo no encontrado".Alguien podrá ayudarme en revisar mi macro y decirme que me falta para que esto no suceda. Gracias por su atención. Private Sub CommandButton4_Click() ArchivoSeleccion = Application.GetOpenFilename ' Elegimos la imagen y la ruta Altas.Image1.Picture = LoadPicture(ArchivoSeleccion) ' cargamos la im…

Hola, estimados amigos De nuevo por aqui con un trabajo que me lleva todo el dia pero no doy con la formula, tengo varios tex que quiero rellenar dependiendo del valor de la venta, si vendo el 10 % que me indique el total en color rojo y asi sucesivamente hasta llegar al estimado que seria el 100 % en verde, he dejado dentro una breve explicacion, el trabajo esta funcionando, pero no lo hace como deberia, y no encuentro el error, por que ponga la cantidad que ponga, se llenan todos los text Les agradezco su colaboracion Cordiales saludos prueba.xlsm

Estimados, Les presento mi problema que espero me puedan dar una guía de como resolverlo. Por temas de presentación en un reporte de excel tengo que poner una tabla dinámica bajo la otra tabla dinámica, el problema que tengo como es evidente es que el momento que quiero expandir la tabla dinámica superior no me deja por que no se puede superponer sobra la tabla dinámica inferior. Para solventar este problema quería aplicar una macro en VBA de excel que permita hacer lo siguiente: Encontrar el evento de la tabla dinámica que cuando de clic en el "+" para expandir la tabla dinámica lo primero que realice la macro se contar los hijos que contiene. …

Buenas tardes a todos! Tengo una base de datos de la cual necesito que mi macro busque una palabra y la reemplaza por otra, mi codigo lo hace pero el proble es que si es una palabra compuesta no modifica tod el texto es decir si tengo en mi tabla lo siguiente: 1.-velo 2.-velo 1 3.-velo 2 4.-Velo 5.-VeLo y lo quiero cambiar por la palabra VELO solo se modifican la 1,4 y 5 les envio mi codigo espero puedan orientarme Sub Reemplazar() Dim Tex As Variant, Car As Variant, Lar As Integer Application.ScreenUpdating = False On Error Resume Next Set a = Sheets("Hoja1") uf = Range("E" &am…