Buen día compañeros: Quisiera pedirles una ayuda de como crear una tabla dinamica y una macro para realizar un un resumen del consumo por unidad/mes en pesos, litros y el porcentaje del incremento o decremento, de tal manera que me sirva para ir midiendo cuales son los vehiculos que mas consumen y determinar la razón. Abjunto archivo para que me puedan ayudar. Saludos CONTROL VALES COMBUSTIBLE.xls

Estimados amigos: En un archivo Excel tengo una tabla de datos bastanteextensa que importo de otra aplicación y genera un archivo con numerosas hojasy miles de registros. A modo de ejemplo os adjunto un libro que ya contiene unamacro que me permite eliminar filas de manera aleatoria en función de un rangoseleccionado: desde fila, hasta fila y el número de líneas que se deseanborrar,pero necesitaría concretar más la macro y que haga también lo siguiente:Que para una hoja concreta, seleccionando una columna y un concepto existenteen celdas de esa columna, y un importe sumatorio de valores de otra columna quecumplan ese criterio, me borre aleatoriamente filas hasta obtener…

Me gustaría que me ayuden a desarrollar una macro que a la hora de copiar y pegar conserve el ancho y alto de las celdas. Tengo en mi poder una macro que hace lo que quiero pero funciona así: -Me pide que seleccione el rango(mouse),luego pulso un botón (macro),se abre un inputbox donde me pide seleccionar la celda donde quiero que se pegue el rango(mouse) y luego se pega.Ésta macro funciona bien pero quiero que lo haga de forma directa (SIN que seleccione el rango manualmente y sin que se abra el formulario). Tendría que poner en la misma macro los rangos de copiado y de pegado. Adjunto Libro. 500.rar

Buanas tardes, compañeros otra vez yo requiere de su ayuda, como pudeo generar una macro que genere un consecutivo, pero que el consecutivo comience por una letra, range("A1")=range("A1")+1 Ejemplo: la celda A1 comenzara por M01 e ira contando hasta infinito. que forma debe utilizar o se debe cambiar la forma de la celda. muchas gracias.

Hola: Gracias de antemano por la atención de leerme. Mi problema es que mis macros son muy rudimentarias, por mi falta de formación. Cuando tengo que extraer un dato determinado de otra columna, hoja, libro, etc... Siempre utilizo el mismo sistema: Sub Ejemplo()[/b] Range("AJ2").Select ActiveCell.FormulaR1C1 = _ "=INDEX(CLIENTE_GESTOR!C3,MATCH(RC[-35],CLIENTE_GESTOR!C1,0),1)" A = 2 While Cells(A, 1) <> "" A = A + 1 Wend Range("AJ2").Select Selection.Copy Range(Cells(3, 36), Cells((A - 1), 36)).Select ActiveSheet.Paste Range("AJ:AJ").Copy Range("AJ:AJ").PasteSpecial xlPasteValues Range("AJ:AJ").Replace What:="#N/A", Replacement:=""…

