Something wrong with my coding (new to VBA)

[mikeonglengco]

Hey guys. A little help and a few tips would be nice to for someone who is just learning vba. so I'm currently making this simple data base for the company I work for and i want to be able to put the vendor name in a specific cell(D2) and basically find all data in sheet 2 with the vendor name in cell D2 and paste in a report sheet (sheet 1). I already have written a code for it but for some reason, its not executing what I want it to execute. Can someone please check my code and see if theres anything wrong with it? I have been trying to solve this for days now and I cant seem to find a fix. attached is the test workbook i am working on. Thank you in advance!

[TMS]

Post a sample workbook. Pictures are pretty but useless for diagnosing and testing code.

[mikeonglengco]

here's the workbook im working on. thanks in advance for all the help.

[mike7952]

Give this a try

Sub finddata()
 Const shReport As String = "sheet1"
 Const shData As String = "sheet2"
 Dim rngData As Range, cell As Range
 Dim iRow As Long, sVenderName As String

 
 With Worksheets(shData)
    Set rngData = .Range("a1", .Cells(Rows.Count, "a").End(xlUp))
 End With
 
 With Worksheets(shReport)
    iRow = .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
    sVenderName = .Range("d2").Value
    For Each cell In rngData
        If cell.Value = sVenderName Then
            .Cells(iRow, 1).Resize(, 8).Value = cell.Resize(, 8).Value
            iRow = iRow + 1
        End If
    Next
 End With
End Sub

[mikeonglengco]

yes its finally working!! Thanks so much for the help! I really appreciate it.. quick question. whats the easiest code for a command button whose purpose is to clear contents of a specific range?

[TMS]

Examples:

rngData.ClearContents

.Cells(iRow, 1).Resize(, 8).ClearContents