message box detailing contents of row

[Godders199]

Hello, is it possible to create a message box to do the following. assume data contained on sheet 1

Search column A, ( product) , where product matches search criteria the contents of that row are displayed in a message box, showing the column header and value in cell, for example

Product - Plugs
Stock - 1000
restock date 01/06/2018
price 50

etc

headers are on row 2

if anyone knows if this can be done, or has an example that would be a great help.

 

[sramsay]

The quickest solution is the below:

Sub message()


    Dim productRow  As Long
    Dim productName As String
    
    productName = InputBox("What product?")
    
    On Error GoTo errNotFound
    productRow = Sheets("Sheet1").Range("A:A").Find(What:=productName).row
    On Error GoTo 0
    
    MsgBox Sheets("Sheet1").Range("A2").value & " - " & Sheets("Sheet1").Range("A" & productRow).value & vbNewLine & _
           Sheets("Sheet1").Range("B2").value & " - " & Sheets("Sheet1").Range("B" & productRow).value & vbNewLine & _
           Sheets("Sheet1").Range("C2").value & " - " & Sheets("Sheet1").Range("C" & productRow).value & vbNewLine & _
           Sheets("Sheet1").Range("D2").value & " - " & Sheets("Sheet1").Range("D" & productRow).value

    Exit Sub
errNotFound:
    MsgBox "Product Name Not Found!", vbCritical


End Sub

 

[Godders199]

thanks i understand, will build it in

thanks for your help