Buenas, necesito ayuda con esta macro. La vengo usando hace ya años, pero de repente sale este error: "Error '1004' en tiempo de ejecución", pero no consigo saber a qué se debe. Además sólo pasa de vez en cuando. ¿Alquien podría echarme una mano? Sería en la hoja de presupuesto: creando capítulos y añadiendo partidas (es al crear nuevas partidas cuando falla). Muchas gracias por adelantado!! Estoy intentando subir el archivo en zip pero no me deja, ¿cómo lo podría subir?

Buenas, nuevamente requiero de la ayuda de ustedes. Les comento lo que necesito. tengo una carpeta en la que se van agregando ficheros en formato .CSV con nombres aleatorios, en dichos ficheros se mantiene el numero de columnas A:R, la primera fila contiene los nombres de los campos, pero pueden tener diferente numero de filas con datos, lo que desearia es que con una macro se capturase los datos desde la fila 2 hasta la ultima con datos y los agregue a una hoja de excel anexando cada fichero y que los que ya se hayan capturado no se repitan. He probado varias macros que he encontrado pero no hacen lo que quiero. les dejo los ficheros de datos y resultado. datos csv.ra…

Srs. agradecería mucho me puedan ayudar con mi problemita, tengo esta macro que necesito dividirla en do sin perder la continuidad de ella, esta macro me crea 21 paginas similares, pero al ejecutarla me indica el mensaje " Procedimiento demasiado largo", espero me puedan ayuda. Se que es muy extensa pero lamentablemente es la forma que tengo, para generar las 21 hojas, adjunto macro. Espero haberme explicado bien Desde ya les estoy agradecido por su ayuda desinteresada. procedimiento demasiado largo.xls

Buenas noches. necesitaría ayuda para poder terminar la macro que estoy haciendo, estoy aprendiendo a programar macros y estoy perdido. La idea es cuando ejecute el UserForm, pinchar en uno de los OptionButton que hay, introducirá el dato correspondiente en la celda donde este el cursor y a continuación saldrá un mensaje preguntando el numero de veces que quiero que se repita la acción, copiando el valor en las celdas de la derecha según el número indicado. lo he intentado con ActiveSheets.Columns pero no soy capaz. Me gustaría que alguien me oriente como terminar esta macro. Un saludo y gracias a todos de ante mano. Bateria2.xls

Buenos dias A ver si me podeis ayudar por favor Tengo una columna con 10.000 celdas, quiero dsitribuirlo en columnas de 500 celdas sin tener que copiar y pegar, que lo pueda hacer automaticamente el excel con una macro. Gracias

recuro a vosotros por el siguiente tema. tengo un combobox que al ejucartlo enpieza siempre por la primera casilla (a1), es posible que empieze con (a4) y terminne (a30) este es el codigo que uso Private Sub ComboBox1_Change() Dim i As Integer Dim final As Integer Dim FINAL2 As Integer Dim J As Integer Dim H As Integer For i = 2 To 1000 If Hoja5.Cells(i, 2) = "" Then final = i - 1 Exit For End If Next For i = 2 To final If ComboBox1 = Hoja5.Cells(i, 2) Then T1 = Hoja5.Cells(i, 2) T2 = Hoja5.Cells(i, 1) T7 = Hoja5.Cells(i, 3) Label75 = Hoja5.Cells(i, 3) Label76 = Hoja5.Cells(i, 6) Label82 = Hoja5.Cells(i, 8) Label84 = Hoja5.Cells(i, 9) Exit For En…

Hola buenos días amigos del foro, Actualmente manejo una bitácora de actividades en mi trabajo que se maneja diariamente, pero me encargaron automatizarla un poco, entonces estoy creando una pequeña ventana para poder filtrar rápidamente los campos que son de uso diario, ahí es donde no sé como puedo crear una macro para poder agrupar los días en semana (Ej.: Semana 1: 1,2,3,... / Semana 2: 7,8,9,...) ya que por ahora solo se hace manualmente, también en la columna "Turno" como crear un combobox que seleccione varias opciones (como si fueran checkbox) la verdad entiendo algo de macros pero no soy experto, agradecería mucho cualquier ayuda o sugerencia para reestructurar …

Buenas Noches Soy nuevo en esto de las macros y quisiera solicitar su apoyo con el archivo que adjunto en donde de la hoja llamada Siniestros requiero seleccionar el monto de siniestro mayor de la columna "Monto Siniestro M.N. "pero en esta búsqueda del monto mayor no debo tomar las claves de riesgo 105,106,107,113 y 114 que aparecen en la columna de "Riesgo" y al final debo en una celda colocar la siguiente leyenda "aumentar costo en el riesgo ____________" ahi debo colocar el nombre de la seccion que aparece en la columna de Seccion de acuerdo al riesgo que resulte con el mayor monto, todo esto sera posible hacerlo por que e investigado pero no he logrado que haga…

