I am currently working on a spreadsheet for my workplace that makes use
of the AutoFilter feature to provide reports on our inventory prices
etc. using criteria entered via a UserForm

Some of the items in the inventory list have comments attached and i
was wondering if it is possible to bring these comments with the cell
when it is transferred to my report page

my module is below, excuse the severely bloated code, i'm not too
efficient with VBA as yet but it works. (apart from the comments of
course)

TIA!
Dan
------------------------------------------------------------------------------
Private Sub Button_Create_Report_Click()
Application.ScreenUpdating = False

If TextBox_Product_Name.Value < "" Or False Then
Sheets("Inventory_Report").Range("Searched_Name_Re sult").Value
= "*" & TextBox_Product_Name.Value & "*"
End If
If ComboBox_Category.Value < "" Or False Then

Sheets("Inventory_Report").Range("Searched_Categor y_Result").Value =
"*" & ComboBox_Category.Value & "*"
End If
If ComboBox_SubCategory.Value < "" Or False Then

Sheets("Inventory_Report").Range("Searched_SubCate gory_Result").Value =
"*" & ComboBox_SubCategory.Value & "*"
End If
If ComboBox_Supplier.Value < "" Or False Then

Sheets("Inventory_Report").Range("Searched_Supplie r_Result").Value =
"*" & ComboBox_Supplier.Value & "*"
End If
If TextBox_Product_Code.Value < "" Or False Then

Sheets("Inventory_Report").Range("Searched_Product _Code_Result").Value
= "*" & TextBox_Product_Code.Value & "*"
End If
If TextBox_Price_Ex_GST.Value < "" Or False Then

Sheets("Inventory_Report").Range("Searched_Price_E xGST_Result").Value =
TextBox_Price_Ex_GST.Value
End If
If ComboBox_UOM.Value < "" Or False Then
Sheets("Inventory_Report").Range("Searched_UOM_Res ult").Value =
"*" & ComboBox_UOM.Value & "*"
End If

ActiveWorkbook.Sheets("Inventory_Report").Activate
Unload Form_Create_Report
Set DataRange = Sheets("Inventory").Range("A1:G" &
Sheets("Inventory").Range("G65536").End(xlUp).Row)
DataRange.AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range("Searched_Name:Searched_UOM_R esult"),
CopyToRange:=Sheets("Inventory_Report").Range("A2: G2"), Unique:=False

ActiveWorkbook.Sheets("Inventory_Report").Activate

Range("Searched_Name_Result").ClearContents
Range("Searched_Category_Result").ClearContents
Range("Searched_SubCategory_Result").ClearContents
Range("Searched_Supplier_Result").ClearContents
Range("Searched_Product_Code_Result").ClearContent s
Range("Searched_Price_ExGST_Result").ClearContents

Range("G1").Formula = "FALSE"

Range("A1").Select

Application.ScreenUpdating = True

End Sub