Conditional formatting cells between sheets and outputing to a seperate cell - vba

Question

Sub MatchLiquor()
Dim lastRowOne As Long
Dim lastRowTwo As Long
Dim sheetNameOne As String
Dim sheetNameTwo As String
sheetNameOne = "Recipies" 'Recipies Sheet
sheetNameTwo = "Liquor Breakdowns" 'Liquor Breakdowns
lastRowOne = Sheets(sheetNameOne).Range("B" & Rows.Count).End(xlUp).Row
lastRowTwo = Sheets(sheetNameTwo).Range("A" & Rows.Count).End(xlUp).Row
For lRow = 2 To lastRowOne 'Loop through all rows
For lRowTwo = 2 To lastRowTwo 'Loop through all rows
If Sheets(sheetNameOne).Cells(lRow, "B") = Sheets(sheetNameTwo).Cells(lRowTwo, "A") Then
Sheets(sheetNameOne).Cells(lRow, "C") * Sheets(sheetNameOne).Cells(lRowTwo, "E") Then
End If
Next lRowTwo
Next lRow
End Sub
In sudo, what I'm attempting to accomplish is such:
Search through all rows of sheetA for "name" and compare to sheetB "name"
Upon being found, multiply different value in sheetA with different value in sheetB; output values into different cell in sheetA (example E).
I haven't yet figured out how to output, or even if this will work.
Ideas?

Answer 1

There was some confusion as to which worksheets were used where and no target for the product on a match was provided but this should clear up your loops.
Sub MatchLiquor()
Dim lastRowOne As Long, lastRowTwo As Long, prodct As Double
Dim sheetNameOne As String, sheetNameTwo As String
sheetNameOne = "Recipies" 'Recipies Sheet
sheetNameTwo = "Liquor Breakdowns" 'Liquor Breakdowns
With Sheets(sheetNameOne)
lastRowOne = .Range("B" & Rows.Count).End(xlUp).Row
lastRowTwo = Sheets(sheetNameTwo).Range("A" & Rows.Count).End(xlUp).Row
For lRow = 2 To lastRowOne 'Loop through all rows on Recipies Sheet
For lRowTwo = 2 To lastRowTwo 'Loop through all rows on Liquor Breakdowns
If .Cells(lRow, "B") = Sheets(sheetNameTwo).Cells(lRowTwo, "A") Then
prodct = .Cells(lRow, "C").Value * Sheets(sheetNameTwo).Cells(lRowTwo, "E").Value
'do something with prodct
.cells(lRow, "E") = prodct
Exit For 'found match and computed product; no need to continue this lRowTwo
End If
Next lRowTwo
Next lRow
End With
End Sub
If a match was found and a product calculated (and put somewhere) there is no need to continue running through the internal nested loop with lRowTwo. Just Exit For which will take you back to the outside loop and the next lRow.
Using Sheets(sheetNameOne) in a With ... End With statement cuts down the parent worksheet references by half.