Bucle llevar historico

18/08/2008 - 23:48 por Sago | Informe spam
Buenas tardes, espero que me puedan ayudar, necesito de una hoja que lleno a
diario, necesisto en otras hojas llevar su historico , pero no se hacer el
bucle para esto.


Sub CopiarDatos()

Dim wksH As Worksheet
Dim wksHD7 As Worksheet

Dim lngF As Long
Dim lngFD7 As Long

Set wksH = Worksheets("Historico D8 SGA 7-07")
Set wksHD7 = Worksheets("Historico D7 MER 130515")


lngFD7 = wksH.Range("A65536").End(xlUp).Row + 1


lngF = wksH.Range("A65536").End(xlUp).Row + 1

With Worksheets("Actual")
wksH.Cells(lngF, 1) = Date 'FECHA DEL DIA ANTERIOR
wksH.Cells(lngF, 2) = .[F22]
wksH.Cells(lngF, 3) = .[G22]
wksH.Cells(lngF, 4) = .[H22]
wksH.Cells(lngF, 5) = .[I22]
wksH.Cells(lngF, 6) = .[J22]
wksH.Cells(lngF, 7) = .[K22]

wksHD7.Cells(lngFD7, 1) = Date 'FECHA DEL DIA ANTERIOR
wksHD7.Cells(lngFD7, 2) = .[F41]
wksHD7.Cells(lngFD7, 3) = .[G41]
wksHD7.Cells(lngFD7, 4) = .[H41]
wksHD7.Cells(lngFD7, 5) = .[I41]
wksHD7.Cells(lngFD7, 6) = .[J41]
wksHD7.Cells(lngFD7, 7) = .[K41]




End With

Set wksH = Nothing



End Sub
 

Leer las respuestas

#1 Héctor Miguel
19/08/2008 - 05:16 | Informe spam
hola, !

... de una hoja que lleno a diario, necesisto en otras hojas llevar su historico
pero no se hacer el bucle para esto.



1) del codigo que expones y de los "detalles" que (no) aportas no se alcanza a ver "un bucle para que ?"

2) en ambas asignaciones de la "ultima fila", estas haciendo referencia a "la siguiente fila libre" (o vacia)
ya que en ambos casos utilizas... -> .End(xlUp).Row + 1

3) de la parte donde "indicas ?" -> 'FECHA DEL DIA ANTERIOR
no es claro si es el dato que pones... o preguntas como poner la fecha del dia anterior -???-
si buscas la fecha del dia anterior... prueba con la instruccion: -> = Date - 1
OJO: si el Date (del sistema) es lunes... obtendras la fecha del domingo (es esto lo que buscas ?)

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

__ el codigo expuesto __
Sub CopiarDatos()
Dim wksH As Worksheet
Dim wksHD7 As Worksheet
Dim lngF As Long
Dim lngFD7 As Long
Set wksH = Worksheets("Historico D8 SGA 7-07")
Set wksHD7 = Worksheets("Historico D7 MER 130515")
lngFD7 = wksH.Range("A65536").End(xlUp).Row + 1
lngF = wksH.Range("A65536").End(xlUp).Row + 1
With Worksheets("Actual")
wksH.Cells(lngF, 1) = Date 'FECHA DEL DIA ANTERIOR
wksH.Cells(lngF, 2) = .[F22]
wksH.Cells(lngF, 3) = .[G22]
wksH.Cells(lngF, 4) = .[H22]
wksH.Cells(lngF, 5) = .[I22]
wksH.Cells(lngF, 6) = .[J22]
wksH.Cells(lngF, 7) = .[K22]
wksHD7.Cells(lngFD7, 1) = Date 'FECHA DEL DIA ANTERIOR
wksHD7.Cells(lngFD7, 2) = .[F41]
wksHD7.Cells(lngFD7, 3) = .[G41]
wksHD7.Cells(lngFD7, 4) = .[H41]
wksHD7.Cells(lngFD7, 5) = .[I41]
wksHD7.Cells(lngFD7, 6) = .[J41]
wksHD7.Cells(lngFD7, 7) = .[K41]
End With
Set wksH = Nothing
End Sub

Preguntas similares