Buenas tardes, gusto saludarles. Tengo un problema con el código que del Modulo 2, cuando lo pongo a correr se detiene en la línea: {ActiveSheet.Range("$X$5:$BD$357").AutoFilter Field:=2, Criteria1:="PC1"} , y me lleva al Modulo 1, la verdad no encuentro porque se da el error. Les agradezco si me pueden ayudar. Saludes desde Costa Rica, Nota: No me dejó subir el archivo, tal vez se lo pueda enviar por correo.

Muy buenas he copiado de aqui un codigo para invalidar el boton X de cerrar Excel y que el usuario oprima el boton de CERRAR que yo he creado, hasta aqui todo perfecto, el problema es que yo quiero que aparte de GUARDAR el LIBRO, la aplicacion se me cierre, el problema es cuando sustituyo el ACTIVEWORKBOOK.CLOSE por APPLICATION.QUIT la aplicacion ni el libro se me cierran. Subo un adjunto para que veais el problema. muchas Gracias PruebaLibro1.xls

Buena tarde a todos los foristas, espero se encuentren bien. El motivo de este tema es el siguiente: En una hoja "BASE" tengo una serie de artículos y sus respectivos párrafos. Lo que deseo es que en la hoja "BUSQUEDA" pueda buscar una palabra o un artículo, de tal forma que me copie en esa hoja todos los resultados que encuentre en la hoja "BASE". Dado que con lo expuesto seguramente no me entenderán, adjunto un ejemplo, de cómo está estructurado el archivo y un ejemplo de los resultados que quisiera alcanzar. Si me pudieran ayudar, se los agradezco desde ya. De nuevo, muchas gracias por la atención y el apoyo brindado siempre. Feliz tarde. Att. Pedro BUSQUEDA.xls

Hola que tal a todos, en esta ocacion solicito de su apoyo para resolver esta macro, eh visto varios ejemplos pero no es precisamente lo que necesito. Tengo un archivo .dat que se genera diario, asi que tengo que estarle cambiando la extencion a .txt o tambien directamente abrir el .dat con excel y estar separando por columnas con las herramientas que proporciona excel, existira alguna forma de hacerlo de manera automatica con un boton, que de mi txt me separe las columnas juntos con su encabezado en una hoja de excel??? Los primeros datos que incluye el archivo .dat no me sirven sino hasta donde aparecen los encabezados, luego mas adelante vuelve a aparecer estos encabe…

Buenas noches tengo esta cade de texto \\000.000.000\recepcion\A. MENARINI LATIN AMERICA, S.L.U. - SUCURSAL COLOMBIA\900932340.ME10110.pdf pero quiero extrer solo esta parte 900932340.ME10110.pdf quisiera por favor saber que codigo me sirve para extraer esa parte o bien extraer una parte deseada una idea de esto como yo lo hago normalmente en ecxel es que utilizo la funcion buscar ("/") y pues digamos que me arroja 3 luego vuelvo a utilizar la funcion, pero esta ves en ves de numero inical 1 pongo 4 para que omita el primer "/"

Buenas Tardes. Resulta que soy un poco capuyo y cree un archivo xlsm llamado macc.xlsm donde realice varios formularios con codigo haciendo referencia a ese nombre de archivo y a su ruta, el tema es que el archivo se tiene que llamar Facturas, lo que hago es lo siguiente: 1) Copio el archivo macc.xlsm en la misma carpeta y le cambio el nombre a Facturas.xlsm ( lo hago para dejar una copia del otro por si acaso) 2) Abro el archivo Facturas.xlsm 3)Abro el editor de VBA y con la opcion de buscar y remplazar remplazo todos los valores que encuentro de macc.xlsm por Facturas.xlsm 4) Todo funciona ok el problema es que me aparece un mensaje que hay datos que vinculan con m…

Hola ojala me ayuden con esta macro q en el 2003 funciona perfecto , pero en 2007 se cae al toque me aparece algo de un error 1004 tiempo ejecución , pero no logro repararla, esto pq me borraran el 2003 y me urge q funcione, es una macro para enviar varios correos con información de excel la macro es Private Sub ENVIAR_EMAIL() Application.ScreenUpdating = False Application.DisplayAlerts = False ' para q no salga aviso al final HMAIL.Activate HSAL.Cells.Clear HMAIL.Cells.Copy HSAL.Cells 'Workbooks(L3).SaveCopyAs ThisWorkbook.Path & "\LOCAL " & COL.List(x, 0) & ".xls" ActiveWorkbook.EnvelopeVisible = True 'permite enviar mas de 1 correo a la v…

