Espero no abusar de este medio y en particular de la gentileza de "Macro Antonio". El tema que me he propuesto resolver es como migrar Datos de un "Formato en Excel" a otro como del tipo "Tabla de Datos en el mismo Excel". El formato fuente, lo muestro en el archivo adjunto así como la propuesta para desarrollar el algoritmo y por su puesto, escribir el código correspondiente, salvo mejor parecer. Creo que sería útil, primero seleccionar toda la "Partida", luego los rubros "Mano de Obra", "Materiales" y "Equipo" a fin de que pueda facilitar la migración de datos de cada ámbito circunscrito a cada uno de los rangos. En si, el problema consistiría en repetir esta operaci…

Hola a Todos Ojala alguien me pueda ayudar con esto, estoy un poco oxidado en VBA de Excel El caso es que tengo un libro con la relación de la venta por cada día del mes, en promedio 25 libros. Cada libro tiene entre 2 y 5 hojas Cada hoja tiene dos celdas con valores los cuales quiero copiar a un nuevo libro a manera de hacer un acuse de entrega de los reportes de la venta. La primera celda esta en cada hoja en K2, la segunda celda es el importe total de la venta, pero esta pueda variar de ubicación dependiendo de la cantidad de producto vendido así es que pueda estar en M180, M40, etc. Lo que quiero hacer mediante una Macro es: Copiar los folios de todas las ho…

Hola a todos!! Mi problema es que tengo dos tablas de igual dimension en dos hojas diferentes. y quiero juntarlas en una tercera hoja. Me gustaría que la macro fuera a Sub CopiarCeldas() 'Definir objetos a utilizar Dim wsOrigen As Excel.Worksheet, _ wsCont As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngCont As Excel.Range, _ rngDestino As Excel.Range 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Origen") Set wsCont = Worksheets("Cont") Set wsDestino = Worksheets("Destino") 'Indicar la celda de origen y destino Const celdaOrigen = "A1" Const celdaDestino = "A1" Const celdaCo…

Hola!, les cuento que tengo una base de datos en excel que consiste en un libro compartido, esta es abierta por medio de otro libro excel que contiene macros para abrir, modificar, guardar y cerrar el libro compartido. El tema es... que cuando está cerrando el libro compartido aparece el siguiente mensaje.. "La siguiente acción quitará el uso compartido del libro, ¿Desea quitar el uso compartido? Si, No...", Quisiera saber si hay forma de que este mensaje no aparezca o bien, que se haga click en "No" automáticamente por código. La idea de modificar un libro compartido es que siempre este compartido no? Saludos y espero vuestra mano amiga. NombreArchivo = "Z:\Preciosv…

Hola que tal os queria exponer unos problemillas con los botones de mi formulario. 1º-Cuando se abre el formulario me sale el cursor parpadeando en edad y no me tiene que salir en ningun sitio hasta que no de al boton de NUEVO. 2º- Como vereis cuando doy al BOTON NUEVO se me desactivan algunos botones y tb cuando doy AL BOTON BUSCAR. pero eso esta bien.( Eso es para que sepais como va un poquito).Mi pregunta es: Que cuando doy al boton nuevo y meto datos en los textbox despues tengo que dar al boton agregar para agregarlo a la base de datos y la verdad que no se me agregan.Y cuando doy al BOTON AGREGAR y me desaparecen lo que he metido en los textbox si quiero mover la…

Hola amigos. Mi solicitud se basa en el código integrado en este libro, pueda Detectar si el sistema es de Arquitectura x86 o x64 y según la arquitectura, crie un archivo para dicha arquitectura. Como está, cría el archivo SOLO para x86 Adjunto ZIP con el libro y además algunos archivos para que TODO su contenido sea colocado en una carpeta independiente y desde ahí sea ejecutado el código existente para que pueda(n) ver cómo funciona y el interior del archivo creado que se llamará Registro Librerias_2.cmd. Agradezco desde ya su colaboración. Dentro del libro en Hoja Solicitud, tengo la solicitud más corta y más explícita (creo) 1.part1.rar 1.part2.rar 1.part3.rar…

Hola Amigos, Quiero obtener los dias disponibles de una persona x, y mostrarlos en un listbox por ejemplo, en combobox o listbox marco la persona, y en el listbox, muestre los dias libres o disponibles, algo como esto: los datos estan asi: Gracias

