Hola! Antes que nada quiero agradecerle a muchos de ustedes ya que muchas veces logro solucionar mis problemas gracias a todos los que interactuan en el foro. Mi problema es el siguiente: En la hoja VENTAS, tengo un boton "Modificar", a partir del cual puedo borrar un registro de venta (Ej: VEN-00006). A su vez, simultaneamente, me tiene que borrar en la hoja COMISIONES, todos los registros que terminen con esa numeracion (Siguiendo el ejemplo, todos los registros terminados en 00006, ya que en COMISIONES los registros comienzan con VEN- y COM-), lo cual NO puedo lograrlo. En definitiva, el codigo que necesito seria aquel que extraiga los ultimo…

Hola a todos Tengo un formulario en una hoja excel, donde las personas ingresan su Nombre, Rut e Información de cada área. La macro copia las celdas con la información y las pega en un archivo consolidado que esta en un disco en la red. La macro hace todo lo que tiene que hacer, y funciona bien, pero no pensé que alguien cambiaría el nombre del archivo, y cuando paso esto, la macro se cae. El código es súper simple pero no se como corregirlo, se los dejo a continuación: Range("A3:D3").Select ChDir "Y:\Publico\SRubio\Informacion Areas" Workbooks.Open FileName:= _ "Y:\Publico\SRubio\Informacion Areas\Consolidado.xlsx" Windows("Encuesta Clima …

Buenas tardes a todos! Que tal, en espera de su ayuda tengo el siguiente problema, ya tengo una macro que me hace un reporte por cada sucursal que se tiene en el pais, pero no logro separarlo por bloques y me inserte dos filas en blanco arriba despues de que encuentre un dato. y donde inserto la segunda linea me ponga el nombre ahi, y en toda esa fila me realize la sumatoria de los campos. Creo que con el ejemplo quedara mas claro en la hoja1 es como tengo mi dato, y en la hoja2 como deseo que quede, espero me puedan apoyar ya que es el ultimo dato que me hace falta para terminar. Este codigo es correcto me inserta las 2 filas en blanco que necesito, ya logre que funcio…

Buenas tardes Tengo una planilla con macros, el problema que tengo es que me da error al ejecutarla (cabe aclarar que la misma antes funcionaba) El código de la macro es el siguiente Sub GUARDAR_FILTROLAB() ' Guardar Macro ' Acceso directo: CTRL+h ' Dim nombre As String Ruta = "Z:\disco d\\COMPILADO\FAMILY\" nombre = Sheets("Report").Range("d1").Value Sheets(Array("report", "Graficos", "Info graficos")).Copy ActiveWorkbook.Sheets("Report").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Graficos").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Info graficos").PageSetup.Orientation = xlLandscape ' ActiveWorkbook.S…

Tengo un libro de Excel que tiene una macro de filtros avanzados la cuestión es que cuando comparto el libro me arroja el error 11o4 y me indica que error en el método advancedfilter de la clase range. y cuando des comparto el libro de Excel funcionan bien los filtros con la macro que tiene. En espera de sus comentarios. Les anexo ejemplo. Gracias. Machote Operacion (prueba).rar

Hola Necesito una macros que reemplace las formulas índice y coincidir, porque después tengo que dejar solo el valor, y se demora mucho en pegar el valor, ya que es casi una hoja completa. Envío muestra. gracias Trabajo.1.xlsb

Estimados amigos: Este es mi primer Formulario que desarrollo y creo que tengo un 80% de avance. Solicito de su gran ayuda con lo siguiente: 1. Busco que en la caja de texto realice el cálculo de días utilizando la formula DIAS.LAB.INTL. 2. Para el caso en las opciones de Botón, cuando la opción es SI, vaya al siguiente cuadro de texto, pero cuando la opción es NO, modificar manualmente la cantidad de días y luego continue al siguiente cuadro de texto (Cajas). Es necesario comentar que la cantidad de días está dependiendo en la duración del servicio, hay casos que el servicio no se realiza en forma diaria, sino hay ocasiones que se puede hacer 2 o 3 veces por seman…

Buenos días, lo que intento hacer es que al ingresar un código de barra a través de un lector me lo divida según los datos que contiene y me arroje los resultados. El código contiene 21 dígitos. los 4 primeros serian la presentación. los siguientes 4 el numero de legajo de operario 1 los 4 siguientes el numero de legajo operario 2 los 8 seria la fecha de fabricación y el ultimo seria el turno que pertenece. Espero que puedan ayudarme, desde ya les agradezco y saludo.

Buenas tardes a todos, espero que estén bien, como seguimiento al tema publicado, arme un plan de cuenta para la creación del inventario y en el plan de cuentas solo mande poquito, pero es un montón de cuentas.En el plan de cuenta están todos los productos y las cuentas a registrar en el inventario, y al final del inventario está el RESUMEN DEL INVENTARIO, así trasladarlo al Libro Diario.(El libro Diario se llena manualmente porque ahí es donde se registra los movimientos del mes)Si alguien me podría ayudar con una programación, que genere automáticamente el inventario.Después de llenar el libro Diario manualmente, que genere con una programación el Libro Mayor.El monto d…

Estimados amigos saludos a todos nuevamente... hace bastante tiempo que vengo buscando la forma de automatizar este procedimiento, trato de exportar la hoja activa de un excel a un archivo texto, pero limitado por la barra vertical "|", pero no he tenido suerte, espero que ustedes me puedan ayudar, adjunto un archivo como ejemplo. Nota.- olvidaba recordarles que como nombre del archivo exportado se puede colocar el nombre de la hoja actual, ejemplo: Hoja1.txt. espero sus comentarios saludos juliocesar Exportar con barra vertical .xls

Multiplicación de Matrices Automáticas (Cambia al cambiar nxn) Buen día Comunidad de Ayudad Excel. Hace rato que no escribía y les doy las gracias de antemano, ya que siempre me han colaborado. En esta ocasión requiero para terminar un trabajo de la maestría, dónde me toca hacer una hoja electrónica de jerarquización de proyectos... pues bien ya tengo adelantado el trabajo, sin embargo no he podido saber como hago para que de acuerdo al numero de proyectos a jerarquizar la formula de multiplicación de matrices se me actualice, hasta ahora la teng pero multiplicando el total de proyectos que lo establecí en n=20. Adjunto el archivo comprimido en zip.... PD: subo el te…

Hola, quisiera que me ayuden con este tema, como crear un archivo .INI con APIS de Windows ,en la ruta disco C con macros vba excel. La idea es esta: En el formulario debe escribir código de de activación en un textbox y al hacer clic en boton registrar, este debe ser corroborado con el código de una celda de hoja excel, si cumple crea archivo .INI, en la ruta disco C y en las siguientes aperturas del libro verifica el código y ya no se muestre el formulario registro. Caso contrario si no corresponde el código activación y no se registra aun,me siga mostrando el formulario registro. Si es posible se puede agregar tiempo de uso a 15 días si no se registra. Adju…

Mi Macros transforma datos del Excel a txt separando las columnas por un palote, mi problema es que transfiere también la información de filas vacías agregando los palotes hasta el infinito. Sub CreaTxT() Dim NombreArchivo, RutaArchivo As String Dim obj As FileSystemObject Dim tx As Scripting.TextStream Dim ht As Worksheet Dim i, j, nfilas, ncolumnas As Integer NombreArchivo = "LE" & Cells(2, 4).Value & Cells(3, 4) & "0008010000" & Cells(4, 5) & Cells(5, 5) & Cells(6, 5) & "1" RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt" Set obj = New FileSystemObject Set tx = obj.CreateTextFile(RutaArchivo) Set ht = W…

Estimados, favor vuestra ayuda, necesito agregar una casilla de verificación (control de formulario) que al marcarla me marque el resto de casillas (40) que tengo en la hoja, esto para restaurar los datos a su forma original; se que debe hacerce con vba, pero no me manejo. Es decir, tengo una hoja con 40 casillas de verificacion y necesito agregar una que al marcarla marque todas y al desmarcarla las desmarque todas. Quedo atento sus comentarios --------------------------------------------------------- buscando y rebuscando en la web encontre estos 2 codigos, si lo ejecuto por separado funcionan perfectamente, pero no se como unirlos para que funcionen dependiendo del…

Como va? estoy intentando mandar los datos de un listbox de excel a una tabla de acces. Se me ocurrió hacerlo directamente, es decir mandar en una sentencia SQL el total del contenido del listbox a la base de datos acces. He intentado lo siguiente pero no funciona: Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal,[Recibo],Vendedor,Proveedor,Operación) VALUES (me.ListBox1.Column)" o Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal) VALUES ('" Me.ListBox1.Column(0), & '" & Me.ListBox1.Column(1) & "','" & Me.ListBox1.Column(2) & "','" & Me.ListBox1.Column(3) &a…

