Type Mismatch??

**wz4np1** · 08-30-2010, 12:57 PM

I keep getting a "Type mismatch" error with the first execution line inside the FOR loop when I try to execute this code. What am I doing wrong? How can I correct it?

    Dim Ktire As Double
    Dim t As Variant
    Dim zfront As Variant
    Dim zrear As Variant
    ReDim t(1 To 86016, 1 To 1)  
    ReDim zfront(1 To 86016, 1 To 1)  
    ReDim zrear(1 To 86016, 1 To 1)
    
    t = Worksheets("Lists").Range("C15:C86030")
    zfront = Worksheets("Lists").Range("D15:D86030")
    zrear = Worksheets("Lists").Range("E15:E86030")
    
    Dim Ffront As Variant
    Dim Frear As Variant
    ReDim Ffront(1 To 86016, 1 To 1)
    ReDim Frear(1 To 86016, 1 To 1)
    
    For i = 1 To 86016
        Ffront(i, 1) = -Ktire * zfront(i, 1)
        Frear(i, 1) = -Ktire * zrear(i, 1)
    Next i

Thanks in advance-

**shg** · 08-30-2010, 01:09 PM

Sub x()
    Dim Ktire       As Double
    Dim t           As Variant
    Dim zfront      As Variant
    Dim zrear       As Variant
    Dim i           As Long

    With Worksheets("Lists")
        t = .Range("C15:C86030").Value
        zfront = .Range("D15:D86030").Value
        zrear = .Range("E15:E86030").Value
    End With

    Dim Ffront      As Variant
    Dim Frear       As Variant
    ReDim Ffront(1 To 86016, 1 To 1)
    ReDim Frear(1 To 86016, 1 To 1)

    For i = 1 To 86016
        Ffront(i, 1) = -Ktire * zfront(i, 1)
        Frear(i, 1) = -Ktire * zrear(i, 1)
    Next i
End Sub

You'll get an error if the array zfront contains something other than a number.

**TMS** · 08-30-2010, 01:18 PM

Suspect you hava a non-numeric character in column D.

Is it the first time through the loop? If not, you'll need to look at the value of i to work out the offset for the array and, consequently, where the problem is in column D.

Regards