Buenas, Actualmente estoy haciendo una macro, y estoy trabajando con su base de datos. Un amigo me mostro que podía hacer una base de datos con google drive pero la misma solo registra el tiempo y fecha en la cual se subieron los datos (esto lo hace solo). Quisiera saber si alguien tiene experiencia en el asunto y me ayuda con los códigos a ver qué hago mal. Gracias de ante mano. Dim resultado As String Dim url As String, datometodopost As String Dim winhttpsolicitud As Object Set winhttpsolicitud = CreateObject("WINHTTP.winhttprequest.5.1") url = "https://docs.google.com/forms/d/1PJ2RzhSLjli6VQthfnO_2W3ydw7qmc6KXI2N1bIRmFA/formResponse" d…

Buenos días, Necesito ayuda respecto al tema del asunto, lo explico a continuación: Tengo varios documentos PPT con un archivo adjunto cada uno, tengo que acceder a cada uno de estos PPTs para descargar el adjunto e incluirlo en una carpeta. Esta es una tarea que debo hacer a menudo. ¿Habría alguna forma de hacer esto mediante una macro en Excel? Gracias y un saludo.

Quiero insertar imágenes desde una carpeta con una macro en un hoja de Excel este es el código cuando lo ejecuto me marca error 438, a que se debe ese error. </IniciaCodigo> Sub fotos() Dim ImgArray(158) As Variant Dim x As String Dim fotos As Long x = Dir("C:\CL_0121\*.jpg") Do fotos = fotos + 1 ImgArray(fotos) = x x = Dir Loop Until x = "" ActiveCell.Value = x For i = 1 To fotos Selection.InlineShapes.AddPicture _ Filename:="C:\CL_0121\" & _ ImgArray(i), LinkToFile _ :=False, SaveWithDocument:=True Next i End Sub </ FinCodigo> Que es lo que esta mal

Hola que tal, tengo un inconveniente cuando mi codigo trabaja, al momento que hace la copia a las otras hojas nuevas, solo copia datos, lo que yo quisiera es que copie las formulas y no solo los datos. Sub ExtractRepsAA() Dim ws1 As Worksheet Dim wsNew As Worksheet Dim rng As Range Dim r As Integer Dim c As Range Set ws1 = Sheets("MENSUAL") Set rng = Range("Database") 'extract a list of Sales Reps ws1.Columns("A:A").AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Range("AU1"), Unique:=True r = Cells(Rows.Count, "AU").End(xlUp).Row 'set up Criteria Area Range("AW1").Value = Range("A1").Value For Each c In Range("AU2:AU" & r) 'add the r…

Saludos alguien me puede ayudar con un ejemplo de una macro que importe informacion de una pagina web apartid de poner la liga en una celda, de antemano muchas gracias

Buenas, Estoy haciendo un macro para que se generen unos informes diarios, semanales y mensuales. El problema está en que busco que cuando el que llenara el userform no le falte un combobox o un listbox este emita un mensaje, pues esto ya lo e logrado pero cuando lo emite quiera saber cómo hacer que cuando estén completos los combobox este se limpien, empecé a utilizar empty pero realmente no se me ocurrió nada, a su vez quisiera saber si hay alguna forma de hacer lo siguiente: Este formulario es para un personal de 3 turnos y cuando elijan el personal del 3er turno que solo aparezca este en el listado. Anexo documento. Saludos y gracias de ante mano. Libro1(1).rar

Hola a todos, quería preguntarles si se puede hacer lo que deseo, ya que no se mucho de excel, sobre todo de macros. Tengo un archivo con varias columnas, pero solo me interesa el contenido de una de ellas. El contenido se extrajo de una tabla mysql en formato de texto plano y necesito pasarlo a html. Para ello ya conseguí una pagina web que hace lo que necesito de forma correcta. Por lo tanto lo que quiero es crear una macro que copie una celda, luego abra la siguiente pagina web: http://www.textfixer.com/html/convert-text-html.php ahi pegue el contenido de la celda, haga clic en convertir, vuelva a seleccionar, copie y pegue nuevamente en el excel. Lo único que …

Hola a Todos, Soy nuevo en el foro y espero aprender bastante de todos ustedes. Quisiera que me ayudaran por favor: 1. Quiero establecer un filtro de una tabla dinámica como un elemento variable de otra celda, que sea ejecutado con el botón "Buscar". Es decir, quiero que cada vez que cambie filtre manualmente la Tabla dinámica de la Celda c11 de la hoja Home, las demás tablas dinámicas con diferentes datos a seleccionar pero con un nombre de variable a filtrar en común "EMPRESA", se filtren al clickear en el botón buscar. 2. Quiero borrar los filtros de las tablas dinámicas ejecutando con el botón "Borrar". Muchas gracias, sera de gran ayuda su colboracion ya que …

