Macros y programación VBA

Estimados, tengo una duda en como generar un respaldo de un archivo con otro nombre y luego cerrarlo sin que se cierre el achivo 1 base personal.rar

Estimados: Me gustaría que me ayudaran a resumir la información del siguiente archivo mediante una macro. Para empezar es un que contiene los mensajes swift de donde trabajo, son siempre entre 30,000 y 35,000 filas de información (yo adjunto solo un extracto). Como pueden ver el archivo no se puede manipular debido a que existe mucha basura de información. Les explico un poco de como se estructuran los mensajes swift. Un mensaje swift MT950 y MT940 son como estados de cuenta donde se reflejan todos tus movimientos de un determinado número de cuenta. Siempre se componen de máximo 18 movimientos, con un saldo inicial y un saldo final, en caso de haber mas movimientos se m…

Hola a todos Tengo el siguiente macro que crea los datos de Excel a ACCESS. Ocupo de la ayuda de ustedes para que el macro crear revise primero si existe la cédula en el campo "Num Id" si existe debe alertar y no crear la fila. sino existe debe crear todos los datos. https://mega.nz/file/hQIwHaSJ#2rkHUCQHiKFAvsUAbkm4MCHuVUrkdEMhBafuyABgYEk Muchas gracias por toda la ayuda

El gran Gerson Pineda me apoyo con la instrucción para eliminar del listbox y hoja en modo multiselect la cual integre a un userform que tengo, donde al eliminar del listbox sin usar el filtro o filtrando me arroja un error en la esta instrucción donde devuelvo a la hoja inventario la cantidad del producto eliminado del listbox: Dim NombreHoja As String NombreHoja = "Inventario" 'Buscamos la última fila 'EN EL SIGUIENTE ME ESTOY REFIRIENDO A LA HOJA SEGUN EL SECTOR fila = 2 Do While ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) <> "" fila = fila + 1 Loop Final = fila 'CON ESTE CODIGO ESTARE RESTANDO "1" AL FOLIO EN CASO SE REGRESE …

Hola a todos de nuevo, no mando el archivo por lo que "pesa" pero vosotros me entenderéis perfectamente. Tengo un simple programa que me genera números aleatorios, por el sistema siguiente; en una columna pongo "Aleatorio()" y me genera una lista de números entre 0 y 1. en la columna siguiente pongo "Jerarquía(L10;L10:L30) por ejemplo, y me transforma los números a enteros. y todo funciona perfectamente, cada vez que pulso F9 o botón me genera números aleatorios. LA PREGUNTA: como hago que la macro solo funcione una sola vez ? (para que vuelva a funcionar tendría que salir del programa y volver a entrar, eso es lo que deseo) Muchas gracias por a…

Buenas tardes Amigos tengo la siguiente consulta, tengo un archivo en donde si no se registran ciertos datos el no deja guardar o seguir llenando la información, pero cuando lo abro y no digito ningún dato y le doy guardar me sale la restricción y me dice que hacen falta datos, pero si omito este comentario y vuelvo a darle guardar me deja seguir. Igual sale al no diligenciar ciertos datos como la fecha de retiro la dejo en blanco y me salto la restricción y me deja guardar. no se por que al segundo intento me deja pasar. Gracias por la ayuda que me puedan brindar. Adjunto archivo. Formato Reporte Retiros Version 2.07.13.rar

Hola buenas tardes tengo una rchivo que me ayuda con la seleccion de archivos por medio del browser y de ahi extraigo algunos datos. Con la macro puedo buscar un archivo dentro del explorador, busco y selecciono archivo y extraigo datos como ruta, nombre del archivo etc, pero debido a que ya tengo mas archivos (200 archivos .doc), me hes dificil navegar entre todos y revisar cada renglon, existe alguna manera en la que pueda filtrar los archivos con parte del nombre (Escrito en celda, ejemplo C6), y al abrir el browser me muestre solo los con extension .doc y .docx con los archivos de nombres coincidentes (C6). O si hay alguna otra opcion, me ayudara mucho. …

Estimad@s, buenos días. Debo seleccionar un rango de celdas que contienen formulas desde la celda B2 hasta la I800 (B2:I800). Este rango varía de acuerdo a la información necesaria. Es decir que trae datos desde B2 hasta I3 y/o hasta I800. El tema es que las fórmulas siempre van hasta la I800 y no hasta el dato que quiero que seleccione. En este caso, el dato es un texto que es resultado de una fórmula. Cuando la fórmula no cumple cierta condición se muestra en blanco (" "). Pero para la Macro es una celda con datos. Entonces, cómo seleccionar hasta la última celda que contenga "x" dato que es el resultado de una fórmula. Debo seleccionar B2 hasta la última celda que…

