runtime error 13 type mismatch in nested If statement

[kwoifo]

Hi,

I am encountering a runtime error 13 on the first If statement on the following code -- it seems to run through the loop and then produces the error midway through. I haven't been able to find a solution.. still newish at vba so would be grateful for any suggestions! Many thanks!

Sub test()
Dim x as Integer
Dim i as Long
Dim t as Integer

x = Application.WorksheetFunction.CountIf(Sheet1.Range("A1:AV500"), True)

For i = 1 To 500
    If Sheet1.Cells(i, 1) = True Then
    Sheet1.Cells(i, 4).Copy
        For t = 1 To x
            If Sheet2.Cells(t, 1).Value = vbNullString Then
            Sheet2.Cells(t, 1).PasteSpecial
            End If
        Next t
    End If
Next i
End Sub

Many thanks for any help!!

 

[Andrew Poulsom]

What's in the cell when you get the error (hover your mouse over it)? Why aren't you using the Value property?

 

[kwoifo]

Hi Andrew, thanks for taking a look! The cells of the first If contain a Boolean value. I tried using Cells(i,1).Value and get the same runtime error. The strange thing is it works for the first loop, then produces the error.

 

[Andrew Poulsom]

If you are getting a type mismatch it's likely that one of the cells contains an error.

 

[kwoifo]

Andrew -- thanks, one cell did indeed have an error. Removing the error makes the type mismatch go away.

I realize though now that my code only pastes the first "True" occurrence in the Sheet2 rows instead of pasting the next occurence in cells(t+1,1), cells(t+2,1) etc... that's something I need to fix!

Tks for the help!

 

[kwoifo]

I was able to get my code to do what it's supposed to do now without the mismatch. Many thanks for your help Andrew! Sorry it was so simple!