Saludos estimados foristas, alguien me puede ayudar para revisar una macro que haga lo siguiente: en un libro quiero que las Hojas "CASA" , "PEZ" , "total" crear otro ibro lo que es igual a copiar y mover a otro libro, lo que deseo que una vez que esto se realice las hojas esten bloqueadas con una clave "XX" y deshabilitar las funciones de copiado, pegado con clic drecho solo en las Hojas "CASA" , "PEZ" la hoja "total" solo bloqueada con "XX". adjunto ejemplo Sub ANEXO() ' Sheets(Array("CASA", "PEZ")).Select Sheets("PEZ").Activate Sheets(Array("CASA", "PEZ", "total")).Copy Sheets("CASA").Select ActiveSheet.Protect "XX" …

un favor me pudieran ayudar con lo siguiente quisiera obtener los resultados como se encuentran en el archivo "0 PD CARGA POL 20 07.Xlsm" Hoja "RECIB" , los datos los debe de extraer del archivo "Recibidas_2020_08_Facturas.xlsx , trate de introducir las columnas en matriz sin embargo debido a que mi pc es lenta y manejo muchos datos fue la razón por la que decidí introducir mis columnas en matriz tanto las columnas que estoy copiando , así como las columnas de destino, sin embargo no lo hace correctamente, adjunto mis archivos y mi macro para cualquier apoyo, corrección de antemano, les agradezco Sub Macro2() ' Application.ScreenUpdating = False Dim ws2,…

Hola, muy buenos días! Pues bien, les platico mi caso: llevo ya rato programando una macro (soy notatisima en esto! pero hay la llevo) la cual consiste en que evalúa los registros de una hoja y en base a ciertas condiciones va llenando arreglos con los datos de los registros, los cuales posteriormente serán vaciados a dos reportes (se copian de una ruta al libro activo) se genera uno u otro o ambos si los arreglos correspondientes contienen datos, en caso contrario no se generan), en general ya lo tengo programado, pero tengo algunos detalles (me marca error en los objetos al copiar las hojas formatos de reportes) con los que me he topado con pared! Ayudenme! Les anexo e…