Buenos tardes; Requiero su apoyo con el siguiente caso. Deseo saber si es posible realizar filtros entre 2 fechas en 2 textbox y con una condicion(textbox.Codigo); una vez filtrada me permita realizar el reemplazo a una de las columnas por otro campo es decir otro (textbox.ruta), si tuvieran ejemplos excelente solo llegue a realizar el filtro, agradeceria su apoyo con el caso. Private Sub CommandButton4_Click() Dim total, total1 As Integer Sheets("planificacion").Activate Call iniciar If Me.ComboBox1.Value = "" Then Exit Sub ListBox1.Clear j = 2 filaS = Range("a1").CurrentRegion.Rows.Count ComboBox2 = Range("B" & fil…

Buenas tardes, tengo esta macro que encontré en SanGoogle y la adapté a mi proyecto el cual funciona al 100% lo unico que al imprimir en A4 este lo hace en vertical y necesitaria que esta lo haga en horizontal, gracias por adelantado si alguno de los maestros me adaptaria dicha macro. Private Sub CommandButton5_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next 'Elimina hoja y crea hoja dando el mismo nombre que la eliminada Sheets("DFSHJFDUYDAYRAIUY544TTTOMYDUTGD").Delete ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.name = "DFSHJFDUYDAYRAIUY544TTTOMYDUTGD" …

Buenas noches estoy trabajando en un proyecto de inventario para una frabica , la idea es caputurar la informacion con codigo de barras y se actualice el saldo, tambien tiene una captura manual , y una salida , el problema es el siguiente entradas de informacion entrada manual = userform2 entrada pistola laser = userform 30 (hoja inventario) salida userform 33 en este momento las entradas y las salidad (manual) las actualiza directamente en la hoja saldo (columna c) , formule para que me contara todo los registros que son captados con las pistola laser (codigo de barras ) estos datos los coloque en la hoja saldo columna (E) , el problama es que inicialemente lo …

Hola amigos de #Ayuda Excel Aquí traigo unas inquietudes que quisiera me ayuden a resolverlas, que a continuación detallo: 1.- Necesito agregar un procedimiento en la macro "LLENADO" del botón "Grabar e Imprimir" que me informe que faltan llenar datos en las celdas con color y que no se ejecute la misma, hasta cumplir esa condición. 2.- Necesito agregar un procedimiento en la macro "LLENADO" del botón "Grabar e Imprimir" que al grabar los datos del comprobante en los registros respectivos, me informe que el comprobante esta repetido tomando en consideración los 10 primeros datos registrados y que no se ejecute. 3.- Necesito agregar un procedimiento o modificar mi macr…

Hola buenas,un saludo a todos. No logro con esta macro que tengo que me funcione bien, me la hizo un amigo y ahora está muy liado. La macro consiste en base como prioridad en buscar los números de hoja RESULTADO en Y buscar la coincidencia en T coger los números de la misma fila y hoja de H,I y reflejarlos en Q3:R16 y como refleja ahora la macro máximo 8 filas. Si para completar las 8 filas de Q3:R16 los números de Y no fuesen suficientes con T la macro seguiría buscando en T de menor a mayor o sea desde 0, 1, 2,3 ect… hasta completar las 8 filas de Q3:R16. Los números no serán siempre iguales en Y, T y en T pueden estar repetidos en Y no lo estarán nunca. Los dato…

Buenas tardes a todos, trato de aplicar dos filtros discriminatorios de datos procedentes de dos hojas distintas de un libro de excell, de tal forma que al seleccionar el primer filtro solo aparezca en el segundo filtro los campos que contenga el primero. Adjunto un ejemplo y lo explico mejor. Gracias. Ejemplo 2.xlsb

Estimados, estoy desarrollando un programa en el que tengo 2 hojas: BASE DE DATOS y REGISTRO. Lo que realiza el programa es: tener una base de datos a tiempo real sobre el trabajo del dia(BASE DE DATOS), y tener un registro del trabajo diario (registro) El código realiza lo siguiente: copia el rango( ej "a1:l:350") de la hoja "BASE DE DATOS" , busca el primer espacio vacío (bucle), y luego pega en la hoja "REGISTRO". Range("a1:l350").Copy Sheets("REGISTRO").Range("A1"), utilizando esto solo me sirve para el primer día pues en el segundo día la información se pegará encima del día anterior. Lo que me gustaría es eliminar ese bucle. Y mantener la hoja registro oculta. …

Hola buenas tardes a todos. Por ahí encontré un código que realiza búsqueda y regresa múltiples resultados, sin embargo, no logro identificar como sería para que me repita los datos de acuerdo a un rango de fechas, adjunto archivo en donde muestro de como actualmente me devuelve el resultado y como debe de quedar, Ojala alguien me puede orientar, de antemano gracias... Saludos, Diego Busqueda con multiples resultados.xlsm

Buenas tardes. Tengo dos filas con distintos nombres en cada columna, y los quiero pasar a una columna sin que se dupliquen los valores, pero no sé como hacerlo. Ejemplo: Tengo estas dos filas con nombres de colores: Fila 1: Azul, Verde, Morado, Rosado Fila 2: Amarillo, Gris, Negro, Azul, Morado, Dorado, Rojo. Y lo que quiero es ir comparando la fila 1 con la fila 2 y que en una columna me coloque los nombres sin repetirlos: Columna 1: Azul, Verde, Morado, Rosado, Amarillo, Gris, Negro, Dorado, Rojo. ¿Cómo puedo hacer esto? Ya que lo que he conseguido con mi código es que al comparar, por ejemplo Azul (Fila 1) con la Fil…

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

Buen día En el lugar donde laboro, se generó un archivo que se encuentra compartido, y donde varios usuarios pueden realizar modificaciones al mismo tiempo. Para hacerlo mas factible se le agregaron botones que filtran la información del departamento de producción donde se encuentra el articulo ( ver ejemplo en archivo anexo ). Uno de los usuarios ejecuto en todas las hojas del archivo la funcionó de ordenar por color, pero selecciono tan solo unos campos a ordenar, lo que provoco una alteración en el orden de todos los renglones del archivo, y por ende provoco que la información se mezclara y arrojara informes erróneos. Se me encargo que protegiera cada unas de las hoja…

Hola amigos, Solicito vuestra colaboración para encontrar una variable que me ayude con el proyecto que llevo a cabo. Se trata de una base de datos en cuya Hoja1 llevo el registro de datos y en la Hoja2 los resumo con una macro, de manera que al hacer un nuevo registro o modificar alguno de los existentes, los datos se actualizan automáticamente. Necesito una variable para integrar la propiedad "OutlineLevel", de forma que se respete la estructura del calendario existente en la Hoja2. Adjunto archivo. Gracias. Base_d_datos.rar

Hola a todos <br> con la siguiente pregunta. Tengo una base de datos la cual consta de Cuenta, Nvel, Descripcion, saldo inicial, debe, Haber y saldo final.<br> Lo que quiero es una macro que me sume dependiendo del numero de cuenta como del nivel.<br> en el archivo viene mas explicito<br> <br> De antemano muchas gracias<br> <br> Sumar por 2 criterios.xls

Que tal a todos, tengo el siguiente problema. en el adjunto pongo un userform con marcas lo que quisiera saber es como puedo hacerle para que seleccione una marca y apretando el boton de insertar me pega la marca en la hoja activa. De antemano muchas gracias. MARCAS.rar

Hola Amigos, tengo el siguiente archivo con macros las cuales principalmente con ocular y mostrar filas de acuerdo a la evaluación, lamentablemente en el archivo que adjunto tuve que borrar el contenido ya que es confidencial, pero lo importante es el código y requiero de su valiosa sabiduría para saber: Si este archivo lo leerá correctamente Excel 2003-2007-2010-2013 ?? este archivo lo hice en Excel 2010, pero tengo que enviarlo a mucho usuarios los cuales tienen distintas versiones, y es muy importante que lo puedan ver bien o sino todo el trabajo realizado no va a servir de nada. agradecería mucho su ayuda en esto es simplemente tener la certeza de que el código lo …

Que tal, me podrían apoyar con la creación de una función para aplicar "Superscript" lo estoy intentando pero no me esta dando ningún resultado: Function SUPERSCRIPT(x As String) As String SUPERSCRIPT = Font.Superscript = True End Function No tengo mucho conocimiento de VBA. Por eso acudo a su ayuda. De antemano gracias y hasta luego... Ss.

Hola! Espero puedan ayudarme, estoy utilizando un userform para ingresar datos, he logrado que los datos ingresados aparazcan en las celdas correspondientes sin embargo, cuando se ingresa un nuevo registro se copia en la celda anterior modificando el ingreso. no puedo lograr que el nuevo ingreso aparezca en la siguiente fila. Esto es lo que he utilizado: Private Sub CommandButton1_Click() Dim Referencia As String ' variable para almacenar referencia del control Dim Control As String ' variable para almacenar el control Dim Actividad As String ' variable para almacenar descripcion del control Dim Responsable As String ' variable para almacenar el responsable Dim …