Hola a todos buen dia. Tengo una pregunta y un verdadero kilombo espero me puedan ayudar u apoyar, veran tengo una macro que genera varias hojas dentro de un libro lo que me gustaria hacer es que por cada hoja que exista en el libro me haga un libro nuevo, es decir si son 50 hojas dentro del libro, me genere 50 libros nuevos copiado dentro del libro la hoja que le pertenece y que el libro se guarde con el nombre de la hoja. Estaba empezando con la macro pero la verdad me eh perdido loco! Sub insert() For i = 2 To Sheets.Count Sheets(i).Select If ActiveSheet.Name <> "PRINCIPAL" Then Worksheets.Add Else End If Next End Sub […

Hola amigos me veo en la necesidad de actualizar o guardar muchas veces un libro compartido en Excel debido a las limitaciones de libro compartido en Excel, por el método Thisworkboo.Save. ¿Puede ser perjudicial guardar muchas veces?¿Se puede corromper el libro de trabajo más fácilmente? Gracias por la atención.

Buenos días Mi nombre en Miguel Angel Canchala y les solicito amablemente colaboración con una macro para buscar y ordenar valores máximos de varias columnas. Adjunto envío archivo en excel con unos valores de ejemplo y los resultados que deseo obtener. Muchas gracias por su ayuda. Att. Miguel Angel C. DATOS PARA MACRO.zip

Hola amigos que tal, ha pasado algún tiempo desde mi última consulta y espero al igual que en anteriores ocasiones puedan asesorarme. Ahora sí, la situación es la siguiente: Estoy comenzando un formulario para la empresa donde trabajo y necesito que después de haber seleccionado ciertos "criterios" al dar click en un botón se agreguen las variables en la hoja1, para ser más específicos que agrege los valores en la primer fila disponible (en éste caso sería la fila 9), y que una vez hecho esto inserte una nueva fila (en este caso sería debajo de la fila 9) copiando las fórmulas (de la fila 9) de las columnas D, E y F. Espero haberme explicado un poco, les dejo un ar…

amigos tengo la siguiente problematica como hacer que me imprima en hoja distinta por cada n°orden, respetando su encabezado para cada hoja ejemplo tener una hoja con un resumen de ordenes de trabajo asociados a productos y cantidades ej orden - producto -cantidad 10 a 3 10 b 1 10 d 7 20 r 5 aqui la idea es que cada orden puede ser rango variable , puede tener una linea o tb puede tener 1000 lineas entonces que imprima por cada orden y si la siguiente orden cambia copiarla a la siguiente hoja de impresion respetando su encabezado, para que imprima en forma ordenada…

buenas tardes tengo un archivo al cual en el rango a1:a2 tengo un criterio el cual puede ser numero o texto que cuando precione el boton filtrar ubicado en la celda c1 me filtre la base de datos comprendida entre a2:u7000 dependiendo del criterio buscado. gracias FILTRO.rar

Buenas tardesa todos Solicito de todos de sus finas atenciones, ya que yo soy nuevo en esto, tengo poca o casi nula experiencia en VBa para Excel y poco a poco estoy creando un programa, ya tengo nos Userform logrados y me falta un tercero, en el cual quisiera extraer la informacion de una base de datos de excel, utilizando un userform y filtrando como si fuera los autofiltros de excel despues tenerlos en un resumen (como fuese) y despues crear ese resumen un pdf para poder mandarlo por pdf. Espero con la breve explicacion que coloque se entienda. Anexo tambien el userform del modulo de consulta que me necesito por favor me ayuden a realizar. Creo con estos datos y s…

Buenas tardes eruditos del foro ?, mi duda esta vez es medio difícil de explicar: quisiera que en una celda, llamémosla (celda 2), vinculada a la (celda 1), quede fijo el ultimo valor que tenía la (celda 1) antes que se le coloque el valor 0 a dicha celda (celda 1). Subo un ejemplo de la tabla con otra expiación, espero que puedan comprender Saludos Jose Libro1.xlsx

Buenas, tengo un problema. Tengo un fichero de excel de dos columnas usuarios y fechas de acceso. el cual cada semana tengo que mediante una macro recargar ese fichero. Para recargarlo me llega un log. con numerosos detalles entre los cuales hay alguna linea de codigo con esta estructura. 10:34:21 INFO [windows.LoginWindow] Acceso autorizado : rendrino@xxxx.es Entonces cuando vea que llegue una linea en el fichero log con windows.LoginWindow tengo que buscar en el excel donde esta ese usuario y ponerle la fecha de modificacion del archivo a la segunda column Book1, es como me llega a mi el archivo de log.. pero con extension log... y en ejemplo esta como se ve e…

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 noches, espero y me puedan ayudar. Soy nuevo en VBA pero quisiera crear una pantalla para una escuela de captura con las siguientes caracteristicas. Que se pueda selecionar primero el grado correspondiente, de ahi se pueda seleccionar el grupo al que pertenece el alumno y despues el listado de ese grupo para seleccionar el nombre de tal alumnos. Todo esto mediante dropdowns. Y cuando se tenga todo eso seleccionado se pueda agregar 15 datos de una examen. A como tengo mi hoja de calculo estructurada es la siguiente forma, tengo una columna con su numero de lista, otra con su grado, otra con su grupo y por ultimo el nombre con las quiente columnas que hay se almac…

Hola Todos; Soy algo nuevo con el tema de los macros en VBA, estoy tratando de hacer uno que aplique el goal seek en cada una de las celdas en un rango determinado. Lo que he creado hasta el momento es lo siguiente: Sub GoalS() For Each cell In Range("c133:n133") If cell <> 0 Then cell.Select Selection.GoalSeek , Goal:=0, ChangingCell:=Selection.Offset(RowOffset:=-95).Select End If Next cell End Sub Pero me genera el siguiente error: Run-time error '1004: Application-defined or object-defined error Quisiera su ayuda para detectar el error. Muchas gracias

[TABLE=width: 355] [TR] [TD]0 - 500[/TD] [TD=align: right]0.000231135[/TD] [TD=align: right]12.4%[/TD] [/TR] [TR] [TD]500 - 1000[/TD] [TD=align: right]0.000202582[/TD] [TD=align: right]23.2%[/TD] [/TR] [TR] [TD]1000 - 1500[/TD] [TD=align: right]0.000177557[/TD] [TD=align: right]32.7%[/TD] [/TR] [TR] [TD]1500 - 2000[/TD] [TD=align: right]0.000155623[/TD] [TD=align: right]41.0%[/TD] [/TR] [/TABLE] El valor de la barras es el de la segunda columna y quiero colorearlo basado en la tercera columna. Alguien sabe como hacerlo

Saludos, quisiera saber si puedo generar una alarma para una cifra determinada, son datos mensuales y quisiera que cuando totalice a final del periodo, si ese total cumple con la condición me genere una alarma, cuando digo una alarma es si pudiera enviar algún sheet en especifico a una serie de email que tengo registrado. Ejemplo si al final de periodo, Juan tiene 82 und. mas del minimo(77) le mande un adjunto a Juan y me genere algún tipo de alarma a mi esa es mi inquietud. aquí un ejemplo. En la primera sheet esta la cantidad en la segunda los email inventados por mi. Nota: si hay alguna macro involucrada pido por favor explicación, ya que ese lenguaje no lo manejo bie…

Ola que tal disculpen por la molestia, tengo un inconveniente con unos códigos para lograr insertar al FromUser, para un buscador y filtrador en el Textbox, espero que me brinden su ideas, gracias!! Ante mano les agradezco mucho por su atención. Buscadores.rar

Hola, Según cantidad introducida en una celda de la hoja1 por ejemplo en A1 el valor de 5256 Tiene que revisar una tabla que esta en hoja2 con los siguientes valores: A B 4000 120 4500 135 5000 150 5500 165 Y devolverme en la hoja1 en B1 la cantidad que corresponda a 5000 en la columna B.

Buenas Tardes, Agradecería me ayudaran a desarrollar la macro, mis conocimientos son escasos para este tema. Adjunto envío archivo. Muchas gracias. prueba.xlsm

Lo que quiero es que el usuario ingrese el nombre del archivo y se cree un archivo nuevo en una ruta especifica pero que sea la copia de un archivo con macros que ya tengo diseñado, lo que pasa es que todos los meses se ocupara la misma plantilla, pero con los nombres de los mese, espero alguien me pueda ayudar, saludos

Sería posible mostrar todos los formularios de un libro en un listbox ? a ver si alguien me ilumina porque estoy totalmente nublado. Gracias

Buenas tardes expertos. En esta ocacion solicito de su apoyo, tengo un codigo para mostrar informacion de cada shape, pero no me funciona, lo que pretendo lograr es que al momento de pasar el mouse sobre un shape, me muestre como screentip la informacion que se encuentra en otra hoja. Anexo ejemplo. De antemano gracias por la ayuda brindada. Saludos cordiales. Screentip.rar

Hola y buenos días a todos; -¿Se puede depurar mejor la macro que adjunto? Sí es posible agradecería vuestros consejos. Código: Sub notas() With Worksheets("Notas") .Cells(1, 1).AddComment .Cells(1, 1).Comment.Text Text:="Titulo1" .Cells(1, 2).AddComment .Cells(1, 2).Comment.Text Text:="Titulo2" .Cells(1, 3).AddComment .Cells(1, 3).Comment.Text Text:="Titulo3" .Cells(1, 5).AddComment .Cells(1, 5).Comment.Text Text:="Titulo4" .Cells(1, 1).Comment.Visible = False .Cells(1, 2).Comment.Visible = False .Cells(1, 3).Comment.Visible = False .Cells(1, 5).Comment.Visible = False End With End Sub …

Buenos días: Necesito el código para copiar el valor de la última celda escrita de una fila. Espero que me podáis ayudar. Un saludo

Que tal, Pues estoy creando una macro que busque informacion especifica sobre ciertos #Item, en otro libro, dado que cada #Item es una hoja especifica. hasta ahorita e llegado a esto, sin embargo, al momento de correr la macro no sucede absolutamente nada, espero me puedan apoyar en identificar el inconveniente, o si tienen alguna recomendacion sobre el codigo; aqui la macro: Sub RoundedRectangle2_Click() ' ' Keyboard Shortcut: Ctrl+m ' 'Declaracion de variables a utilizar Dim Var, Cef, Sabana, Vi As String 'Escribir variables con una mayuscula para detectar errores Dim V7, V8, V9, V10, V11, V12, V13, V14, V15, V16, V17 As String Dim Prueba As Worksheet Applicat…

Buenas, Es la primera vez que participo en un foro y la verdad es que no tengo mucho conocimento de excel, pero NECESITO VUESTRA AYUDA PORFAVOR! Por temas de currelo necesitaria un excel en el que se pudieran indicar diferentes variables (precios, pesos, zonas geograficas) a diferentes proveedores de transporte. Y una vez introduzcamos el dato del paquete a enviar me facilite el mejor proveedor para esa ruta y tamaño de paquete. Se que es algo complejo (por lo menos para mi) pero se que se ha tratado este tema antes y realmente lo necesito. MUCHAS GRACIAS DE ANTEMANO!!!!!!!!!!!!!!!!!

Quisiera me ayudaran en esto. Tengo un libro con 2 paginas la primera se llama maxtxt y la segunda se llama formula. Necesito macro para copiar desde pagina formula la celda A2 y pegarla en pagina maxtxt Celda C7. Private Sub maxtxt() Set Lcl = Range("B3") Set rg = Range("C7") rg.Copy rg.Offset(rg.Rows.Count, 0).Resize(rg.Rows.Count * [B5] - 1) fecha = Format(Now - 1, "mmdd") Application.ScreenUpdating = False Range("C7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Add Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAS Filename:="C:\" & "Max" & fecha & "." & Lcl, …