I'm confused!!!

  • Thread starter Thread starter djohns158
  • Start date Start date
D

djohns158

I've already posted this problem to this group, but I don't know
anything about consolidation, or if that's even what I need. I'm
going to try to be as clear as possible on this: I have a workbook
with 5 worksheets. All of the worksheets have the same exact format,
(rows, columns). The first worksheet is call "Master Inventory
List". It is not accessible to any of my purchasers. The next 4
worksheets are inventory lists for each of my 4 purchasers. When they
purchase inventory and enter the quantity, part #, purchase price,
sales price, etc... into their individual sheet, I want the
information to also update sheet 1 automatically. Is this possible?
And if so, is it easy? I really appreciate the help. I looked at a
video about consolidation, but that's not quite what I need. Please
help. Thank you in advance.

Daryl
 
Not difficult but easier to do with a worksheet_change event than to
explain. If desired, send your workbook to my address below along with a
snippet of this email on an inserted sheet.
 
Sub copyshts()'clear master and copy sheets to it
lr = Application.Max(2, Cells(Rows.Count, 2).End(xlUp).Row)
Rows("2:" & lr).Delete
myarray = Array("Jimmy", "Steve", "Daryl")
For Each sh In myarray
sourcerow = Sheets(sh).Cells(Rows.Count, 2).End(xlUp).Row
'MsgBox sourcerow
destrow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets(sh).Rows("2:" & sourcerow).Copy Rows(destrow)
Next sh
End Sub
 
Back
Top