Buenas tardes, recurro a este foro ya que necesito ayuda de los expertos, las acciones que realiza la macro es en el hoja data importa registros de un excel externo eso ya esta funcional, lo que necesito es que en al crear las hojas con la plantilla M_INTERIOR, me cree con el botón copiar de forma que cada vez que ejecute el boton me copie lo que esta en la hoja data y que una vez copiados se borren; a parten me gustaría que no se muestre la plantilla M_INTERIOR que este oculta para que el usuario no modifique la misma, e intentado pero no me ha resultado ya que al ocultarlo y crear las hojas las crea ocultas y eso no es lo que deseo, no se si es posible crear o al copiar…

Estimados Foristas: Realice un proyecto grande, pero ahora quiero añadir esta nueva tarea: Tengo que hacer un resumen de una base de datos solo que no encuentro como manejar los ciclos para que me haga lo que quiero como resultado. En el archivo adjunto solo les mando un ejemplo de las hojas de excel, y viene la explicación de que es a lo que quiero llegar. La lógica es la que se me complica de como quedaría el código. Saludos y de antemano, muchas gracias. Generar Resumen.zip

hola...mi gran agradecimiento a este foro ..hace unos dias recibi solucion a un tema y en esta ocasion los molesto con lo siguiente..necesito que me orienten a encontrar una macro que me valide 3 textbox y que en un listbox me envie el resultado de la busqueda que los llamaria desde una celda en la cual ya le he puesto la funcion SI.ERROR(BUSCARV..subo un ejemplo para que se den una idea. Desde ya muchas gracias validar textbox.xls

Hola hermanos del Foro. Muy agradecido desde ya pro su pronta respuesta. la verdad escribo normalmente cuando ya no puedo encontrar una solución, eso lo hago generalmente por no molestar. sucede que he tratado por todos los medios de solucionar este problema y es que quiero pasar datos de Excel a Word, bajo las siguientes consideraciones: 1_Que se seleccione el archivo correspondiente en base a lo seleccionado en el comobobox1 (este puede ser el archivo "PMFCA.docx" o en su defecto "Predio.Docx"). 2_ se selecciona la opcion de llenado Este puede ser "Solo Madera" o "Madera y carbon"( con los botones de opciones.Si es que seleccionamos la opcion " Solo Madera" se co…

Espero ser lo mas claro posible: Trato de hacer que excel busque el valor de c de manera automática. Pero no se que función utilizar. He buscado ayuda en mi escuela pero me dicen que solo se puede realizar con el programador de excel visual basic. El valor de c puede ir de 0 hasta d pero como programo la celda para no tener que buscar el valor manualmente. El valor de c es el correcto cuando C=T Agradeceria mucho su ayuda con este trabajo. EC1.rar

La primera Macro de Evaluación de proyectos con el Valor Presente Neto (VAN) me funcionó bién, pero la 2a parte con la TIR, me aparece ERROR. Favor colaborarme en generar los mensajes con MsgBOx Evaluación proyecto con VAN TIR con MsgBox.rar

Hola disculpen, saben que tengo un archivo excel con una macro que antes de formatear mi computador funcionaba correctamente, en donde, utilizaba una columna de 43 archivos diferentes y creaba otro archivo nuevo con las 43 columnas juntas una al lado de la otra, pero ahora no se que sucede... si pueden ayudarme me avisan y coloco el archivo excel con la macro y los archivos 43 archivos que utiliza.... Bueno de antemano Muchas Gracias!

Buenos días, espero alguien me pueda ayudar debe ser algo muy sencillo pero no tengo idea como hacerlo. Tengo un código para que me muestre el contenido de una celda en un textbox de un formulario, como puedo mantebner el dato en el textbox aún cuando inserto o elimino filas o columnas en el libro de excel, es decir , en B1=546 cuando inserto una fila pues el 546 ya esta en la celda B2, cómo hago para que se modifique esto automáticamente en el código VBA y me siga mostrando el 546 en el textbox El código que tengo ahora es Private Sub TextBox1_Change() With UserForm1 .TextBox1.Value = Range("=b1").Value End With End Sub consulta foro.zip

Buen día. Quería saber si me pueden ayudar en adjuntar campos seleccionados en un checkbox a un textbox y cuando deselecciono solo borre los que deselecciono. adjunto lo que eh realizado gracias

Hola a todos, Mi idea es definir una macro en un libro y, posteriormente, ejecutar dicha macro desde otro libro Excel con "Application.Run". Lo que pasa es que cuando intento ejecutar la macro en cuestión, se planta el Excel y se cierra con un mensaje de "Excel dejó de funcionar..". Si alguien puede conocer el motivo por el cual pasa esto, agradecería su ayuda. PD: La macro es sencilla y funciona cuando se ejecuta desde el propio libro donde esta definida y la llamada la estoy haciendo de momento desde el campo "Inmediato" del otro libro para limitar el campo de error.