Posted to microsoft.public.excel.programming
|
|
Summary sheet
You are welcome
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Vincdc" wrote in message ...
It works. Thanks a lot for your help!
"Ron de Bruin" wrote:
Hi
Try this small example
Add a worksheet with the name "Master" to your testworkbook first and run this macro
If you only want to have the values see
http://www.rondebruin.nl/copy2.htm
Sub test()
Dim sh As Worksheet
Dim cell As Range
Dim a As Long
Dim rw As Long
rw = 0
For Each sh In ThisWorkbook.Worksheets
If sh.Name < "Master" Then
rw = rw + 1
a = 0
For Each cell In Range("A3,B3,C3")
a = a + 1
Sheets("Master").Cells(rw, a).Formula = "=" & sh.Name & "!" & cell.Address
Next cell
End If
Next sh
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Vincdc" wrote in message ...
Hello:
I have some worksheets (questionnaire format) for each of the client. The
client name, phone number and other information are at the same locations in
each worksheet. My question is how I can create a summary sheet, so that each
row in the summary sheet contains one client information. I wrote the
following code, but I have no idea on how each of the client information can
be inserted into a new row, e.g. A3, B3, C3/A4, B4, C4.
Sub Macro4()
Range("A2").Select
ActiveCell.FormulaR1C1 = "=HYPERLINK(Sheet1!RC[1])"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=HYPERLINK(Sheet1!R[1]C[1])"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=HYPERLINK(Sheet1!R[3]C[1])"
End Sub
Thanks in advance!
|