LeaWildcat
Daisy's Garden Toon
|
 Posted: Mon Aug 07, 2006 8:51 pm Post subject: |
 |
|
Would something like this help? I wrote this one for a spreadsheet at work. What it does is copy files from a certain point to another point on the sheet overwriting the formulas to adjust for the monthly readings. There are some other things involved but I'm thinking the scroll may be what you are looking for.
| Quote: | TKNcopystd()
'
' TKNcopystd Macro
' Macro recorded 11/17/2005 by amy marie northam
'
'
Sheets("5ppm TKN").Select
ActiveWindow.LargeScroll ToRight:=-3
ActiveWindow.LargeScroll Down:=-1
Range("G5:G10").Select
Selection.Copy
Range("F5:F10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C8").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("10ppm TKN").Select
ActiveWindow.LargeScroll ToRight:=-3
ActiveWindow.LargeScroll Down:=-3
Range("G5:G10").Select
Selection.Copy
Range("F5:F10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C7").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("1ppm TKN").Select
Range("G5:G10").Select
Selection.Copy
Range("F5:F10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C55:G55").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-3
ActiveWindow.SmallScroll Down:=2
Range("C15").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C7").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub |
_________________
Lady Rosie Rhinotoes 106 no lure
Miss Scooter 106 no drop
Da lil Brat 50 VP uber no sound no drop
Cheeze Hound 17 TTC in need of friends
Lea Wildcat 20 used for elder tasks
Test:
Bearfoot Mama coral bear usual wearing all white 66 working on cashbot suit; no trap
Always look up you never know what's there to pounce you. |
|
