View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ssjody[_3_] ssjody[_3_] is offline
external usenet poster
 
Posts: 1
Default Set Value from Vlookup


I'm getting an object required error. I'm not sure what I'm doing wrong.
(newbie)

I want to change the value in my database based on what I type in my
forms text box. Any ideas?

Here is my code:

Private Sub CommandButtonPriceButtonPrevious_Click()
Set pb = Worksheets("PriceBook").Range("PriceBookDatabase")
pbra = Application.VLookup(Label1stICLabel.Caption, pb, 2, False)
pbwa = Application.VLookup(Label1stICLabel.Caption, pb, 3, False)
pbrb = Application.VLookup(Label1stICLabel.Caption, pb, 4, False)
pbwb = Application.VLookup(Label1stICLabel.Caption, pb, 5, False)
pbrc = Application.VLookup(Label1stICLabel.Caption, pb, 6, False)
pbwc = Application.VLookup(Label1stICLabel.Caption, pb, 7, False)
pbrx = Application.VLookup(Label1stICLabel.Caption, pb, 8, False)
pbwx = Application.VLookup(Label1stICLabel.Caption, pb, 9, False)
pbra.Value = Me.TextBoxGradeA_RetailValue.Value
pbwa.Value = Me.TextBoxGradeA_WholesaleValue.Value
pbrb.Value = Me.TextBoxGradeB_RetailValue.Value
pbwb.Value = Me.TextBoxGradeB_WholesaleValue.Value
pbrc.Value = Me.TextBoxGradeC_RetailValue.Value
pbwc.Value = Me.TextBoxGradeC_WholesaleValue.Value
pbrx.Value = Me.TextBoxGradeX_RetailValue.Value
pbwx.Value = Me.TextBoxGradeX_WholesaleValue.Value
MultiPage2.Value = 13
End Sub


--
ssjody
------------------------------------------------------------------------
ssjody's Profile: http://www.excelforum.com/member.php...o&userid=33398
View this thread: http://www.excelforum.com/showthread...hreadid=555205