I would like to make a Packing Slip, with a drop down in the Item# column.
When an item is selected i would like the corresponding description and part quantities to be inserted...
I have tried a code as below...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$20" Then
Select Case Target.Value
Case "000-101-7221"
Call Macro000_101_7221
Case "000-101-7521"
Call Macro000_101_7521
Case "000-101-7621"
Call Macro000_101_7621
End Select
End If
End Sub
This works great for cell A20, but i need it to do the same in all 'A' cells from A20 - A45
I also wondered about a code such as... but dont understand it and cant get it to work...
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FindMe As String
    Dim Rng As Range

    If Not Target.Column = 2 Then
        Exit Sub
    Else
        FindMe = Target.Value

        Set Rng = Sheets("Data").Range("Item_Code")
        With Rng
            Set Rng = .Find(What:=FindMe, _
                    After:=.Cells(.Cells.Count), _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
            If Not Rng Is Nothing Then

                Target.Offset(0, 1).Value = Rng.Offset(0, 1).Value
                Target.Offset(0, 2).Value = Rng.Offset(0, 2).Value
            End If

        End With
    End If

End Sub
I am very sorry about my poor VBA terminology, but if anyone could help me with one of these codes, or anything else that may work that would be great...
I have attached the spreadsheet i have so far if it is of any use...
Copy 2 of Packing Slip.xlsm
Please help me...