imprimir archivo

hola, !

- entiendo que ya copiaste/pegaste del html a 10 archivos de excel
- lo que nunca ha "pasado claro" en los mensajes en los foros, es cuando se trata de "simular" arreglos de datos
usando tabulaciones, espacios, etc. EN LUGAR de mencionar hojas, rangos, tipo de datos, etc. (es decir...)
- los datos y detalles "epuestos" deben permitir una (re)construccion (desde este lado del mensaje) del modelo a resolver

- cual columna se puede considerar para tomar algun "identificador/clave/dato/..." que determine algun salto ?
- cual es el contenido en la/s celda/s donde se debe buscar el identificador/... (o lo que sea) ?
- de cuantas filas queda cada hoja/archivo/... ?
- lo que expongas, de preferencia +/- "exactamente"
(p.e.) algun "patron" del identificador (con que inicia/termina/... algun texto NO VARIABLE, etc. etc. etc.)

saludos,
hector.

__ OP __

perdon creo no me explique bien
ya hice copiar y pegar del archivo html y e dividido el archivo en 10 archivos de excel.
ahora exista una macro para insertar un salto de pagina por cada trabajador ya en excel me da 2 hojas por trabajador
pero entre la mitad de la segunda hoja empieza la del otro trabajador..
la celda empieza con la siguiente leyenda de la siguiente hoja

COLUMNA A
COLUMBA B COLUMNA C

***** Anexo 1 - Identificacion del trabador *****

como le hago para insertar un salto de pagina automatico por cada palabra que encuentre asi..

gracias por responder miguel...

el detalle es el siguiente

tengo 2 columnas donde tengo los datos
ejemplo

A1
B1

***** Anexo 1 -Identificacion del trabajador*****
mes inicial
01
mes final
03
rfc
phlr760208
curp
apellido paterno
aguilar
apellido materno
mendez
nombre
luis
sueldos
5210
gratificacion
4521

y asi etc.. son como 40 conceptos por trabajador
termina y empieza otra vez con:

***** Anexo 1 -Identificacion del trabajador*****
mes inicial
02
mes final
12
rfc
phlr760208
curp
apellido paterno
perez
apellido materno
mendez
nombre
pedro
sueldos
5210
gratificacion
4521

ahora como te dije en la indentificacion del trabajador debe empezar en otra
hoja
porque asi como lo tengo el siguiente trabajador se imprime a mitad de la
hoja del trabajador anterior
claro que puedes crear una macro que tome como referencia ese texto para
insertar el salto
o no se que se te puede ocurrir...
nota(no todos los empleados tienen las mismos conceptos unos tiene 40 y
otros 52 dependiedo de sus movimientos
anuales)

gracias

espero haberme explicado

me super urge la informacion hasta el dia de mañana tengo para entregarlo








lhpacheco
valladolid, yucatan


"Héctor Miguel" escribió:

hola, !

- entiendo que ya copiaste/pegaste del html a 10 archivos de excel
- lo que nunca ha "pasado claro" en los mensajes en los foros, es cuando se trata de "simular" arreglos de datos
usando tabulaciones, espacios, etc. EN LUGAR de mencionar hojas, rangos, tipo de datos, etc. (es decir...)
- los datos y detalles "epuestos" deben permitir una (re)construccion (desde este lado del mensaje) del modelo a resolver

- cual columna se puede considerar para tomar algun "identificador/clave/dato/..." que determine algun salto ?
- cual es el contenido en la/s celda/s donde se debe buscar el identificador/... (o lo que sea) ?
- de cuantas filas queda cada hoja/archivo/... ?
- lo que expongas, de preferencia +/- "exactamente"
(p.e.) algun "patron" del identificador (con que inicia/termina/... algun texto NO VARIABLE, etc. etc. etc.)

saludos,
hector.

__ OP __
> perdon creo no me explique bien
> ya hice copiar y pegar del archivo html y e dividido el archivo en 10 archivos de excel.
> ahora exista una macro para insertar un salto de pagina por cada trabajador ya en excel me da 2 hojas por trabajador
> pero entre la mitad de la segunda hoja empieza la del otro trabajador..
> la celda empieza con la siguiente leyenda de la siguiente hoja
>
> COLUMNA A
> COLUMBA B COLUMNA C
>
> ***** Anexo 1 - Identificacion del trabador *****
>
> como le hago para insertar un salto de pagina automatico por cada palabra que encuentre asi..

hola, !

pues... dejaste agunos detalles fuera de comentarios (o sea, "a la imaginacion") :-((
- estoy suponiendo que en la columna A es donde se encuentra algun "identificador"
- estoy asumiendo que del identificador se puede considerar como "patron" el texto "anexo 1"
- estoy asumiendo que los saltos se agregan solo a partir de la segunda celda con este texto (columna A)

la macro del siguiente ejemplo actua solo sobre la hoja de calculo activa (por si requieres hacer bucles ???)
y toma en cuenta que desde la version '97 (hasta incluso la version 2007)
-> existe un limite de 1026 saltos de pagina horizontales (manuales)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Saltos_por_Empleado()
Application.ScreenUpdating = False
Dim Rango As String, n As Integer
With ActiveSheet.HPageBreaks: On Error Resume Next
For n = 1 To .Count: .Item(n).Delete: Next: On Error GoTo 0
Rango = Range([a1], [a65536].End(xlUp)).Address
Names.Add "saltos", "=if(isnumber(search(""anexo 1""," & Rango & ")),row(" & Rango & "))"
For n = 2 To [count(saltos)]: .Add Range("a" & Evaluate("small(saltos," & n & ")")): Next
End With: Names("saltos").Delete
End Sub

ok todo bien gracias una vez mas Hector
eso eera todo lo que estaba buscando...


lhpacheco
valladolid, yucatan


"Héctor Miguel" escribió:

hola, !

pues... dejaste agunos detalles fuera de comentarios (o sea, "a la imaginacion") :-((
- estoy suponiendo que en la columna A es donde se encuentra algun "identificador"
- estoy asumiendo que del identificador se puede considerar como "patron" el texto "anexo 1"
- estoy asumiendo que los saltos se agregan solo a partir de la segunda celda con este texto (columna A)

la macro del siguiente ejemplo actua solo sobre la hoja de calculo activa (por si requieres hacer bucles ???)
y toma en cuenta que desde la version '97 (hasta incluso la version 2007)
-> existe un limite de 1026 saltos de pagina horizontales (manuales)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Saltos_por_Empleado()
Application.ScreenUpdating = False
Dim Rango As String, n As Integer
With ActiveSheet.HPageBreaks: On Error Resume Next
For n = 1 To .Count: .Item(n).Delete: Next: On Error GoTo 0
Rango = Range([a1], [a65536].End(xlUp)).Address
Names.Add "saltos", "=if(isnumber(search(""anexo 1""," & Rango & ")),row(" & Rango & "))"
For n = 2 To [count(saltos)]: .Add Range("a" & Evaluate("small(saltos," & n & ")")): Next
End With: Names("saltos").Delete
End Sub