Buenas tares, antes que nada Tengo una situación con un macro y quisiera un par de opiniones y de su ayuda para resolverla La macro que intento hacer deber realizar un filtrado de una serie de datos de una hoja y copiarlos a otra el filtrado se basa en una columna con un dato especifico esa columna es fija siempre va ser la misma, una vez que hago la búsqueda del dato, cuando lo encuentra realizo el copiado de toda esa fila a otra hoja de excel, el problema es que también necesito copiar unas celdas hacia abajo pero no siempre es el mismo numero de celdas estas pueden variar a veces es 1 sola o pueden llegar a ser hasta 4 adjunto el archivo (no el real uno muy par…

hola foreros, espero me puedan ayudar por favor, tengo esta macro creada con ayuda de IA y requiero lo siguiente, que cuando detecte la condición "REC" en columna SURVTYPE (Col D) del archivo "survey_test2.xlsm", se inserte una fila abajo, repitiendo toda la información de dicha fila, excepto el dato de columna DEPTH, este nuevo dato que lo obtenga de un archivo cerrado (no necesita estar abierto) que se llama "Update_Recomendaciones2.csv", y que está en la misma ubicación de carpeta, desde este archivo .csv obtenga el dato de "profundidad" que está en columna "PROF_REC" (Col D) [del archivo "Update_Recomendaciones2.csv"] reconociendo por el código HOLEID y extraer el dat…

Amigos, necesito su ayuda: Soy nuevo en el foro, y mi experiencia con macros es reciente, así que no tengo un claro dominio. Quiero copiar estas partidas presupuestarias de la columna "A" de la "hoja1" a la "hoja2", pero no quiero que se copien aquellas partidas que tengan la letra "E" en la columna "U" de la "hoja1". Actualmente se copian las partidas pero no me obedece la condición "If" que le puse. Sub Parte6a() Worksheets("hoja1").Activate For Z = 17 To 46 Next Z Range("A17:A46").Select Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.Copy If Cells(Z, 21) <> "E" Then Sheets("hoja2").Activate Range("A16").PasteSpecial x…

Me gustaría saber si se puede seleccionar un rango vertical ejemplo A1:A10, copiarlo y pegarlo en 10 textbox's de una ventana de VBA que tambien estan en horizontal. Ejemplo.zip

Me conseguí una macro que copia un rango de celdas variables a un nuevo libro lo que quiero modificar es que el nombre del nuevo libro lo tome de una celda de la pagina en B1 pero me da error aqui el codigo CODE Sub CopiarCeldas() 'Definir objetos a utilizar Dim Nom_Libro As String Nom_Libro = Range("B1").Value Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & Nom_Libro) 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino…

Hola a todos/as que tal, Necesitaría un poco de ayuda para empezar esta macro ando un poco perdido, el tema no es muy complicado seguro que ya esta contestado pero no hago la pregunta correcta. El tema es una macro para copiar pegar que te pregunte donde y desde donde, esto no se si con imputbox o algo así seria mas fácil, o directamente seleccionando celdas. Que te de la opción de nº filas o todas para copiar y que copie / pegue. Adjunto archivo que se entiende mejor. Gracias. ejemplo copiar.xls ejemplo copiar.xls

Buenos dias. Tengo un libro llamado Ofertas, donde cada hoja del libro corresponde a un presupuesto. Las hojas estan numeradas del 1 al 100 segun el numero del presupuesto. En estas hojas tengo desde la columna A a la H la plantilla del presupuesto y el resto de columnas tienen imagenes, y otros datos lo que hacen el archivo muy pesado. He creado un libro nuevo llamado Registro de Ofertas que esta en blanco. Lo que busco es mediante una macro copiar todas las hojas del libro Ofertas y pegarlas en el libro Registro de Ofertas, pero solo quiero los datos del rango "A:H" y que me respete el nombre de cada hoja. Se os ocurre algo?? Un saludo

Buenos días, agradezco de antemano la colaboración que me puedan brindar. Adjunto archivo con el ejemplo de qué es lo que se debe obtener. Se trata de pasar con una macro los datos de las columnas de la hoja1 a las columnas de la hoja2, si el nombre coíncide. En aquellos que las columnas falten éstas se rellenarán con ceros. En la hoja2, siempre se encontrará en la primera fila la relación de todos los campos que se deben rellenar. Por favor indicar desde que hoja se debe arrancar la macro Gracias Copiar col de tabla.xls

Hola, Soy poco diestro con las macros, pero me gustaría saber como hacer una macro. Tengo una lista inicial con diferentes registros (columnas).Voy a llamarla general. Quiero que copie, en hojas de calculo a continuación de la general, en función del valor introducido en varias columnas. Por ejemplo: en la hoja "general" tengo las columnas, nombre, apellidos, sexo, años. Quiero por ejemplo que en la hoja 1 me copie los que sean de sexo masculino y tengan 18 años. Entiendo que esto en la misma hoja se podría hacer con fórmulas, pero lo que quiero es que me saque directamente resultados a hojas de cálculo, pulsando un icono. Gracias por orientarme!

Hola: Disculpad, pero hay muchos temas parecidos y no encuentro la respuesta exacta. Tengo una hoja con una base de datos de productos. Una de las columnas, tiene datos de "VENDIDO", "RESERVADO", etc En otra hoja coloco en A1 "VENDIDO". Quisiera que en esa segunda hoja, copiara todas las filas de la primera hoja en las que pone "VENDIDO". Cuando en la primera hoja, un producto cambie de "VENDIDO" a otro estado, esta fila tiene que desaparecer de la hoja 2. Luego generaré otra hoja con "RESERVADO", ETC. Muchas gracias. copiar.xls

Hola, buenas noches, Tengo el ejemplo adjunto, el cual me gustaria puedan colaborarme con lo siguiente: 1. al estar en la hoja Ordenes, en la columna BC cualquier fila y escriba la palabra Proceso se copie a la pestaña Proceso. 2. cuando me encuentre en la pestaña proceso columna BC cualquier fila y escriba la palabra Pendiente se "corte" y peque en la pestaña Pendiente. 3. y cuando me encuentre en la pestaña Pendiente columna BC cualquier fila y escriba la palabra Cerrado se "corte" y peque en la pestaña Cerrado. Muchas Gracias por su amable apoyo. Saludos, ejemplo copiar a pestanas.zip

Buenas tardes Tengo una base de datos que se alimenta de varias userforms y la manera de que los datos correspondan al mismo cliente es anotando el No. de folio generado originalmente en cada userform. Cómo puedo hacer para que algunos de los datos capturados en una userform se vean en un textbox de otra userform para que quien captura los pueda usar como referencia. Muchas gracias de antemano, adjunto archivo. AAAA CONCENTRADO DE DATOS GAS.rar

Hola a todos, Tengo el archivo adjunto, el cual tiene algunas hojas, de las cuales solo deseo copiar unas cuantas a un nuevo libro el cual deberá tener un modulo con una macro que dejo en el archivo adjunto así como un botón y una hoja que se debe llamar "resumen". Espero pueda estar claro el archivo. Quedo a la espera de su amable atención. Saludos, EJEMPLO COPIAR.zip

Buenos días; Estoy intentado hacer lo siguiente y corregirme si es que no se puede, adelanto un poco el tema. He adjuntado una macro con dos hojas y sus correspondientes encabezados en la fila 1. -He configurado una macro que borra todos los datos de ambas hojas. -También he creado otra que copia los datos de la primera hoja y los pega a partir de la fila diez creo recordar. Lo que necesito conseguir es copiar los datos de las dos hojas en una variable antes de que los borre y si los he borrado por error con la macro recuperar que pegue los datos que se hayan almacenado en la variable en cada una de las hojas. Igual lo que se pretende …

Hola de nuevo, tengo esta macro: Sub Inserta_foto() 'Renombramos archivo Name "C:\Seat\Fotos\foto.jpg" As "C:\Seat\Fotos\imagen.jpg" ActiveCell.Select ActiveSheet.Pictures.Insert("C:\Seat\Fotos\imagen.jpg").Select With Selection .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 60.75 'Alto de la imagen .ShapeRange.Width = 84 'Ancho de la imagen .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda) .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior) 'Movemos archivo a la carpeta Historico Name "C:\Seat\Fotos\imagen.jpg"…

Primero que todo un saludo para todos y de antemano GRACIAS por la ayuda. Estoy creando una pequeña herramienta en la cual necesito tomar una imagen jpg contenida en la misma carpeta donde esta el archivo Excel, copiarla y pegarla en un archivo proveniente de una plantilla de Word. He conseguido en la web códigos similares como por ejemplo pasar una grafico de Excel a la platilla pero no se como hacer para pasar una imagen como archivo y pegarlo en Word. Adjunto un archivo en el que me base pero no pude adaptarlo a mi necesidad DE ANTEMANO MUCHAS GRACIAS POR LA AYUDA copiar jpgl_a_word.rar

Buenas tardes. Necesito de su ayuda con un archivo que utilizare para enviar una lista de archivos a otras carpetas. En la columna B tengo listado varios archivos (ruta y nombre) variada. estos archivos debo copiarlos como 1 solo (todos los archivos de la columna) a varias rutas listados en la columna F. Teniendo como resultado los mismos archivos en las rutas puestas en la columna F Esperando me puedan ayudar con mi archivo. Saludo a todos, bonita tarde. Mariano Copiar un rango de datos a diferentes carpetas.xlsm

Buenas tardes. Y si en lugar de copiar todos los ficheros en las rutas indicadas, fuera un fichero, una ruta. Es decir, el fichero de la b4, copiarlo en la ruta del f5, el fichero de la b5, copiarlo en la ruta del f6. Puedes ayudarme ? Muchas gracias por tu tiempo y ayuda !!!

Hola gente, de antemano gracias por leer mi consulta. Estoy con una macro para copiar ficheros de una carpeta a otra con el famoso CopyFile. Funciona correctamente, pero me gustaría que al pegar el archivo si en el destino existe uno con el mismo nombre lo renombre sin machacarlo, estilo: nombre.pdf -> nombre(1).pdf Alguna idea? Gracias.

Alguien sabe si existe código vba para hacer copias de archivos de una carpeta a otra. En este caso necesito una macro que me copie varios archivos pdf de una carpeta a otra conforme los va encontrando. Ya tengo el código para encontrarlos. Lo que necesito es el código para copiarlos. Gracias de antemano por su ayuda

Buenas soy nuevo y me gustaría una ayuda. quiero copiar tres archivos de una unidad a otra para trabajar con ellos. con un boton busco lo que pongo en la celda de la hoja1 en la celda a24 en un archivo de forma secuencial. set fso=createobjetc("scripting.filesystemobject") set archivo= Fso.CopyFile ("P:\mapperS.pv", "C:\gonzalez\temporal\MAPPERS.PV") set archivo= Fso.CopyFile ("P:\ssv.pv", "C:\gonzalez\temporal\ssv.PV") Dim ts As TextStream Dim strCodigo As String Dim strLinea As String Set ts = Fso.OpenTextFile("C:\gonzalez\temporal\MAPPERS.PV") strCodigo = ("a24" ) Do While Not (ts.AtEndOfStream) strLinea = ts.ReadLine If strCodigo = Left(strLine…

Hola, Gracias a exceloy he logrado lo adjunto. Mi problema es que el AREA la cual marque en uno de los lados con color, deb repetirse hacia abajo , restringuiendo a el usuario ** no modificar lo escrito por usuariio* Finalmente , ver la factibilidad de insertar imagenes en los cuadros al pinchar el area indicada, al final de la hoja. Gracias prueba2.xls