Buenas noches. Agradezco me puedan ayudar con una macro que realice un intercambio secuencial de números para un rango excel. Para tamaños variables y secuencias variables... Por ejemplo así: 59-54-41-27-13 54-59-41-27-13 59-41-54-27-13 59-54-27-41-13 59-54-41-13-27 Gracias por su tiempo.

Encontrar duplicado de una misma columna y consultar valor de una diferente Buenas colgegas he escrito en parte de mi macro el siguiente código para que encuentre duplicados de una misma columna y los pinte de verde: Dim celda As LongDim celdaMax As LongWith ControlesRemoto celdaMax = .UsedRange.Rows.Count For celda = 2 To celdaMax If Application.WorksheetFunction.CountIf(.Columns(1), .Cells(celda, 1).Value) > 1 Then .Cells(celda, 1).Interior.ColorIndex = 4 Else .Cells(celda, 1).Interior.ColorIndex = x1ColorIndexNone End If Next celdaEnd With[/PHP] ahora la cuestión que me tiene loco hace unos días es que quiero que al…

Saludos Se me hace muy complicado poder escojer los partname para cada maquina, y saber si tengo la capacidad de la maquina Tengo 3 hojas, "2013", "datos de maquina" y "Lista de equipos",Necesito su ayuda o consejos para realizar la siguiente macro. 1. El la hoja 2013 necesito una macro para agregar mas partname a las maquinas de la 1 a la 30 y tener la opcion de agregar mas maquinas. Que debo hacer: 2. Mi idea es un filtro con un listbox ejemplo: de hoja datos de maquina, Max clamping force tons: 200, robot : rexroth , Number Machine :1 3. Si llegara un nuevo partnumber poder escojer en la hoja la Lista de equipos. Resumen: requiero que la macro me de la opc…

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!

Buenas tardes, espero puedan ayudar... De ante mano muchas gracias. -Tengo una macro que me copia la hoja en la cual trabajo y la renombra (Perfecto)** Lo que necesito: -Mensaje Yes/No "¿Desea guardar e Imprimir esta solicitud?" -No: sigo trabajando, Yes: Copia hoja, guarda e imprime. -Y por ultimo que limpie las cerdas de la hoja matriz. Estas: Range("D10:F10,A13:A28,C13:F28").Select Range("D10:F10,A13:A28,C13:F28,A49:A64,C49:F64").Select Selection.ClearContents Observación: deseo bloquear la hoja pero con lo que tengo ya trabajado, me da un error. GRACIAS POR SU AYUDA Macro que copia y renombra: Sub Botón4_Haga_clic_en() Dim hoja As Worksheet Dim existe …