Navegando por la red he encontrado un código para seleccionar objetos de autocad, es el siguiente: Public AcadDoc As Object Public AcadUtil As Object Dim objLinea As AcadObject Dim Punto As Variant Sub MacroSeleccion() Set AcadDoc = GetObject(, "Autocad.Application").ActiveDocument Set AcadUtil = GetObject(, "Autocad.Application").ActiveDocument.Utility AcadDoc.Utility.GetEntity objLinea, Punto, "Selecione objeto: " End Sub Sin embargo, al ejecutarse en autocad sólo me pone que designe los objetos. No me los selecciona automáticamente. He encontrado otro código similar, pero no me funciona. Creo que es más adecuado que el otro: es el siguiente: Dim SS As AcadS…

Tengo esta macro y lo único que no he conseguido es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que he conseguido hasta ahora muchas gracias! la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se si hay…

Buen Día Grupo necesito una ayuda para organizar este archivo .txt, actualmente me toca hacerlo con el Asistente para importar texto, no se si se pueda hacer una macro que recora fila por fila para lograr organizarlo, quedo pendiente si me pueden ayudar con esta accesoria: En este link esta el archivo. https://drive.google.com/…/0ByZZFXqKaBHYSXJ4THlBWkMtU…/view… Gracias.. Inventario.rar

Mi pregunta es la siguiente necesito una macro que sea igual que el buscarv pero al encontrar la respuesta que salga las obsiones que se encontro a partir de una base de datos del mismo libro pero en otra hoja, me explico con la siguiente ejemplo: Hoja 1 celda A1 Celda B1 VALOR BUSCADO VALOR ENCONTRADO 2785741019 OSCAR RUPERTO AGUILA 1023109029 PERTEC S.A. 5746304011 PEDRO JOSE AVILES SALAS Al escribir yo el valor buscado xxxxxx en el valor encontrado que se despleble un lista de los resultados encontrados y seleccionar uno de ellos. No se si me deje de entender

Hola como les va; Estoy generando una orden de producción para mi trabajo. He realizado de manera arcaica una código que me permite guardar los datos de la orden a una base de datos con un contador, mismo que ligue para llevar un folio consecutivo para después poder generar un reporte de ventas en una tabla dinamica. Sin embargo cuando quise hacer el guardado de la columna A10, A11, A12 etc... encontré la dificultad para poder guardar los datos y considero me pasará lo mismo con las otras columnas, ya que se sobreescriben los datos. Alguien que me pudiera ayudar en resolver este asunto o darme alguna otra idea de como generar el formulario. Anexo mues…

Hola buenas tardes! La siguiente macro la quiero utilizar para que me sume valores que voy capturando en determinadas celdas y los acumule en una especifica celda. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A2:K10"), Target) Is Nothing Then Hoja4.[A1] = Hoja4.[A1] + Target End If End Sub El problema donde me atore es que necesito que solo sume los valores que estoy capturando y no adicione los que ya estaban con anterioridad. por ejemplo: suponiendo que inicio todo de cero y la primer captura es de 100 en la celda "A2" y en la celda "K10" capturo 50 lo que da un total de 150 que es lo que aparecerá en la celda "A…

Buenos días. Tengo el siguiente Macro. col = 5: uFila = Cells(Rows.Count, col).End(xlUp).Row datos = Cells(1, col).Resize(uFila).Address On Error GoTo 0 Names.Add "sumar", "=if(" & datos & "=""INICIO"",row(" & datos & "))" Names.Add "final", "=if(" & datos & "=""FINAL"",row(" & datos & "))" Application.ScreenUpdating = False For n = 1 To [count(sumar)] fila1 = Evaluate("small(sumar," & n & ")") + 1 fila2 = Evaluate("small(final," & n & ")") - 1 grupo = Cells(fila1, col).Address(0, 0) & ":" & Cells(fila2, col).Address(0, 0) Cells(fila1 - 1, col + 1).Formula = "=sum(" & g…

Buenas a todos. Tengo un archivo excel que nada mas abrirlo se abre un formulario de inicio de sesión. Mientras este formulario está abierto no se puede ver el archivo de excel, y una vez que se inicia sesión ya se puede acceder al libro. No obstante, la macro me genera dos problemas: 1.El primero de ellos es que cuando abro el libro, es decir, cuando doy dos clicks al archivo de excel, el excel se abre rápidamente, se cierra y ahí me muestra el formulario de inicio de sesión. Pero yo no quiero que funcione así. Yo quiero que al dar dos clicks al archivo de excel directamente se me abra el formulario sin que se abra el excel. 2. Si abro el archivo de excel…

Buenas! Estoy realizando un optimizador de corte lineal y con el uso de Solver pensaba que iba a ser suficiente, pero por desgracia Solver solo me permite cambiar 200 celdas y mis necesidades son más complejas y necesito alrededor de 800 a 1500 celdas cambiantes. Existe alguna macro que pueda desempeñar la misma función que Solver, es decir eligiendo un máximo, un mínimo o un valor, con una serie de restricciones, con una función objetivó, pero con más de 200 celdas cambiantes? Me sería de gran ayuda. Saludos!

