Callao2908

Buenas tardes estimados amigos, disculpen las molestias del caso, deseo tengan a bien, permitir se reabra éste tema

Cita

Macro para dividir un archivo word de x páginas en x archivos word de una página cada uno

cierto un poco antiguo, más o menos 2 a 3 años, pero ocurre que se me ha extraviado hace poco los archivos concedidos como solución por LogroAstur, en un backup que tenía, y ahora necesito aplicarlos. He tratado bajarlos  pero el link está roto, sale error. Si ustedes lo tienen agradeceré remitirlos, caso contrario, pido vuestra colaboración para aplicar uno nuevo, que permita dividir hasta bloques de 100 en 100 páginas.

Gracias anticipadas por vuestra colaboración

Nota: las páginas también contienen imágenes

Saludos Jorge

Muchas gracias Gerson, corre bien

Saludos, agradeceré cerrar el tema

Gerson gracias por responder, lo que tú me has sugerido lo había pensado, pero la razón por lo cual no lo deseo hacer así es porque no quiero  estar copiando y pegando el formulario a otros archivos, las veces que lo necesite.

Lo que había pensado es que cada vez que necesite imprimir las hojas en formato pdf de algún archivo, usar tu archivo como base, y desde él abrir el otro archivo, B, del cuál necesito imprimir sus hojas como pdf. De tal manera que lea las hojas de ese archivo B, y las imprima. Finalmente que al igual que abre ese archivo B, pregunte si lo desean cerrar. de ser SI la respuesta que lo cierre

Gracias

Buenas tardes, gusto de saludarles, molesto vuestra atención con la finalidad de solicitar vuestra colaboración.

En un tema tratado en Mayo de éste año Guardar Pdf pero con múltiple selección de hojas, Gerson Pineda dio solución a dicha consulta con el archivo que adjunto.

Lo que necesito es que  realice lo mismo pero en otro archivo. Es decir, si tengo dos archivos, uno el que adjunto, imprima en PDF las hojas seleccionadas del otro archivo B

Gracias anticipadas por vuestra atención

Generar PDF hojas seleccionadas.rar

Riddle, gracias por comunicarte, pero en el último link, me aparecen los dos siguientes errores, luego de haber incluido PtrSafe entre Declare y Function

Gracias por tú colaboración

Saludos, Jorge

Amigo Cottavi, lamento no poder ayudarte, como puedes leer en los aportes subidos, el archivo corresponde a un aporte hecho hace algún tiempo por Riddle, y casualmente lo subí con la idea que me pueda ayudar en mi consulta hecha en el post 5 que hice el martes 4, ojalá Riddle tenga tiempo para poder ayudarnos

Saludos y suerte

Estimado amigo Riddle, buenos días, deseo saber si logró revisar el archivo que le adjunté.

Gracias por su atención

Saludos, Jorge

Gracias Riddle, estaré al pendiente

Saludos

Estimado Riddle, buenas noches, tal vez no sea lo correcto, pero no sé si habrá otra manera de solicitar su atención respecto a que por favor revise el aporte que menciona líneas arribas

Cita

Organizador de archivos por carpetas o categorías

El problema es que mientras tenía Windows 7 y office10 funcionaba perfecto, pero ahora que tengo Windows10 y Office 13 no corre a pesar de ya haber incluir PtrSafe entre Declare y Function  en todos los casos necesarios.

Disculpe la molestia y agradeceré su atención, o caso contrario indicarme, si es necesario abrir otro hilo

Organizador de archivos (1).rar

Muchas gracias Enigma25, puedes dar el tema por SOLUCIONADO

Bendiciones

Buenas tardes, un gusto saludarles cordialmente. Tengo un archivo con 20 columnas, y más de 10000 registros, necesito aplicar en tres de ellas, cierto es, fórmulas diferentes. Agradeceré una macro que me aplique las tres fórmulas en simultáneo y que el resultado se vea en valores y no la fórmula

Gracias anticipadas por la atención merecida

Saludos desde Perú Jorge

Libro1_Valores.xls

Gracias Gerson, yo lo resolví con :

Dim clave As String
clave = Application.InputBox(Prompt:="Ingrese el estado", Title:="Selección de status", Type:=2)

With Rango.SpecialCells(2)
    .AutoFilter 2, clave  

Por favor dar el tema por SOLUCIONADO

Saludos Jorge

Gerson, gracias por la atención, como siempre tan atento. Mas bien un favor, agradeceré poner la alternativa de que yo pueda ingresar la clave, que no sea solo "x", ya que se pueden dar casos dependiendo de la información que necesite, que en vez de "x" pueda ser "z" u otra

Gracias, Jorge desde Perú

Buenas tardes, un gusto saludarles nuevamente. Tengo una lista de personas con sus claves respectivas, dado el caso que una puede tener varias claves.

Lo que necesito es que si yo ingreso una de las claves por ejemplo "x", me muestre a todas las personas de la lista que cumplen con esa clave "x", y a su vez me muestre todas las claves que tuvieron cada una de esas personas que satisfacen la clave "x"

Adjunto archivo con ejemplo

Gracias, saludos Jorge

Ay_Excel.xls

