Dim shts As Worksheet
Dim Ws As Worksheet, wsRws As Long
Dim Rws As Long, Rng1 As Range, Rng2 As Range
Rws = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range(Cells(1, 1), Cells(Rws, 1))
Set Ws = Worksheets("Summary")
For Each shts In Sheets
If shts.Name <> Ws.Name Then
Rws = .Cells(Rows.Count, "B").End(xlUp).Row
wsRws = Ws.Cells(Rows.Count, "A").End(xlUp).Row + 1
Set Rng1 = .Cells(Rws, 2)
Set Rng2 = .Cells(Rws, 4)
Rng1.Copy Ws.Cells(wsRws, 1) 'or where ever you want to put it
Rng2.Copy Ws.Cells(wsRws, 2)
|Rating(1-10)||Knowledgeability = 10||Clarity of Response = 10||Politeness = 10|
|Comment||Thanks a lot dave.Thanks once again.Your code really works as what i exactly wanted. Regards, Selwyn.|
Answers by Expert:
I can answer most excel questions My Website is davesexcel.com
I have been working with spreadsheets since 1991.
I am a self-trained excel developer since 2005.
My website davesexcel.com
Business admin. U of R.
Awards and Honors
Microsoft Excel MVP 2011-2012