Creating search criteria and chart in macro VBA

Hello All,

I have bunch of data (Data page in attached file) which contains some Parameters, Sample ID, No of visitors and etc. I'd like to see a chart/graph of a type of parameter for a specific sample ID against against another parameter with specific sampl ID (for example in attached file Ammonium raw_water against ammonium outflow) or a parameter against No of visitors (for example Ammonium raw_water against visitors). My idea to this was to creat a search criteria (see sheet "search" in attached file) to search required data from drop down list and search from the database through a search button and when data displays a chart to related data be created by clicking on a chart button.

Any idea how can I programme this in VBA and macro? I really appreciate every little help.

I have attached the file for better understanding.

Cheers,

I have used the following code to get the data for the first part but nothing shows after I assigned the macro and run the module.

Sub get_search_criteria_Data()
macro_sheet = ActiveWorkbook.Name
outpt = ActiveSheet.Name
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Range("B3").Select
search_value = Sheets("" & outpt & "").Range("B3").Value
Sheets("Data").Select
lrow = Sheets("Data").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Count
lcolumn = ActiveSheet.UsedRange.Columns.Count
For i = 1 To lrow
If Workbooks("" & macro_sheet & "").Sheets("Data").Cells(i, 2) = Workbooks("" & macro_sheet & "").Sheets("" & outpt & "").Cells(3, 2) Then
For i2 = 6 To lrow
If Workbooks("" & macro_sheet & "").Sheets("" & outpt & "").Cells(i2, 2) = "" Then
For j = 1 To lcolumn
Workbooks("" & macro_sheet & "").Sheets("" & outpt & "").Cells(i2, j) = Workbooks("" & macro_sheet & "").Sheets("Data").Cells(i, j)
Next
Exit For
End If
Next
End If
Next
Sheets("" & outpt & "").Select
Range("B3").Select
End Sub

Any idea where I am doing it wrong?