Macro/Formula to Select Rows of data and output to new Worksheets(?)

[HoustonREFinance]

Hello, I am using excel 2007.

I am working with a project whereby I am trying to understand how to create a form button macro that will select the applicable rows of data that is particular to a Project (my input worksheets contains multiple 'projects', like below, Projects 1, 2, 3, etc., so I'd probably need a button for each project, or maybe one button could handle all Projects (?), and then 'Output '(copy, paste, link, etc.) the applicable rows (where the "Include?" Column =1, 0 to exclude) into a new worksheet. That may be straightforward enough, but I do have a second condition/issue that you might have some advice upon. Example below:

My Inputs Worksheet (User inputs are in Blue)

			1	1	1	1			2	2	2	2
Include?	Project		1					Include?	2
1	Title		Hotel					1	Apartments
1	ID		H					0	A
0			Variable 1	Variable 2				0	Variable 1	Variable 2
1	Budget Item				Total	Amount					Total	Amount
1	Land							1
1	Purchase		20,000	$20.00		$400,000		1	30,000	$20.00		$600,000
0	Closing Cost			0.00%		$0		1	3.00%			$18,000
1	Total (#2)				$400,000			1			$618,000
1								1
0	Shared Costs							0
1	Roads		20,000	$10.00		$200,000		0	0	$0.00		$0
1	Total (#2)				$200,000			1			$0
1
1	Building Cost							1
1	Tower		150,000	$300.00		$45,000,000		1	150,000	$125.00		$18,750,000
1	Parking		350	$15,000		$5,250,000		1	300	$10,000		$3,000,000
1	Total (#3)				$50,250,000						$21,750,000

<colgroup><col span="3"><col><col><col><col><col span="2"><col><col><col span="2"></colgroup><tbody>
</tbody>

So the 'Output' worksheet from the macro function would result in a separate worksheets for Project 1 and Project 2. I can see two macro form buttons on this page, that basically select the columns in the first row that are equal to the Project 1, or 2, etc, and then select the rows that Include the variable "1" along the left side of each project entry page.

The Output worksheets could just copy everything, ignoring the "include" condition, but I'd just need a follow up function that would group and collapse, or 'hide' the rows that do not have applicable data on the Output Worksheet for Print Report purposes (which could be a separate form button macro question on its own). That would be fine as well.

The second condition is that the Output sheets would be integrated into another set of worksheets that each perform calculations based on the values in the Inputs worksheets. So those worksheets would need to be able to identify and 'link' to the appropriate values so as not to create the #Ref error. So for instance, for Project 1, the Output worksheet would be integrated into a series of four other worksheets, where by they would be trying to reference the values associated with Total #1, Total #2 and Total #3. I am not that familiar with Named Ranges, but I sense this would be cumbersome since I'll have so many projects referencing the same Totals, but within their separate "Project" worksheets.

I know this is a long question, and may be answered in a couple of different parts, but any help would be appreciated! (as my current process for integrating these into these different projects is very time consuming and I know very inefficient!)

Thanks,

 

[thatmichaelguy]

I started working on an idea of achieving this but didn't get very far and ran out of free time
Hopefully this helps you or the next person who tries to write something though!

Best of luck

Sub project_example()
        
    Dim FindString As String
    Dim Rng As Range
    Dim WS As Worksheet
    
    FindString = InputBox(Prompt:="What is the name of the Project?", _
        Title:="PROJECT NAME", Default:="Project Name here")
    If Trim(FindString) <> "" Then
        With Sheets("Sheet1").Range("A1:Z100")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                WS.Name = FindString
                Set WS = Sheets.Add(After:=Sheets(Worksheets.Count))
                'ran out of time to write anything to select the data,
                'it shouldnt be too hard to do based on the FindString location though
            Else
                MsgBox "Project Not Found."
            End If
        End With
    End If
End Sub