Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Cells(1, 2).Formula = "=vlookup(A1,A3:B13,2,false)"
Application.EnableEvents = True
ElseIf Target.Address = "$B$1" Then
Application.EnableEvents = False
Cells(1, 1).Formula = "=vlookup(B1,A3:B13,1,false)"
Application.EnableEvents = True
End If
End Sub


"filo666" wrote in message
...
Hi, I want to do an easy thing, I have an inventory program with 10 codes
in
one column(A3:A13) and 10 descriptions in the other (B3:B13), I want that
the
user type a code in cell A1 and then in cell B1 appears the description,
and
when the user type the description in cell B1 appears the code in A1, I
have
the following proceedure :
Private Sub Worksheet_Change(ByVal Target As Range)
on error goto ErrorHandler
application.enableevents = false 'No events will fire
if target.address="$A$1" then
cells(1,2)= "=vlookup(A1;A3:B13;2;false)"
end if

if target.address="$B$1" then
cells(1,1)= "=vlookup(B1;A3:B13;1;false)"
end if

ErrorHandler:
application.enableevents = true 'Reset the events.
End Sub


It's not working, it's driving me crazy, I dont understand why??????

If I put the "=vlookup(B1;A3:B13;1;false)" without the "=" (like this
"vlookup(B1;A3:B13;1;false)") then appears in the cell this:
vlookup(B1;A3:B13;1;false)
so the Vlookup function is not evaluated.

Please HHHHHHHHEEEEEEEEELLLLLLLLLLLLLPPPPPPPPPPP

TIA