Hola a todos! tengo una duda, resulta que tengo dos libros, en los cuales al hacer un buscav para extraer unos datos, me extrae el primer resultado que encuentra, es decir de un cliente puedo tener 45 registros, necesito saber la forma que me busque el cliente pero me extraiga el ultimo valor osea de los 45 registro me extraiga el 45... si son 3 que me extraiga el 3.. yasi sucesivamente mis datos del libro1 son ID columna A, Columna B, dato a extraer... el libro1 tiene mas de 450000 y el libro 2 solo 4870, pero estos datos son variables... Del libro 2 tengo unicamente el ID en la columna A y si encuentra el resultado me gustaria que lo pusiera en la columna B... Gracia…

Buenos días. Necesito crear una hoja de resumen de un libro que a su vez se seguirán incorporando nuevas hojas para ir actualizando (la verdad soy nulo para macro, pero tengo muchas ganas de aprender) Estaré atento a sus comentarios.- adjunto archivo Sheet 1.xls

Buenas Tardes, una vez mas necesito su valiosa colaboracion: Realizo la siguiente macro: Sheets("Hoja1").Select Range("A1").Select ActiveCell.Offset(1, 0).Range("A1").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Names.Add Name:="DATO", RefersToR1C1:="=Hoja1!R2C1:R26C1" Cuando ingreso una fila mas esta no hace parte del rango ya creado por esto R2C1:R26C1, como hago sin necesidad de hacer una tabla pra que cuando ingrese una nueva fila esta haga parte del rango llamado "DATO", gracias

Como puedo desde una planilla excel local leer y bajar un dato (número de orden de compra), desde una planilla ubicada en un servidor con IP fija. Una vez leido el número incrementarlo en uno y subirlo al servidor remoto actualizado. Gracias por la ayuda que me puedan dar.

Tengo una hoja de excel que es una tabla. ¿Cómo puedo copiar mas líneas desde otra hoja de forma que aumente el tamaño de la tabla en la hoja de destino? Me estoy volviendo loco y no sé cómo hacerlo...

Hola amigos foreros, y saludos a los maestros. Estoy de nuevo con todos ustedes para solicitar su inestimable ayuda con un problema que no puedo resolver y les agradeceria, le explico; tengo un buscador que necesito me encuentre ( eso lo tengo resuelto ) por varias opciones, el problema es que solo me devuelve un total de 8 columnas de datos y tengo 13, he provado varias cosas pero no doy con el asunto, les dejo la hoja para que lo vean, muchas gracias por anticipado Saludos cordiales Prueba.rar

Hola a todos, espero se encuentren muy bien, paso por aquí para que me ayuden a mejorar el código propuesto. La idea aquí es traer una imagen desde carpeta para que se refleje en el formulario teniendo en cuenta lo siguiente: 1. Al seleccionar la opción DIRECTOS me rellene el combobox cmbArea y traiga esta data(UNO, DOS) y si le doy a INDIRECTOS me rellene el combobox cmbArea y traiga la data(INDIRECTOS).AYUDA.rar 2. Cuando yo elija un dato del combobox Area me refleje la data que tenga en trabajo, y viceversa con INDIRECTOS. 3. Cuando yo elija cualquier dato del combobox cmbjobcode me traiga la imagen. Lo que trato de explicar aquí es mi humilde…

Cada vez que ingreso un registro, a través de un formulario, tengo que cerrar y volver a abrir el formulario para poder introducir otro registro; y, así sucesivamente. Si lo intento registrar a continuación uno de otro, me sale una pantalla que dice: "Valor de propiedad no válido" Podría tener algo que ver que los ComboBox del formulario, los tengo con la propiedad MatchEntry en 1-fmMatchEntryComplete, para obligar al usuario a que elija uno de los datos de la lista que se despliega del ComboBox e impedir que pueda escribir cualquier cosa. Esta la parte del código que utilizo para registrar los datos del UserForm: PrivateSubcmdRegistra_Click() DimSalirAsBoolean,Esta…

Buen dia Reciban cordial saludos a todos hoy les pido la colaboración con el siguiente tema ya que no he podido, en el libro adjunto, tengo que sacar un informe de relacion entre las fecha, hora de incio y coordinador de la siguiente manera. Son varias las opciones del filtro. 1 tiene que coincidir la fecha, la hora de inicio y el coordinador. 2 tiene que coincidir la fecha, la hora de inicio tiene un lapso de tiempo no mayor a 30 minutos, el coordinador. en la hoja de deje subrayado dos ejemplos para que se puedan guiar mejor del resultado que requiero les agradezco si me pueden colaborar. quedare atento…

