Runtime Error 13 type mismatch Please I need some help

[Pwz]

well I dont have enough knowledgment about VB and I have some problem with one program, the program is simple I have to appear some clasfication automatically in the column b
this is a part of the program:

Sub ful()


If Columns("R") = "AR" Then
If Columns("T") = "A1" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "A2" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "A3" Then Columns("B").FormulaR1C1 = "Type3"

ElseIf Columns("R") = "AP" Then Columns("B").FormulaR1C1 = "Type3"

ElseIf Columns("R") = "AU" Then
If Columns("T") = "A0" Then Columns("B").FormulaR1C1 = "Type1"
If Columns("T") = "A1" Then Columns("B").FormulaR1C1 = "Type1"
If Columns("T") = "A4" Then Columns("B").FormulaR1C1 = "Type1"
If Columns("T") = "A5" Then Columns("B").FormulaR1C1 = "TypeT"
If Columns("T") = "B1" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "B2" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "B3" Then Columns("B").FormulaR1C1 = "Type3"
End If

End Sub

[kadghar]

well I dont have enough knowledgment about VB and I have some problem with one program, the program is simple I have to appear some clasfication automatically in the column b
this is a part of the program:

Sub ful()


If Columns("R") = "AR" Then
If Columns("T") = "A1" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "A2" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "A3" Then Columns("B").FormulaR1C1 = "Type3"

ElseIf Columns("R") = "AP" Then Columns("B").FormulaR1C1 = "Type3"

ElseIf Columns("R") = "AU" Then
If Columns("T") = "A0" Then Columns("B").FormulaR1C1 = "Type1"
If Columns("T") = "A1" Then Columns("B").FormulaR1C1 = "Type1"
If Columns("T") = "A4" Then Columns("B").FormulaR1C1 = "Type1"
If Columns("T") = "A5" Then Columns("B").FormulaR1C1 = "TypeT"
If Columns("T") = "B1" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "B2" Then Columns("B").FormulaR1C1 = "Type3"
If Columns("T") = "B3" Then Columns("B").FormulaR1C1 = "Type3"
End If

End Sub

May be you should try with columns("R").value = "A0" then...

anyway, you'll need that every cell in the column to be "A0" in orter to make that statement a true one.

If you want to make comparissions value by value in both columns, you should try filling the column with FormulaR1C1 and some excel formula

or try using a couple of FOR to check cell by cell.

[SkinHead]

It's Been A While Since I Did Any VB6 & I Haven't Got It Loaded On Any Of My PCs But Here Goes.

Just A Couple Of Things :

1. It Would Be Useful To Know What Type Columns Is & Where It Comes From.
2. Use A Select Case Statement Rather Than Nested Ifs

 
Dim strType as String
 
strType = "Unknown"
 
Select Case Columns("R") 
Case "AR"
    strType = "Type3"
Case "AU"
    strType = "Type3"
Case "AR"
    Select Case Columns("T") 
    Case "A0", "A1", "A4"
        strType = "Type1"
    Case "A5"
        strType = "TypeT"
    Case "B1", "B2", "B3"
        strType = "Type3"
    End Select
End Select
 
Columns("B").FormulaR1C1 = strType
 
 

3. Put A Breakpoint In At The Top Of The First Select Case Statement And Step Through The Code. This Will Give You The Point Of The Error.