hi evrybody !! can anybody make this code more economic for my cpu?? (it is
not a big problem, but maybe there is something better)
ty..!! this is part of code of a macro called every 2 seconds..

aWS.Range("H7").Value = aWS.Range("H1").Value
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown

aWS.Range("A801").Delete Shift:=xlUp

Why do you copy H7 twice and do nothing with it.

Why do you insert two cells, but only delete one cell

what are you trying to do?

Maybe
With aWS
.Range("A1:A799").copy .Range("A2")
.Range("A1,H7").Value = .Range("H1").Value
End With

--
Regards,
Tom Ogilvy




--
Regards,
Tom Ogilvy


"N+" wrote:

hi evrybody !! can anybody make this code more economic for my cpu?? (it is
not a big problem, but maybe there is something better)
ty..!! this is part of code of a macro called every 2 seconds..

aWS.Range("H7").Value = aWS.Range("H1").Value
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown

aWS.Range("A801").Delete Shift:=xlUp

hi tom ty for help, there is a noticeable save of cpu and also more
manuevrability when switchin from1 window to other, whene there is a lot of
winows open.

1) i forgot to write the "delete" twice, u have reason..
2) i copy twice because the macro runs evry 2 seconds to save the cpu.. so i
have to shift down twice (to respect "seconds/rows" proportion..have a link
in another page ) .. i can just copy once, having 1 blank cell and 1 filled,
its true (with is a little cpu save)
3)sorry for disturbing you again the original code has a "if then" choice ,
for the base cell..and i can't translate to the new situation..!! help me if
u can , ty!

If aWS.Range("H1").Value = "0" Then
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
'aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
Else
aWS.Range("H7").Value = aWS.Range("H1").Value
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
'aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
End If

aWS.Range("A801").Delete Shift:=xlUp
aWS.Range("A801").Delete Shift:=xlUp





"Tom Ogilvy" wrote:

Why do you copy H7 twice and do nothing with it.

Why do you insert two cells, but only delete one cell

what are you trying to do?

Maybe
With aWS
.Range("A1:A799").copy .Range("A2")
.Range("A1,H7").Value = .Range("H1").Value
End With

--
Regards,
Tom Ogilvy




--
Regards,
Tom Ogilvy


"N+" wrote:

hi evrybody !! can anybody make this code more economic for my cpu?? (it is
not a big problem, but maybe there is something better)
ty..!! this is part of code of a macro called every 2 seconds..

aWS.Range("H7").Value = aWS.Range("H1").Value
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown

aWS.Range("A801").Delete Shift:=xlUp

ty tom i did it placing twice this..
..Range("A1:A799").copy .Range("A2")

ty for teaching that useful way for copy paste, i appreciated very much!!
hope we will meet again


"N+" wrote:

hi tom ty for help, there is a noticeable save of cpu and also more
manuevrability when switchin from1 window to other, whene there is a lot of
winows open.

1) i forgot to write the "delete" twice, u have reason..
2) i copy twice because the macro runs evry 2 seconds to save the cpu.. so i
have to shift down twice (to respect "seconds/rows" proportion..have a link
in another page ) .. i can just copy once, having 1 blank cell and 1 filled,
its true (with is a little cpu save)
3)sorry for disturbing you again the original code has a "if then" choice ,
for the base cell..and i can't translate to the new situation..!! help me if
u can , ty!

If aWS.Range("H1").Value = "0" Then
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
'aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
Else
aWS.Range("H7").Value = aWS.Range("H1").Value
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
'aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
End If

aWS.Range("A801").Delete Shift:=xlUp
aWS.Range("A801").Delete Shift:=xlUp





"Tom Ogilvy" wrote:

Why do you copy H7 twice and do nothing with it.

Why do you insert two cells, but only delete one cell

what are you trying to do?

Maybe
With aWS
.Range("A1:A799").copy .Range("A2")
.Range("A1,H7").Value = .Range("H1").Value
End With

--
Regards,
Tom Ogilvy




--
Regards,
Tom Ogilvy


"N+" wrote:

hi evrybody !! can anybody make this code more economic for my cpu?? (it is
not a big problem, but maybe there is something better)
ty..!! this is part of code of a macro called every 2 seconds..

aWS.Range("H7").Value = aWS.Range("H1").Value
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown
aWS.Range("H7").Copy
aWS.Range("A1").Insert Shift:=xlDown

aWS.Range("A801").Delete Shift:=xlUp