Find the data in some rows that match with one cell and automatically fill the data

[antoni]

Hello Friends, anyone can help me, please.
I want find the data in some rows that same with one or more cell and automatically fill the data. And for more details, I have attached the examp file (Examp.xls).

Thank's before for your helps.

Antoni

[JBeaucaire]

Like so:

Sub Process()
'JBeaucaire (8/17/2009)
    If IsEmpty(Range("L8")) Then
        MsgBox "Please fill in a Lot #"
        Exit Sub
    ElseIf IsEmpty(Range("L10")) Then
        MsgBox "Please fill in a Location #"
        Exit Sub
    ElseIf IsEmpty(Range("L12")) Then
        MsgBox "Please fill in a QTY of use"
        Exit Sub
    End If

Dim LR As Long, cell As Range, Count As Long
Count = Range("L12").Value
LR = Range("B" & Rows.Count).End(xlUp).Row

    For Each cell In Range("B8:B" & LR)
        If cell = Range("L10") Then
            Cells(cell.Row, "D") = Range("L8")
            If Cells(cell.Row, "C") < Count Then
                Cells(cell.Row, "E").Value = Cells(cell.Row, "C").Value
                Count = Count - Cells(cell.Row, "C")
            ElseIf Count > 0 Then
                Cells(cell.Row, "E") = Cells(cell.Row, "C").Value - Count
                Count = 0
            End If
        End If
    Next cell

End Sub

[antoni]

Hello Mr. JBeaucaire thank's for your help.
it's nice code bro..

[JBeaucaire]

Glad you like it!

If that takes care of your need, be sure to EDIT your original post, click Go Advanced and mark the PREFIX box [SOLVED].


(Also, use the blue "scales" icon in our posts to leave Reputation Feedback, it is appreciated)