Buenas tardes!, me gustaría consultarles como crear la correcta consulta sql para conseguir el valor de stock de cada producto en la hoja (ingresos de excel. Tengo la hoja ingresos, que se va a vaciar en la BD de access, pero ahí necesito conocer el stock de cada unidad (columna STOCK IZQ Y STOCK DER), que voy colocando para que pueda saber que no puedo exceder las salidas del inventario esto con la ayuda de una macro en el evento change () Cree una consulta pero solo me arroja la suma total sin descontar las salidas. Adjunto los archivos de trabajo para ver si pueden darme una mano. Agradezco mucho su atención. ¡Saludos! SQL_CONSULTA.rar

Hola a todos! tengo una consulta que pareciera ser imposible... vengo investigando hace mas de un mes y no encuentro la forma de resolverlo.... Tengo una rutina que me crea una serie de shapes rectangulares como si fueran boton de un indice... la rutina recorre cada hoja, y crea en la hoja1 un shape por cada hoja que encuentre en el libro, ... logre que le ponga el nombre de cada hoja como texto al shape... pero lo que necesito agregar el action para cada shape, , ejemplo: si existe una hoja "X" creo el shape con texto "X" en la hoja 1. y el action debe ser : ir a la hoja X , si esta oculta, mostrarla. For Each Worksheet In ThisWorkbook.Wor…

Hola a todos, mi nombre es A.Maurizio Y mi problema es este: En una hoja de Excel tengo 6 (Formas) con el oro interno de las imágenes de Misceláneos. Entonces encontré este listado en Internet: VBA: Opción explícita Opción explícita Sub Export_Images () Dim MyChart como cadena, MyPicture como cadena, oShape como variante Dim PicWidth As Long, PicHeight As Long Dim strImageName Dim oDia Dim oChartArea Application.ScreenUpdating = False En error GoTo finaliza MyPicture = Selection.Name Con seleccion PicHeight = .ShapeRange.Height PicWidth = .ShapeRange.Width Terminar con Char…

Buenas tardes/noches estimados especialistas, Estaba tratando de adecuar la macro a mi necesidad sin embargo me tope con algunos problemas que me gustaría me puedan ayudar a resolver, son 02 observaciones: 1. la macro no envía los archivos adjuntos pese a tener la ruta, la necesito porque envía diferentes reportes personalizados por usuario. 2. se creó la macro filtro_avanzado para agregar fechas al correo pero no funciona. Muchas gracias por su tiempo y quedo atento a su respuesta en caso no haber sido claro por favor me comentan. Saludos, Mandar mail con adjunto.xlsm

Tengo este archivo de excel que consta de 3 partes la primera es la hoja programador la cual se registra un aula(ambiente), una código de curso (ficha),Curso (Programa), Instructor, resultado, instructor transversal, resultado transversal, y sus horarios y días de clase, con una macro que se activa al dar clic en el botón ver cruces se puede ver si un aula tiene doble programación o si un instructor esta repetido a la misma hora el mismo día. La segunda es la programación que de manera gráfica muestra en los ambientes (101, 102,103) y su respectiva ficha, instructores y resultados durante cada día del año programado en la fase 1. La tercera son 3 hojas de excel que se…

Me aparece un error al momento de ejecutar en VB. Por favor si alguien lo puede revisar. Tampoco me guarda lo que registro en las celdas, al momento de guardar y salir del UserForm Saludos!! FINAL ensayo (1).zip

Hola amigos del foro, requiero de su incondicional apoyo para poder resolver el problema que tengo, deseo una macro que me recorra toda una fila hasta la próxima celda con dato, (Omitiendo las celdas en blanco) y de encontrarla corra los datos hacia la izquierda. Gracias por su apoyo y tiempo. Saludos Problema00.xls

Hola foreros Necesito un pequeño cable que no consigo hacer con un formulario que he creado os lo muestro en la imagen. Bien de momento todo me funciona ok, pero os pongo en contexto el botón "nuevo" crea una nueva hoja en ella inserto los datos dándole a botón guardar pero cuando clicko me gustaría que esa hoja se llamase igual que el campo "nombre más apellido". Por último en cuadro imagen tambien me gustaría clikar y que me dirija a una carpeta donde tengo las fotos almacenadas de cada cliente. No consigo dar con lo programación de suso dichos. Os agradecería que me pudierais dar un poco de luz. Gracias antemano y saludo.

Buenas tardes, me gustaría saber si me pueden ayudar con la siguiente macro, todos los días recibo un archivo con los datos de unos ACTIVOS que son colocados en diferentes hojas dependiendo del activo (ACTIVO1, ACTIVO2,…ACTIVOn), es decir, hay una hoja para cada activo. Hice una macro en el archivo "DATOS DEL SIAR PARA ESTIMACION DEL C-VaR y EVT.xls" con la intención de extraer solo el rango que me interesa el cual es fijo para cada activo ("B4:B23"). La macro me funciona bien pero tengo el problema que no siempre hay información para algún activo en particular, y yo hice la macro considerándolos todos. Por ejemplo, si el día de mañana no hay información para el ACTIVO3 …