Solved: Vlook up..?

[Mr.G]

Why doesn't the temperature look up work?
Can anyone help?

[Charlize]

Try[VBA]application.worksheetfunction.vlookup[/VBA]
Charlize

[Mr.G]

Doesn't work.
[VBA]Private Sub CTemprature_Change()
TxtFluidDensity.Value = Application.WorksheetFunction.VLookup( _
CTemprature.Value, Range("G5:H25"), 2, False)
End Sub[/VBA].

Could I let this run over 3 colums,you select temperature and it automatically inserts the density and viscocity?

[Erdin? E. Ka]

Hi Mr.G,

You should use Val.

Try this;

[VBA]Private Sub CTemprature_Change()
TxtFluidDensity.Text = Application.VLookup( _
Val(CTemprature.Value), Range("G5:H25"), 2, False)
End Sub[/VBA]

[Mr.G]

That works!!
Can I link viscocity to that also? It is in ("I5:I25")

[Erdin? E. Ka]

Is it like this?

[VBA]Private Sub CTemprature_Change()
TxtFluidDensity.Text = Application.VLookup( _
Val(CTemprature.Value), Range("G5:I25"), 3, False)
End Sub[/VBA]

[Mr.G]

OK but fluid density is a text box on its own with info in Colum I

[Bob Phillips]

[vba]

Private Sub CTemprature_Change()
TxtFluidDensity.Text = Application.VLookup( _
Val(CTemprature.Value), Range("G5:H25"), 2, False)
TxtViscosity = Format(Application.VLookup( _
Val(CTemprature.Value), Range("G5:I25"), 3, False), ".000000")
End Sub
[/vba]

[Mr.G]

Thanx a lot it works.
Thank you