Tengo programada esta macro para insertar una imagen en una hoja de Excel, y funciona bien. Sub InsertarImagen() Set MiPc = CreateObject("Scripting.FileSystemObject") Set Carpeta = MiPc.GetFolder("C:\Documents and Settings\Usuario\Escritorio\foto\") Set Archivos = Carpeta.Files For Each Archivo In Archivos: Exit For: Next ActiveSheet.Pictures.Insert(Archivo).Select ActiveCell.Select End Sub La pregunta es: ¿como se programaría para un equipo con sistema operativo MAC?

Buenas tardes; En el excel adjunto tengo una tabla... y cómo me gustaría parametrizarla mediante una tabla dinámica para que quede en el formato que necesito para exportarla a otro documento. (perdón por no hacerlo más visual, pero no me deja por capacidad). Como todo este proceso va a ser muy rutinario, quisiera grabar el proceso mediante una macro. Creo y guardo la macro, pero cuando la quiero ejecutar.... me salta el error de depuración: Adjunto el xlsx para ver si alguien me podría ayudar a explicarme porqué pasa esto. También para conseguir que la TD me aparezca en columnas tengo que modificar para cada concepto estos dos cuadro. …

hola expertos tengo el siguiente formulario creado por el maestro antoni y lo que hace es que al seleccionar dicho rango arroja un numero en la celda az1 de acuerdo a la suma de dichas celdas sreleccionadas pero me gustaria cambiar la idea al reves que al colocar un numero en az1 se buscara el rango correspondiente para dar con ese numero division entre.xlsm

Amigos, ya logre que se desactivara "Mover o copiar..." del menú contextual de las etiquetas, pero la opcion aparece todavia habilitada en la pestaña inicio grupo celdas. Ya vi foros en ingles y dan soluciones dificilicimas para mi como programar en xlm, con las justas puedo en macros vba. ayuda porfavor MACRO QUE DESHABILITA MOVER O COPIAR HOJA.zip

Hola quisiera saber como hago para mandar emails con archivo adjunto a una lista de email que tengo en una hoja de Excel. Muchas gracias.

Amigos, Me gustaría saber cómo desde un archivo de Excel leer información de las celdas de otros archivos de Excel sin tener que abrirlos, o sea, como si fuera una base de datos.

hola amigos les queria pedir una ayuda, nose si es que se pueda, pero queria un ciclo for que vaya desde 1 hasta el numero de tablas dinamicas que tenga, y que en cada recorrido me seleccione la tabla dinamica 1 hasta la n, que seria el total de tablas y me aplique un cambio que seria el de hacer que no guarde los datos eliminados en origen,. bueno para que esto funcione tiene que existir algun numero de indexacion para las tablas dinamicas, lo qeu no sesi exista o no, me imagino qeu si pues si se pued con las hojas, me ayudan con el codigo? aqui dejo mi idea pero necesito las instrucciones: n = total de tablas dinamicas ' en el caso de que se pueda for i 1 to n …

Hola amigos, deseo crear una lista a partir de varias hojas que se añadiran cada dia, de manera que recoja los ID existentes entre las hojas (la ultima tendrá todas las anteriores). Las ID se repiten de hoja en hoja, no dentro de la misma hoja, simplemente el estado es el que cambia. Deseo recoger esos estados y ponerlos al lado del ID (en una hoja principal) de manera que se vea la evolución. Adjunto un ejemplo. Gracias por adelantado!!! Ejemplo1.rar

Pues tengo una base datos acces 2013 y cree un formulario para meter fechas desde y hasta,pero no se como usarlo para varios informes diferentes,pienso que tendre que crear una macro que abra el formulario y filtre y poner en cada informe que ejecute esa macro .Igual me estoy liando pero no se por donde seguir,agradezco cualquier ayuda. saludos y gracias

Hola a todos, Estoy trabajando en un documento que tiene muchas columnas (hasta la X), de las cuales solo necesito visualizar unas cuantas, por lo que la mayoria de estas columnas están ocultas para evitar el deplazamiento horizontal. Algunas de las celdas de cada fila no contienen información. Constantemente necesito duplicar alguna fila. El problema que tengo es cuando selecciono la fila que quiero duplicar y la pego en una fila vacia. Lo que ocurre es que no tiene en cuenta las celdas ocultas ni las celdas vacias, por lo que solamente se copian las celdas visibles y quedan juntas una tras otra, sin respetar los espacios en blanco. Necesito que por favor que ayuden…

Estimados Tengo una macros para actualizar los valores máximos de los ejes de un gráfico de dispersión que obtiene datos desde una tabla dinámica para ciertos equipos. Luego, copio y pego el gráfico en otra hoja ("Reporte") y al cambiar el equipo desde la tabla dinámica y actualizar los eje, no me actualiza los ejes en la otra hoja "Reporte". Favor su ayuda en al macros para que cuando cambie el equipo y actualice sus ejes, también se actualicen los ejes en la otra hoja "Reporte" Adjunto la macros para los actualizar los ejes. Public Sub Anim() ActiveSheet.ChartObjects("Gráfico 3").Select With ActiveChart .Axes(xlValue).MinimumScale = 0 .Axes(xlValue).Max…

Buenas Tardes Adjunto mi libro de trabajo con dos hojas de calculo, una SOL y otra SOLEMI, lo que hace mi macro es copiar el contenido de SOL desde A1 a S100 a SOLEMI, copia ese rango que según yo es lo que entraria el total de los datos a copiar de la hoja, esta hoja en la parte de totales es movible, de acuerdo a la cantidad de datos a copiar que amerite, es por eso que tome ese rango, en la parte de totales lo de amarillo de SOL, y al copiar a SOLEMI obviamente lo que esta en la columna T de SOL No lo copia porque hay formulas que no necesito copiar a SOLEMI, es por eso que cuando copio a SOLEMI pego solo como valores, como puedo copiar la formula de los totales de l…

Buenas tardes. He logrado adaptar un filtro horizontal de columnas a mis necesidades a traves de una tabla dinamica. Con los campos texto no hay problema. El problema viene cuando lo que queremos filtrar son fechas. Por lo que veo .PivotItems adopta la fecha en formato ingles. en las columnas ha filtrar lo he solucionado conviertiendolas a texto: dim str as string:str = c.value: set pi= Set pi = .PivotItems(str) el problema es con el origen de la tabladinamica donde para que funcione tengo que añadir un ' a cada fecha y de esta manera convertirlas en texto He probado de todo.............incluso cambiar la tabla dias a un formato de fechas no …

Buenas tardes tengan todos! Tengo un código al cual le agregue una formula pero esta no pasa a la hoja que seleccione en su lugar me sale la leyenda de "Falso" todos los demás datos pasan muy bien pero la formula no, podrían apoyarme con sus sugerencia y recomendaciones para que esta funcione? Este es el código y adjunto archivo para mejor explicación: Sub Pasarpagos() Sheets("Pagos").Activate If Sheets("Pagos").Range("C7") = "" Then Exit Sub 'No hay referencia Dim hj As String Dim a Dim b Dim c Dim d Dim e Dim f Dim g Dim h Dim i hj = Sheets("Pagos").Range("C7") a = Sheets("Pagos").Range("C9") b = Sheets("Pagos").Range("C11") c = Sheets("Pagos").Rang…

Hola a Todos, Soy nueva en el tema de los Macros, en realidad es el primero que hago, y no se por donde empezar, espero que me puedan ayudar. Tengo un archivo de Excel como el que estoy adjuntando y lo que quiero es que se envien todos los datos que correspondan a cierto a cliente a su correo, por supuesto me falta agregar la columna para el correo de cliente. Me pueden ayudar? De antemano, muchisimas gracias Customer_Outstading_Prueba_2.xls

Hola a todos. Como ejecuto una macro cada vez que se elimine una fila? Salud_2 y gracias

Hola a todos nuevamente, pues miren tengo el archivo adjunto del cual tiene el UserForm4 y CommandButton3 (Stock Actual por Proveedor) cumpla esta funcion, asi como lo hace la de Stock Actual por Producto, seria posible me apoyen en habilitarla? Pls, tengan en cuenta que este formato lo baje de internet, ya que mis conocimientos en VBA son nada jeje lo unico que hice fue modificar ciertas cosas. Muchas Gracias Macro_Excel_Stocks.zip

Hola a todos, tengo un archivo que le debo insertar imágenes a una lista en celdas combinadas, me pregunto si se puede modificar la macro que adjunto que es la que uso para insertar imágenes sin celdas combinadas. en este archivo que adjunto ya tenemos las celdas combinadas, no siempre van a haber celdas combinadas y la imagen debe caer en una celda. Al eliminar una imagen de la carpeta aparece en el archivo como imagen no encontrada, por lo que hay que "pegar la imagen como valor". Agradezco mucho la atención, les pido de favor me puedan a poyar con este dilema, gracias. ejemplo.xls

Buenas noches, deseándole existo a la pagina y a sus colaboradores del mismo, quisiera nuevamente molestar su atención a este problema. Genero un reporte desde esta instrucción y lo que deseo es que al presionar la tecla de cancelar impresión debería cancelar pero no lo hace por consiguiente hace la impresión dicho reporte Sub PENSI() For f = 8 To 8 Sheets("BOLETA PENSIONISTA").Select Range("A1:H70").Select Range("CODIGO3") = Sheets("PENSIONISTA").Cells(f, 1) Application.Dialogs(xlDialogPrinterSetup).Show 'Abre el formulario para seleccionar y configurar la impresora ' ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWindow.SelectedShee…

Buenas Estimad@s Hace mucho que no me pasaba por estos lados, antes era un usuario activo ya sea aportando, o tratando de hacerlo, y obteniendo ayudas. Ahora lo que me trae por esto lados es pedir su colaboración para un proyecto que tenemos con mi esposa, nuestro propio emprendimiento. Les explico: Tengo una planilla en Excel, donde en una hoja tengo una base de datos con nombres de personas y algunas características de ellas, lo pueden ver en la hoja BD (Nombre, Sexo, Edad, Color_Pelo, Color_Ojos, Color_Piel, Mail, Teléfono). Luego tengo otra hoja donde quiero hacer filtros para encontrar a la o las personas que necesito, lo estaba pensando a través de comboboxs, pe…