Type Mismatch Error

S

ssjody

I get a type mismatch error on Set rng1 = rng(res, 5)
How do I fix this? Thanks Jody

Private Sub CommandButtonPriceNext_Click()
Dim rng As Range, rng1 As Range, res As Variant
Set rng = Range("PriceBookDatabase")
res = Application.VLookup(Label1stICLabel.Caption, rng, 1, False)
If Not IsError(res) Then
Set rng1 = rng(res, 5)
rng1.Value = Me.TextBoxGradeA_RetailValue.Text
End If
MultiPage2.Value = 15
End Su
 
B

Bob Phillips

Try

Set rng1 = Cells(res, 5)


assuming res is a valid number

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
S

ssjody

Hi Bob,

I changed Set rng1 = rng(res, 5) to the below and I still get the Typ
Mismatch Error. res is a valid number. Any other Ideas? Thanks Jody

Private Sub CommandButtonPriceNext_Click()
Dim rng As Range, rng1 As Range, res As Variant
Set rng = Range("PriceBookDatabase")
res = Application.VLookup(Label1stICLabel.Caption, rng, 1, False)
If Not IsError(res) Then
Set rng1 = Cells(res, 5)
rng1.Value = Me.TextBoxGradeA_RetailValue.Text
End If
MultiPage2.Value = 15
End Su
 
B

Bob Phillips

What's is res at this point? Add Msgbox res to see it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Filtering/Excluding Values 1
Match style 0
Match Copy/Paste Macro almost there 0
End process at last row of data 3
Match function and displaying results 3
select case simplification request 7
compare all matches 3
Highlight a cell after update in a specific range 2

Top