Hi Vasant,

Here's the code for steps 1-6.

Sub cp()
'
' cp Macro
' Macro recorded 6/2/04 by Marijo
'
' Keyboard Shortcut: Ctrl+z
'
Selection.Copy
Sheets("TestPointInfo").Select
Range("E12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Sheets("Clients").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TestPointInfo").Select
Range("E14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Sheets("Clients").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TestPointInfo").Select
Range("E17").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Sheets("Clients").Select
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TestPointInfo").Select
Range("E19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Sheets("RSL_CtoI").Select
ActiveWindow.SmallScroll ToRight:=32
Range("CQ8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Clients").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Sheets("RSL_CtoI").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Clients").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
End Sub

How do I now save the computed values of the first client whil
clearing the form to compute for the next client? How do I retain th
computed values for each client assuming the same calculation proces
is done for 3,000 clients?

I am new to VBA programming. Would really appreciate it if you coul
explain in more detail.

Thanks,
Marij

--
Message posted from http://www.ExcelForum.com