Luis Mondelo

Estas son las instrucciones -Copia todos los archivos que quieras juntar dentro de una misma carpeta -Graba dentro de esa carpeta el archivo que te mando en el siguiente enlace -Una vez tengas todo dentro de la misma carpeta abre el citado que te he...

Necesito saber en qué rango están los encabezados. Ejemplo: Rango a1:h1

La macro quedaría así: Sub adjudtafactura() 'COPIA TODO COMO VALORES Range("A3:AL32").Copy Range("X3").PasteSpecial Paste:=xlvalues Application.CutCopyMode = False End Sub

Te mando aquí la macro íntegramente para que la sustituyas por completo y evitar errores: (Recuerda finalizar por favor) Sub informe_luis() 'por luismondelo pase1 = MsgBox("Desea realizar el informe de medallas???", vbYesNo, "ATENCION") If pase1 =...

Ya te he enviado el archivo por segunda vez con una corrección Ahora si funciona Ya me contarás y recuerda finalizar la consulta

Es mejor duplicar esa hoja mediante macros. Mándamela y te lo dejo construido [email protected] Haz un ejemplo de o que quieres

Para ayudarte en eso te puedo mandar una macro. Dime si estás de acuerdo para mandártela

Ok, estoy con tu tema Enseguida te lo mandaré

En el siguiente enlace te dejo un archivo ya programado http://share.cx.com/S4fQGg No olvides finalizar la consulta

Te mando mi solución. Escribe esta fórmula en la celda D1 de la hoja2 y luego arrastrala hacia abajo. (En mi ejemplo he trabajado con hoja1 y hoja2 respectivamente) =INDIRECTO("hoja1!"&DIRECCION(5*FILA()-4;1)) recuerda finalizar la consulta