Macro/VBA Help

[cmclyne]

I have a spreadsheet with multiple tabs. I want to have one master tab read through columns in other tabs, and if it says a certain word (e.g., Secondary) then it copies that row and pastes it in the master tab. Is this possible, if so how. Thanks.

 

[Fizzyfish]

You might want to check out this thread, it may answer your question:

http://www.mrexcel.com/forum/showthread.php?t=570536&highlight=copy+row

 

[Fizzyfish]

Also here is a sub that I wrote that might work for you:

Sub CopyRowsToMaster()

Dim myws As Worksheet, Masterws As Worksheet, mybook As Workbook
Dim bFound As Boolean
Dim LastRow As Integer, LastColumn As Integer, ColumnCounter As Integer, RowCounter As Integer

Set Masterws = ActiveWorkbook.Worksheets("master")
Set mybook = ActiveWorkbook

'First loop through the work sheets
For Each myws In mybook.Worksheets

'Check worksheet name is not "Master"
If myws.Name <> "master" Then

'Get the last column
LastColumn = myws.Range("A1").SpecialCells(xlCellTypeLastCell).Column

'loop through columns
For ColumnCounter = 1 To LastColumn
'Get the last row in the column
LastRow = myws.Cells(myws.Rows.Count, ColumnCounter).End(xlUp).Row

'Finally loop through the rows of each column looking for the word "Secondary"
For RowCounter = 1 To LastRow

If myws.Cells(RowCounter, ColumnCounter) = "secondary" Then

'Found the word "Secondary" so Copy the row and past the row to master sheet
myws.Cells.Rows(RowCounter).Copy Destination:=Sheets("master").Range("A" & Rows.Count).End(xlUp).Offset(1)​

End If​

Next RowCounter
​

Next ColumnCounter​

End If​

Next myws

End Sub