Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Effective use of Sheets("Result table").cells() statement

Status
Not open for further replies.

JensKKK

Technical User
May 8, 2007
119
GB
Is there a more effective way of writing the code below. How can I replace Sheets("Result table"). for example?

Any ideas welcome.

Thanks

Sheets("Result table").Cells(Top - 10, 2) = "Experiment title: "
Sheets("Result table").Cells(Top - 10, 8) = "Date: "
Sheets("Result table").Cells(Top - 9, 2) = "Experimenter: "
Sheets("Result table").Cells(Top - 8, 2) = "Analysis software: "
Sheets("Result table").Cells(Top - 6, 2) = "Number of Arrays: "
Sheets("Result table").Cells(Top - 6, 5) = "Reference Arrays: "
Sheets("Result table").Cells(Top - 6, 8) = "Test Arrays: "
Sheets("Result table").Cells(Top - 5, 2) = "Min % Frequency: "
Sheets("Result table").Cells(Top - 5, 5) = "Cut off for Results: "
Sheets("Result table").Cells(Top - 5, 8) = "Hits: "
Sheets("Result table").Cells(Top - 4, 2) = "Normalization method: "
Sheets("Result table").Cells(Top - 4, 5) = "Analysis method: "
Sheets("Result table").Cells(Top - 3, 2) = "CV for all arrrays: "
Sheets("Result table").Cells(Top - 3, 5) = "CV for IgG controls: "

Sheets("Result table").Cells(Top - 10, 4) = Experiment_Title
Sheets("Result table").Cells(Top - 9, 4) = Experimenter
Sheets("Result table").Cells(Top - 10, 9).value = Date
Sheets("Result table").Cells(Top - 8, 4) = Software_Version
Sheets("Result table").Cells(Top - 6, 4) = Number_of_Arrays
Sheets("Result table").Cells(Top - 6, 7) = Number_of_Reference_Sera
Sheets("Result table").Cells(Top - 6, 9) = Number_of_Test_Sera
Sheets("Result table").Temp = Cells(10, 10)
Sheets("Result table").Cells(Top - 5, 4) = Min_Frequency
Sheets("Result table").Cells(Top - 5, 7) = Cut_off_Value
Sheets("Result table").Cells(Top - 4, 4) = Temp
Sheets("Result table").Cells(Top - 4, 7) = Analysis_Method

Sheets("Result table").Cells(Top - 10, 8).Select
 
something like this ?
With Sheets("Result table")
.Cells(Top - 10, 2) = "Experiment title: "
.Cells(Top - 10, 8) = "Date: "
...
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top