Navegando en este fabuloso foro me encontre una macro que se ajusta a mis necesidades, gracias al señor LOGROASTUR, vaya! es un post algo viejo pero que al final es lo que tanto necesitaba, ahora bien, si alguien me pudiera ayudar ya que al abrir el archivo me tira un error de Error al cargar biblioteca DLL, y no me anda mas, se tira y se bloquea y solo con el administrador de tareas puedo deshechar el proceso, uso Office 2007, si alguien me pudiera orientar, quedo muy agradecido, el error me lo tira al principio, y no anda mas, si anda de buenas, me deja abrirlo pero al correrlo me tira error al principio donde envia un mensaje de pantalla... de agregar Microsoft Outlook…

buenas tardes amigos del foro, mi problema es el siguiente; baje esta macro y la adapte a mis necesidades, pero cuando escribo lo que requiero buscar ya sea por nombre, direccion y solicitud, tarda bastante en buscarla, como que titilea cada que escribe una letra, adjunto el archivo con la macro y deberas les agradesco cualquier ayuda que me puedan brindar ya que no domino bien las macros. buscador media t.rar

Buenas, tengo un problema con 3 libros de excel, debo realizar cotizaciones pero el proceso es tedioso en cuanto a copy paste, no soy muy bueno en excel , y solicito su ayuda para crear una macro que me ayude en el trabajo, ya que en ocasiones tengo que quedarme de largo haciendo esto. la situacion es. tengo 3 libros de excel : A, B, C ; el libro A, contiene todos los productos que vendo, alrededor de 3000 productos y hay 12 columnas con los criterios de filtrado o caracteristicas, columnas A B C D E F G H I J K filas x x …

Hola Grupo buenas tardes, Agradecería su colaboración con el siguiente caso: Tengo un archivo de Excel así: Hoja = Procesar: que contiene los botones con las macros Hoja = Data Tabla = Table1 en la hoja Data y contiene los registros o datos que proceso con las macros Botón = btnCargueInfo en la hoja Procesar Botón = btnFacturacion en la hoja Procesar Macro Botón btnFacturacion : Primero construí esta macro que amablemente un miembro de esta comunidad me ayudó a corregir en un par de errores que tenía. La macro hace lo siguiente Copia de la columna K a la AC, separa en columnas el contenido de AC en AC y AD y luego e…

hola Amigos!! espero se encuentren muy bien, En el archivo adjunto, encontrarán dos hojas: MB5L y BD. Debo transformar la información que se encuentra en MB5L y estructura como una base de datos en la hoja BD. para realizar esto en la mB5L debe se coger los datos que se encuentran en las columnas "i" a "n" copiarlos y pegarlos en las columnas "c" a "h" en la hoja BD. Adicional, se debe repetir la sociedad y la cta mayor por cada registro que se pega en la hoja BD. la soc se encuentra para el primer caso en la celda C5 y cta mayor en B6. Comparto una hoja de como debería de quedar el resultado ? si me pueden ayudar, se lo agradecería mucho!! MB25 - ej…

Hola Amigos, soy nuevo aquí pero aprendo un montón de sus respuestas. Queria consultarles si pueden ayudarme con el siguiente tema. Deseo traspasar un rango de datos de una columna definida, de varios archivos, que se van nombrando de distinta manera, y traspasarlos a un excel común, uno al lado del otro (de acuerdo a un numero de reporte correlativo) para lograr hacer un estadistico con dichos datos. Adicionalmente a esto, vale comentar que la columna de donde saco la informacion (de cada reporte con distinto nombre), es una columna que tiene una formula y que debo colocar en el estadistico como valor absoluto. Desde ya les agradezco.

Hola amigos, Tengo lo siguiente en excel: |USUARIO| |Carlos | Mov.ventas |Mov.Compras| Mov.Salir | Mov.Cuentas | |Diana | Exp.Calcu |Mov.Ventas | |Pedro | Mov.Compras | Como pueden observar cada usuario tiene sus movimientos separados en columnas, lo que quiero lograr es una macro que me transponga los datos que tengo en columnas a filas por cada usuario, por ejemplo que quede algo así: USUARIO| Carlos | Mov.ventas | Carlos | Mov.Compras | Carlos | Mov.Salir | Carlos | Mov.Cuentas | Diana | Exp.Calcu | Diana | Mov.Ventas | Pedro | Mov.Compras | Podrían ayudarme por favor? :so…

Buen dia Estoy adaptando una macro que sirve para exportar archivos Txt a excel, funciona de maravilla, es funcional cuando se trata de separar por coma y espacio, pero quisiera saber como le puedo adaptar para que me funcione con alguna condicional diferente a las antes mencionadas como seria "_" Esta es la parte de la macro donde tengo entendido se mueve para poder delimitar por coma o espacio y quisiera saber como delimitar por alguna carácter diferente a los que se tiene "_" With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _ mPath & iFile, Destination:=ActiveSheet.Range("$A$1")) .AdjustColumnWidth = True: .TextFileConsecutiveD…