Gracias Dr. Hyde, puedes dar el tema por SOLUCIONADO

Saludos Jorge desde Perú

Dr. Hyde, muchas gracias por tú pronta respuesta, pero faltó algo que tal vez NO fui lo suficientemente claro y preciso en el tema inicial, aparte de lo que has hecho que está muy bien, es necesario también que en la macro se contemple que en la columna "B" se aplique la formula "=CONTAR.SI(rango,criterio)", con la finalidad de saber los casos que no se duplican los valores de las celdas en la columna "A"

Gracias por tú ayuda. Espero tú respuesta

Un abrazo cordial, Jorge desde Perú

Buenas noches, dado que mis columnas son variables en cuanto al número de filas. Y en todos los casos son mayores a  5000 filas, deseo hacer una macro que me halle la columna "B", con la finalidad luego de quedarme solamente con las celdas duplicadas, es decir,en mi caso todas aquellas en el valor de las celdas en la columna "B">1

Gracias anticipadas por la atención

Para_AyExcel.xls

Chencholf/ Macro Antonio, buenos días, una consulta, y si se tratara de un rango seleccionado, como sería si deseo copiar un valor "x" a la columna de la derecha para ese mismo rango. Por ejemplo, si tengo seleccionado el rango (A1:A10), como hago para copiar a su correspondiente rango de la derecha (B1:B10) dicho valor

Gracias Dr. Hyde, lamentablemente estos días estuve sin Red.

Por favor dar el tema por solucionado

Gracias, Dios le bendiga

Jorge desde Perú

Buenas tardes, en el archivo adjunto explico que es lo que debo obtener como resultado, sin embargo, no me arroja error, pero tampoco me da el resultado que necesito

Sheets("Alldata").Cells(jLastrow, 3).Select.FormulaR1C1 = "=IF(LEFT(RC[-2],1)<>""3"", ""D"",""N"")"
Sheets("Alldata").Cells(jLastrow, 4).Select.FormulaR1C1 = "=MID(RC[-3],3,1)"

Agradeceré se sirvan verificar mi macro

Gracias, Saludos

Jorge desde Perú

Copiar columnas jgbh.xls

Gracias johnmpl, la verdad yo tampoco tenía conocimiento de ese inconveniente, que hubiesen datos juntos, hasta que me dieron la data real, y es allí donde recién me di cuenta del problema

Muchas gracias por todo, bendiciones para ti y tú familia, buen fin de semana

Ahora si ya puedes dar el tema por solucionado

Un amigo, Jorge desde Perú

Gracias "johnmpl", un gusto por la ayuda brindada, está funcionando bien

Puedes dar el Tema por SOLUCIONADO

Hasta una próxima oportunidad

Saludos

Jorge

Buenas tardes, he tratado en lo que está a mi alcance, por el poco conocimiento que tengo, pero sin embargo con mucho interés y deseo de seguir aprendiendo, revisando uno y otro ejemplo de este foro,  he logrado hacer la macro que adjunto.

La aplico en la Hoja2, pero para que funcione correctamente debo pararme en las celdas que he resaltado, y correr la macro. Sé que no es lo correcto por eso acudo a ustedes para vuestra ayuda, ya que como observan puedo llegar a tener miles de estos puntos en los que en cada uno tendría que correr la macro

Lo que necesito es correr una sola vez la macro y que realice todo el trabajo

Gracias por vuestra atención

Saludos, Jorge

Ord_Trasp_y_elifilas (1).xls

Muy buenas tardes, tengo información como en el archivo adjunto, con más de 10000 registros. Y necesito transponer la data de un rango de una columna a fila

Al quedar esas filas en blanco lo que se tiene que hacer después  es eliminar las filas en blanco

Gracias anticipadas por la ayuda

Saludos callao2908

Ord_Trasp_y_elifilas.xls

Buenas tardes, molesto vuestra atención ya que trabajo con una serie de libros, más o menos 20, TODOS CON UNA SOLA HOJA, pero de gran cantidad de información, cuya estructura de la hoja no necesariamente son iguales, ubicados en una misma carpeta. Lo que necesito es una macro que me copie esa hoja de cada libro a un libro RESUMEN, pero que al transferirla a ese libro le cambie el nombre a la hoja y le ponga como nombre a esa nueva hoja en el libro RESUMEN, el nombre que tenía el libro del cual copió la hoja.

Por ejemplo, Tengo los libros ACA01, cada uno con su respectiva hoja, supongamos Concentrado 01, el libro  ACA02, con su respectiva hoja, supongamos Concentrado 02, y así sucesivamente el libro ACA20,, con su respectiva hoja, supongamos Concentrado 20.

Al copiar las hojas al libro RESUMEN, la hoja Concentrado 01 deberá cambiar su nombre a ACA01, la hoja Concentrado 02 deberá cambiar su nombre a ACA02, así sucesivamente hasta que la hoja Concentrado 20 su nombre será ACA20

El motivo es que cada mes cambian los libros, y debo comenzar nuevamente otros, como se darán cuenta en un año tendría 240 archivos por revisar

Gracias por la atención que pueda merecer.

Saludos Jorge desde Perú