Hola a todos. Os pido ayuda con este proyecto que estoy haciendo. Tal y como lo tengo ya me funciona, pero veo que tarda en recorrer demasiado las filas, creo que porque estoy usando FOR NEXT. No se si hay manera de hacerlo correr más rápido, con WHILE por ejemplo o de otra manera. Os envío el proyecto y os agradezco si me podéis ayudar porque no veo capaz. El problema viene en la hoja Plantilla_Parte_KM, cuando uso los botones para recorrer las matrículas, la busca en una hoja con este bucle. Si la encuentra pronto no hay problema, pero si no la encuentra o está lejos en el contador del bucle se hace lento. Como siempre gracias de antemano. Moisés. …

Hola tenemos una macro que nos permite guardar la imagen de una URL ubicada en una celda en el la carpeta donde se encuentra el archivo...funciona perfecto en windows. Pero necesito que funcione en un equipo MAC...cuando ejecuto la macro me resalta las siguientes lineas DownloadFile = URLDownloadToFile(0&, _ sSourceURL, _ sLocalFile, _ BINDF_GETNEWESTVERSION, _ 0&) = ERROR_SUCCESS End Function y e…

Buenos días Tengo en mi proyecto el Textbox1 que es el resultado de unir el Combobox4 y el Combobox3. Lo que deseo es que el resultado del Textbox1 busque en la columna G de la hoja Prueba y devuelva el resultado de la columna H al Textbox2. Estoy intentándolo con estas líneas, pero no consigo reaolverlo. ¿Podrían ayudarme? Un saludo TextBox1.Text = ComboBox4.value & ComboBox3.value Set h = Sheets("Prueba") Set b = h.Columns("G").Find(TextBox1) If Not b Is Nothing Then TextBox2 = h.Cells(b.Row, "H") End If

