probably basic to you lot.....

F

Frenchie

....but I aint no Excel wizard - by any stretch of the imaginatio

Anyhow, I've been 'tasked' by my employer to create an Excel [97] spreadsheet for a series of meetings [approx 12] that will occur within the next month.

I've been told to create an Excel workbook that has 'sheet 1' as a 'summary of actions arising'; and the rest of the sheets to contain details of the specific meetings. Fine - I can do that, BUT - my boss also wants the sheets to 'update' and 'link' to the Summary page so that details from 2 columns in each 'meeting sheet' [ie 'issues arising' and 'issues resolved'] are shown on the Summary page - therefore as each meeting will raise either actions/issues; these are reflected in the Summary sheet

I'm simply not good enough to set this up.

ANY [!] advice would be be gratefully received

Many, many thanks in advance
Andy
 
A

AlfD

Hi!

You seem to have been waiting a while! I am not the world's greatest o
VBA but I can offer the following FWIW.

This routine takes a row from a worksheet and copies it into the firs
vacant row on another worksheet. Basic stuff, but I think you only nee
basic stuff which picks up data from one sheet and puts it in
consolidated reporting sheet.

Private Sub cmdConfirm_Click() ' In my code this was confirming a righ
click: you might equally use a button
Application.ScreenUpdating = False
Dim r As Integer
Dim intRows as long
r = ActiveCell.Row 'Selected row of the monthly sheet

Worksheets("Report").Activate ' Report is your Summary
Dim intRows As Long 'Find no. of rows in Summary
Range("A1").Select
intRows = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows
xlPrevious).Row

Sheets("Monthly Report").Select
Application.CutCopyMode = False
Range("A" & r & ":" & "B" & r).Copy 'Copy record to send to Report
Sheets("Report").Select
With Sheets("Report")
.Range("A" & intRows + 1).PasteSpecial Paste:=xlValues 'Cop
data to Record
.Range("A2").Activate
End With

End Sub

I've edited this to match your situation (I hope) but I might well hav
overlooked some details. I haven't been able to test it.

Range("A" & r & ":" & "B" & r).Copy assumes that the stuff you want t
transfer to the report is in columns A and B.

Have a look : have a go: come back if you can't see your way forward.

Al
 
Top