Wyszukanie tekstu i zwracanie ceny w EXCEL

[niebrzeg]

Witam,
Mam problem z jedna rzeczą. Mam bazę nazw urządzeń w jednym pliku excel wraz z cenami, natomiast w drugim chciałbym żeby po wpisaniu nazwy zwracało mi po wspisaniu nazwy cene. Jak można to wykonać
to mam w jednym pliku:
TBW-104UB - 20,00
TBW-105UB - 15,38
TBW-106UB - 8,89
TEW-421PC - 5,68

to mam w drugim pliku i chce, żeby po tekscie zczytywał mi ceny
TBW-104UB - żeby była taka sama cena
TBW-105UB
TBW-106UB
TEW-421PC

[rysio]

Jeśli dane w arkuszu masz w trzech kolumnach TYP, MODEL, CENA i chcesz skopiować znaleziony model wraz z ceną do arkusza2 to robisz tak:

1. alt+f11
2. wstaw -> moduł
3. wklej to:
Sub podaj_cene()
Sheets("arkusz1").Select
Range("a1").Select
cena = Null
typ = Null
model = Null
typ = InputBox("podaj typ")
model = InputBox("podaj model")
Do Until ((ActiveCell.Value = typ) And (ActiveCell.Offset(0, 1) = model)) Or ActiveCell.Offset(1, 0) = ""
ActiveCell.Offset(1, 0).Select
Loop

If (ActiveCell.Value <> typ) And (ActiveCell(0, 1) <> model) Then
MsgBox "brak takiego modelu!"
Exit Sub
Else
cena = ActiveCell.Offset(0, 2).Value
MsgBox "Cena dla towaru " & vbCrLf & typ & " - " & model & vbCrLf & "wynosi " & cena
End If
Sheets("arkusz2").Select
Range("a1").Select

Do Until ActiveCell.Offset(1, 0).Value = ""
ActiveCell.Offset(1, 0).Select
Loop

With ActiveCell
.Value = typ
.Offset(0, 1) = model
.Offset(0, 2) = cena
End With
End Sub
4. żeby odtworzyć makro musisz...no bez jaj - uruchomić makro

[rysio]

Do powyższego: przy wpisywaniu wartości używać CAPS LOCKA