Hola, necesito ayuda, con el boton de guardar de este userform no consigo que guarde desde el listbox a la hoja 1 como se puede mostrar en el archivo que subo y tambien que cuando agrego un articulo se borre automaticamente y no quede pegado para que no siga agregando, gracias [ATTACH]40623.vB[/ATTACH] libro1.zip

Soy nuevo en esto de las macros asi que Vamos a ver si me explico: Necesito que al aplicar la macro, busque los archivos cuyo nombre se encuentran en las celdas A1, A2, A3, A4... (por ejemplo) y el directorio sea fijo, y las copie a otro directorio fijo. Como variable solo estarian los contenidos de las celdas, en las que tendriamos que poner el nombre del archivo con la extension. de antemano se los agradesco mucho.:smug:

hola a todos. hace días encontré en otro foro una programación vba para concatenar una selección multiple. la verdad que no funcionaba,pero toqueteando un poco y sin saber como funciono. en la misma web salía otra programación que hacia lo mismo pero sin repetir valores, pero esa tampoco funciona y no se donde esta el fallo o como solucionarlo. podríais ayudarme? os pego el código que venia. Espero hacerlo bien que acabo de llegar a este foro y no se si sabre envolver como lo pedís en las normas. la idea es que me salga el archivo como en el excell que adjunto. Function MULTCONCAT(lista As Range) Dim ncell As Range Dim m_concat As String m_concat = “” i = 1 For Ea…

Formula muy larga. VBA me da error. Hola, no me deja adjuntar el archivo, ¿cómo puedo poner mediante VBA en BU10 (marcada en amarillo) la siguiente fórmula? =SI(O($C10="066";$C10="067";$C10="069";IZQUIERDA($C10;2)="66");SI(ESERROR(COINCIDIR(BU$9;'HISTOGRAMA-ITG'!$15:$15;0));0;SI(ESNUMERO(((SUMAPRODUCTO(('HISTOGRAMA-ITG'!$A$16:$A$99=CONSULTAV(IZQUIERDA($B10;5);'[PRUEBA_MACROFABI_Rev4-16R.xlsm]DATOS_BASICOS'!$A:$B;2;0))*('HISTOGRAMA-ITG'!$B$16:$B$99="CONS")*('HISTOGRAMA-ITG'!C$16:C$99)))/100)-((SUMAPRODUCTO(('HISTOGRAMA-ITG'!$A$16:$A$99=CONSULTAV(IZQUIERDA($B10;5);'[PRUEBA_MACROFABI_Rev4-16R.xlsm]DATOS_BASICOS'!$A:$B;2;0))*('HISTOGRAMA-ITG'!$B$16:$B$99="CONS")*('HISTOGRAM…

Hola a todos. Necesito que desde excel, por código vba y desde un formulario, coga la dirección de una imagen (C:\foto.jpg) y la pegue en un documento de word que se crea nuevo. El objetivo es ver la imagen en el nuevo documento de word. Gracias.

Estimados Amigos, Buenas noches, una vez más requiriendo de su valiosa ayuda. Esta vez con el tema de saber más acerca de poder optimizar el BuscarV bajo vba, (VLOOKUP), ya que tengo un libro de unos 300000k registros y realmente ha tardado una eternidad en conseguir el objetivo aplicando formular1c1 y applicationvlookup. Consultando por ahí en google me encontré con el tema de los arrays y diccionarios, que increíblemente optimizan el trabajo de los vlookup en vba, pasando de hacer el trabajo de 30 minutos a 10 segundos sin exagerar. He intentando con un código que me ayudaron en un foro en inglés sin embargo no logro hacerlo trabajar además que soy nuevo en …

Los datos que tengo fijos son: ruta = ActiveWorkbook.Path & "\Archivos\" Archivo="2021-11-22-4-1" La extension del archivo No es fija, puede ser (XLS, DOC, PPT) pero solo hay uno con ese nombre Pregunta: Que instrucción debo de escribir para que abra el archivo Gracias