Run Error 13

[HYKE]

Dear All,

What seems to be wrong with this code? It is giving me a runtime error 13????

Private Sub CommandButton3_Click()
 Dim r As Long
    With Sheet1
         r = Application.Match(MRITRBox.Value, .Range("G:G"), False)
        .Cells(r, 20).Value = MRITRUpd.Value
        
        Range("a1").Select
       
    End With
End Sub

 

[HYKE]

Re: Run Time Error 13-Type Mismatch

Anyone,please????

 

[shg]

r = Application.Match(MRITRBox.Value, .Range("G:G"), [COLOR=red]0[/COLOR])

 

[Norie]

The Match function might not be finding a match and returning an error.

Why not try VBA Find?

 

[HYKE]

This particular line

r = Application.Match(MRITRBox.Value, .Range("G:G"), False)
:(

 

[HYKE]

Hi Norie,

Tried replacing Match with Find, but it gave me the same error..

 

[Norie]

This is untested but perhaps you could use it or something similar instead of Application.Match

Private Sub CommandButton3_Click()
Dim rngFnd As Range
 
    With Sheet1
    
        Set rngFnd = .Range("G:G").Find(MRITRBox.Value)
        If Not rngFnd Is Nothing Then
            ' if found
            .Cells(rngFnd.Row, 20).Value = MRITRUpd.Value
        End If
    End With
 
End Sub

Note if nothing is found nothing will happen, but you won't get an error.

 

[HYKE]

Hi shg4421,

I replaced "false" with 0, but still the same error occurs...

 

[Jonmo1]

What is MRITRBox ? Is it a Text Box?
Text boxes contain.....well....Text..
You won't find a match to a text value in a column of numbers (G).

Perhaps

r = Application.Match(Val(MRITRBox.Value), .Range("G:G"), 0)


Hope that helps.


Note, the reason for 0 instead of FALSE is a little nitpicky..but using FALSE is technically incorrect (even though it works).
The Match function is looking for an argument of either -1, 0, or 1 (it is NOT a True or False argument)

Using TRUE = 1, FALSE = 0. But there is no equivelant for -1.

 

[HYKE]

Hi norie,

Your code worked! Thanks a lot. Now I can rest for a while..been breaking my head for hours. I am just wondering why the previous code didn't work?