Archivar solo ciertos registros

hola, Jorge !

... subi el archivo a
http://rapidshare.de/files/48119158...n.xls.html
para ver si puedes ayudarme con la consulta formulada...

ya tengo ese archivo, solo que lo enviaste con la hoja protegida :-((
y me queda una pregunta:
=> donde se ha de llevar el registro de los datos ?
- en otra hoja ? (ya la tienes o hay que inventarla ?)
- en otro libro ? (idem)

saludos,
hector.

Hola Hector Miguel. Disculpa, no me di cuenta que estaba protegido, asi es
que lo subire de nuevo y te aviso en este mismo hilo. En cuanto a si es nueva
hoja o libro donde deben ir a parar los datos, creo que lo mas sencillo es en
el mismo libro, nueva hoja. Saludos y gracias.

"Héctor Miguel" escribió:

hola, Jorge !

> ... subi el archivo a
> http://rapidshare.de/files/48119158...n.xls.html
> para ver si puedes ayudarme con la consulta formulada...

ya tengo ese archivo, solo que lo enviaste con la hoja protegida :-((
y me queda una pregunta:
=> donde se ha de llevar el registro de los datos ?
- en otra hoja ? (ya la tienes o hay que inventarla ?)
- en otro libro ? (idem)

saludos,
hector.

Hola. El nuevo vinculo es
http://rapidshare.com/files/2691764...n.xls.html
Gracias
"Jorge" escribió:

Hola Hector Miguel. En relación a la consulta que formule al foro el día 10
de agosto reciente, te informo que subi el archivo a
http://rapidshare.de/files/48119158...n.xls.html para ver si puedes
ayudarme con la consulta formulada. Gracias

hola, Jorge !

... no me di cuenta que estaba protegido, asi es que lo subire de nuevo
En cuanto a si es nueva hoja o libro donde deben ir a parar los datos
creo que lo mas sencillo es en el mismo libro, nueva hoja...

- el archivo sigue con proteccion al libro (tuve que tronar la proteccion)
- tienes varias hojas "xlsheetveryhidden", una de ellas (#6) se llama "hoja1"
a esa hoja le cambie el nombre por "Historico" <= OJO que es clave en la siguiente macro

prueba con una macro +/- como la siguiente y si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Registro_historico()
Dim Fila As Integer, Salto As Byte, Grupo As Byte, Registros As Byte, _
Datos, Fecha, modCalc
Salto = 42
Grupo = 28
With Application
.ScreenUpdating = False
modCalc = .Calculation
.Calculation = xlCalculationManual
With Worksheets("estado diario")
Fecha = .Range("f4")
For Fila = 10 To .Range("c65536").End(xlUp).Row Step Salto
With .Range("c" & Fila).Resize(Grupo)
Registros = Evaluate("count('" & .Parent.Name & "'!" & .Address & ")")
If Registros > 0 Then
Datos = .Resize(Registros).Value
With Worksheets("historico").Range("a65536").End(xlUp).Offset(1)
.Resize(Registros).Value = Fecha
.Offset(, 1).Resize(Registros).Value = Datos
End With
End If
End With
Next
End With
.Calculation = modCalc
End With
End Sub

Hola Hector Miguel: Gracias por tu dedicación, pero tengo problemas con lo
que me enviaste. Te explico: hice un bloque con la macro, abri Programador,
Código, Visual Basic y la pegue bajo Option Explicit (quedó como Modulo3, ya
que no supe como cambiar el nombre). A su vez elimine las hojas innecesarias
y cambie el nombre de la #6 por historico. A la macro le asigne el metodo
abreviado Ctrl+h y esta quedó en la celda G2, pero lo que obtengo en
historico son los datos del rango C304:C331, de la hoja Estado Diario en el
rango B2:B29 de la hoja historico y sin fecha. ¿Tiene solución para
incorporar los demas datos?. Gracias.-

"Héctor Miguel" escribió:

hola, Jorge !

> ... no me di cuenta que estaba protegido, asi es que lo subire de nuevo
> En cuanto a si es nueva hoja o libro donde deben ir a parar los datos
> creo que lo mas sencillo es en el mismo libro, nueva hoja...

- el archivo sigue con proteccion al libro (tuve que tronar la proteccion)
- tienes varias hojas "xlsheetveryhidden", una de ellas (#6) se llama "hoja1"
a esa hoja le cambie el nombre por "Historico" <= OJO que es clave en la siguiente macro

prueba con una macro +/- como la siguiente y si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Registro_historico()
Dim Fila As Integer, Salto As Byte, Grupo As Byte, Registros As Byte, _
Datos, Fecha, modCalc
Salto = 42
Grupo = 28
With Application
.ScreenUpdating = False
modCalc = .Calculation
.Calculation = xlCalculationManual
With Worksheets("estado diario")
Fecha = .Range("f4")
For Fila = 10 To .Range("c65536").End(xlUp).Row Step Salto
With .Range("c" & Fila).Resize(Grupo)
Registros = Evaluate("count('" & .Parent.Name & "'!" & .Address & ")")
If Registros > 0 Then
Datos = .Resize(Registros).Value
With Worksheets("historico").Range("a65536").End(xlUp).Offset(1)
.Resize(Registros).Value = Fecha
.Offset(, 1).Resize(Registros).Value = Datos
End With
End If
End With
Next
End With
.Calculation = modCalc
End With
End Sub