Hola que tal? Estoy intentando realizar un contador de manera que vaya sumando o restando un "1" en la celda "DESPLAZA", hasta que se cumpla que la "SUMA (< 32)" de una columna de datos "DESV DESFA" sea <32 y sea el valor más cercano a 32. La celda "DESPLAZA" hace que varíe la columna "REF DESPLA" y a su vez ésta modifica el contenido de "DESV DESFA". Espero haber podido explicarme un poco. Un saludo y gracias. [TABLE=width: 435] [TR] [TD]A[/TD] [TD]B [/TD] [TD]Ref[/TD] [TD]REF DESPLA[/TD] [TD]DESV DESFA[/TD] [/TR] [TR] [TD]100[/TD] [TD]37,2[/TD] [TD]33[/TD] [TD]19[/TD] [TD]0,0[/TD] [/TR] [TR] [TD]125[/TD] [TD]31,4[/TD] [TD]36[/TD] [TD]22[/TD…

Hola Tengo el siguiente formulario que me recibe datos(parámetros), tengo una duda en cuanto al manejo e implementación del código con DatePicker e ingresarlos en una celda en la tabla generada. Private Sub btn_registrar_Click() ActiveSheet.Cells(8, 2).Select Selection.EntireRow.Insert ActiveSheet.Cells(8, 2) = TextBox1 ActiveSheet.Cells(8, 3) = TextBox2 ActiveSheet.Cells(8, 4) = TextBox3 ActiveSheet.Cells(8, 5) = TextBox4 TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox4 = Empty TextBox1.SetFocus Ordenar 'macro ordenar End Sub[/CODE] Saludos

Hola! Exelente foro, tengo un problema ya que no puedo correr el bucle, bueno explico lo que quiero hacer, tengo varias columnas y de las cuales cada fila cuenta con un valor diferente, en una nueva columna se debe sacar el numero mayor de cada fila, despuès de eso en otra columna se debe hacer con un bucle la resta del numero mayor con cada una de las columnas y cada que sea 0 asignar un nombre, pero me sale el error 1004. este es el codigo: f = 1 For Each o In Range("R2:R6362").Cells Nombre = "" b = 0 f = f + 1 For porce = 0 To 7 Set a = Worksheets("ejemplos").Cells(f, porce) a = a + 1 If (o = 0) Then o.Value = "Sin datos" Nombre = o.Value End If If (o.Va…

Bueno antes que todo agradecer por la ayuda que brindan a los que no sabemos tanto de excel , ahora manos a la obra : Lo que necesito es saber si existe una macro para que imprima una hoja en PDF , adjunte y luego se envie a un correo por outlook , a una direccion ya definida , que el asunto sea lo que se escriba en la celda E1 , de ante mano muchas gracias agosto1.xls

Hola, hay alguna forma de que si al realizarse una búsqueda y luego moficiar "X" dato, éste, se actualice en la base de datos directamente? es decir, en la fila correspondiente sin tener que hacer otra macro para realizar este trabajo?. Adjunto el archivo: En la página Buscador, traigo los datos de la base de datos, lo que quiero, es que si modifico algo en esta hoja, tenga la opción de guardar los datos modificados... Tal vez, con un botón opcional que diga, actualizar datos.... No se me ocurre como hacerlo... Muchas Gracias LIBRERIA 1.xls

Buenos dias, Necesito ayuda con una planilla que realice, en la cual tengo una lista de datos pero con espacios entre ellos. Lo que trate de hacer es copiar el rango de celdas de estos espacios ("T10:Z503") y pegarlos en la hoja "OneDrive" en la celda ("B2"). El problema es que al ordenar la columna RUTA quedan los datos al final de la planilla. Adjunto planilla con unos cuadros de texto para que se entienda mejor. Saludos y gracias. PLANILLA BASE NEW.xlsm

buenas cogi el turbofiltro en userform cambie lo que necesitaba cambie el nombre le la hoja oculta por "CARGA" los nombres publicos tambien en fin bastantes cosas, a la hora de abrir no me da problemas si ingreso codigo tampoco pero de hay como que deja de trabajar de manera rara pues no me tira ningun error de compilacion ni nada de paso para no crear un segundo post tengo problemas con la modificacion desd el listbox e estado viendo en temas ya resueltos sobre este mismo tema pero no saco nada en claro vi uno que hizo macro antonio de una agenda, estaba muy bonito pero no le agarre la cosa pues no tengo idea de donde sale por ejemplo "filamodificacion", igual me paso c…

cordial saludo tengo el siguiente código para minimizar un formulario: Option Explicit ' Declaración de variantes para los botones de maximizar y minimizar 'para OS 34 bits 'Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 'Private Const WS_MINIMIZEBOX As Long = &H20000 'Private Const WS_MAXIMIZEBOX …

Hola a todos; En un formulario cargo manualmente los datos de en el ListBox. Tengo un botón que me sirve para añadir registros a este ListBox Los registros son fechas. Entonces la pregunta es, ¿si yo añado un nuevo registro hay posibilidad de que se ordenen los items por fecha? Imagino que me la solución que me vais a dar pasará por pasar los datos a la hoja y ordenarlos desde ahí. Esta opción para el caso no me serviría. Buenos días a todos. MOrdenarList.xlsm

Hola a todos, lo molesto por lo siguiente. Hago una consulta web desde excel por una Url, selecciono una tabla la cual contienen muchos hipervinculos y me aparece en excel, hasta ahi bien. Pero lo que yo necesitaria es la informacion dentro de ellos. Los cuales son tablas de igual tamaño pero diferente información para cada hipervinculo (que son mas de 150), necesito almacenar en una hoja para filtrar datos y demas, tendria que realizar una consula de la consulta o algo asi. Intente aprender un poco el funcionamiento de las macros pero veo que esto sale de mis conocimientos. Espero queme puedan dar una mano. Saludos!

Hola a todos!! Soy bastante principiante en las macros y no se cómo resolver esta. Tengo un libro origen que actualizo diariamente las filas ( a veces tengo que quitar registros pero la mayoría añado) y quiero trasladar esa misma información a otro fichero histórico con las mismas columnas a otra ruta. Me gustaría que en el libro destino tuviera un botón para importar los nuevos datos del origen si tener. Por favor a ver si me pueden ayudar.Millones de gracias de antemano. Conseguí esta macro por internet y la modifique para mi pero no me funciona. Me pone error sobre todo en el procedimiento que marco en verde. Sub Import…

hola amigos, nuevamente recurriendo a su gran ayuda, ya que quisiera saber si hay alguna manera de insertar un texto por medio de macro al final de una imagen que cambia de tamaño, ya que tengo un reporte que he elaborado por medio de la camara con una macro (codigo que encontre en este mismo foro y modifique de acuerdo a mis necesidades), ya que el reporte general es de mas de 20000 filas, y varia cada quincena, y solo se necesitan reportes de matriculas (MAT.) especificas que se van solicitando y que al momento de cambiar el valor en "X11" cambian los datos de la imagen del reporte extraido, sin embargo, tambien me contabiliza el numero de eventos que tiene por cada mat…

Buenas soy nuevo en esto de la programación de vba en excel. Tengo un problema con un combobox y queria ver si me podrian ayudar. Necesito que un combobox se llene con la información de la columna A y otro combobox con la información de la columna B. Pero necesito que cada vez que se agregue información nueva en estas columnas esta aparezca en el combobox. Por eso no quiero usar el rowsource sino codigo. Tengo lo siguiente Private sub userform_initialize () Sheets ("variables").select Range ("A2").select While activecell <>"" Combobox1.additem activecell Activecell.offset (1, 0).select Wend End sub O tambien tengo Private sub userform_initialize () Sheet…

Hola, estoy realizando una hoja para llevar las estadistica de baloncesto del equipo de mi hijo y una cosa que me gustaria es ir marcando en las posiciones donde falla o donde mete la canasta, para ello, realice una plantilla con mas o menos la forma de media cancha de basket, Lo que necesito es como puedo copiar el valor de una celda (Hoja1 - Rango A1) en la Hoja2 - y la posicion se la doy con el ratón, mas o menos en la posicion del lanzamiento. Tendria que pegar el valor justo despues de selecionar la celda y luego,volver a la hoja1 - Rango A1.. Ya tengo preparado el formato para que si es error de tiro, salga en rojo y si acierta, en verde. Muchas gracias de anteman…

Buenos dias desde Zaragoza, Estoy intentando guardar una hoja en una carpeta que se grabe con el texto que contiene una celda, he estado haciendo pruebas con temas solucionados de aqui y de otros foros y no he llegado a buen puerto con ninguno. Os dejo unos detalles de como lo estoy intentando hacer y el archivo. Desde grabar pedidos se generan dos tipos de albaranes"telefonicos" y "just eat" que pasan a "FACTURA PLANTILLA" para pedidos telefonicos y "FACTURA PLANTILLA (2)" para just eat. A) Intento una macho para que la hoja "FACTURA PLANTILLA" se dispare desde grabar pedidos y vaya a C:\Users\come\Desktop\pedidos\TELEFONICOS y se grabe con la celda F1 de factura "FAC…

Buenas tardes, En una hoja tengo dos columnas, la primera con las rutas completas de 14000 archivos, que tienen distintas ubicaciones. Y la segunda, con las carpetas donde tengo que copiar estos archivos. Es decir, el archivo cuya ruta está en A2, tengo que copiarlo en la ruta indicada en B2, igual A3 - B3, y así sucesivamente. He intentado algunas cosas con CopyFile, pero sinceramente no tengo mucha idea, y sólo consigo copiar un archivo, vamos nada. Necesito que me indiquen como hacer una macro que los copiase o moviese de una sola vez. He subido un ejemplo con unos pocos registros. Un saludo. Ejemplo.rar

Buenas tardes a todos, es la segunda vez que hago consultas, espero explicarme bien, en el archivo adjunto tengo dos pestañas, la primera es el archivo que se descarga de un checador en la oficina, es una lista de entradas y salidas de cada empleado de la empresa, en color amarillo separé la fecha de la hora, por que según yo las necesitaba independientes para obtener el resultado que quiero, pues tengo que hacer el reporte más digerido para presentar los retardos de cada empleado, en la segunda pestaña trabajé el reporte de esa semana, pero si me resultó muy tardado hacerlo, entonces aquí viene mi consulta: ¿pueden ayudarme con una macro que automatice todo lo que tuve q…

Tengo un archivo de Inventario, al digitar el código en la celda D9 me figura la descripción del producto en la celda D11. Pero lo que me gustaría adaptarle es al digitar el nombre de un producto o solo digitarle las primeras letras como por ejemplo ACETA en la celda D9 que me muestre todos los productos que comience con la ACETA etc. Que seria: 18 ACETA+ERGOTA+CAFEINA SELECPHARMA 21 ACETAMINOFÈN 500 MG ( BLISTER) LAFCO 22 ACETAMINOFÈN 500 MG ( BLISTER) PROMEGAL 23 ACETAMINOFÉN JA…

Hola a todos. Os adjunto un archivo para ver si podeis ayudarme. A grandes rasgos lo que queria hacer es lo siguiente. Se trata de buscar productos de los diversos alamacenes. Poniendo el nombre del producto en la columna PRODUCTO, ha de buscar todos los productos con ese nombre en los diversos almacenes. Ha de salir la marca de ese producto,precio,unidades......(hay productos iguales de diferentes marcas,diferentes precios y varias unidades en los almacenes). Si pongo el nombre del producto,se han de rellenar todos los campos de las columnas ,buscando en los diferentes almacenes. Gracias por la ayuda. PRODUCTOS.zip

Hola buen día a todos. tengo una macro de asistencia, lo venia trabajando en windows 7 sin problema, pero al migrar el equipo PC a windows 10, manda este mensaje de error, adjunto archivo, por su valioso apoyo les anticipo las gracias, bendiciones ASISTENCIA.xlsm