Hola amigos me ayudan a generar una macro, tengo una planilla en excel 2003 con varias colunnas, la columna D tiene numeros de diferentes colores, yo quisiera ordenar la misma por color, que me agrupe los del mismo color respetando las demas columnas, luego voy a crear un boton y ejecutarla cada vez que presione al boton. me ayudan..... gracias

Con el permiso de los encargados Por favor como actualizar las existencias: entradas y salidas de un hoja de excel de entradas y otra de salidas a una hoja que se llama existencias todo esta hecho en excel (Codigo vba) De antemano gracias

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…

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 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

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

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

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:=""…

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…

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, 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

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…

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! 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…

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…

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. ¿Hay alguna línea de código para indicar el movimiento de las flechas up/down/left/right? He intentado grabar una macro pero no parece recoger este movimiento. Gracias.

Buenas tardes, Estoy seguro que me podran ayudar con esto tengo un problema con el boton guardar, es para un historial de facturas no me resulta nose si alguien lo puede revisar y me dice que pasa dejo el documento anexo en la hoja datos esta el programita. es para guaradar un registro de ventas gracias. cotizacion victor 1.rar

Estimados amigos, Acudo a ustedes nuevamente en su ayuda, espero me la puedan brindar. Necesito crear una macro que me genere una imagen en jpg desde una hoja y la guarde en una carpeta determinada que se encuentra en el escritorio, en donde creará otra carpeta con el nombre de la imagen y dentro de esta pegue la imagen en jpg con el mismo nombre, es decir: 1.- Al dar click en un botón, genere la imagen en .jpg 2.- cree una carpeta en la carpeta llamada "CARPETAS" ubicada en el escritorio, con el nombre que esta en la celda "A1" 3.- analice si la carpeta existe, si esta no existe debe crear la carpeta pero si ya existe enviar un mensaje que diga "LA CARPETA YA EXIST…

Insertar fotos de carpetas en celdas vacías Hola se podría Insertar fotos de una carpeta en celdas vacías de una tabla Ejemplo 1 Foto 22 33 Foto 4 Gracias, saludos

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 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…

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…

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 …

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…