Çözüldü Kod Hatası

[sirkülasyon]

Sub yaz()
    With ActiveCell
        Select Case Frame2.Tag
        Case 1
            .Value = "Asfalt"
            Cells(.Row, "L") = 1
        Case 2
            .Value = "Asfalt,Karlı,Zincirli"
            Cells(.Row, "L") = 1.05
        Case 3
            .Value = "Asfalt,Dağlık,Eğimli"
            Cells(.Row, "L") = 1.05
        Case 4
            .Value = "Asfalt,Dağlık,Eğimli,Karlı,Zincirli"
            Cells(.Row, "L") = 1.1
         Case 5
            .Value = "Stabilize"
            Cells(.Row, "L") = 1.1
        Case 6
            .Value = "Stabilze,Karlı,Zincirli"
            Cells(.Row, "L") = 1.15
        Case 7
            .Value = "Stabilize,Dağlık,Eğimli"
            Cells(.Row, "L") = 1.15
        Case 8
            .Value = "Stabilze,Dağlık,Eğimli,Karlı,Zincirli"
            Cells(.Row, "L") = 1.2
        Case 9
            .Value = "Toprak"
            Cells(.Row, "L") = 1.2
        Case 10
            .Value = "Toprak,Karlı,Zincirli"
            Cells(.Row, "L") = 1.25
        Case 11
            .Value = "Toprak,Dağlık,Eğimli"
            Cells(.Row, "L") = 1.25
        Case12
            .Value = "Toprak,Dağlık,Eğimli,Karlı,Zincirli"
            Cells(.Row, "L") = 1.3
        End Select
        
    End With
     End With
End Sub

Userform tabloda OptionButton ile tüm şartları girdim. Userform açıldığında Case 11' e kadar işlem görüyor.
Case12
.Value = "Toprak,Dağlık,Eğimli,Karlı,Zincirli"
Cells(.Row, "L") = 1.3
kısmında hata veriyor. O kısmı almıyor sanki. Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Kodların sonunda iki tane "End With" var bir tanesini silin.

 

[sirkülasyon]

Private Sub CommandButton1_Click()
    Unload Me
End Sub


Private Sub Frame2_Click()

End Sub

Private Sub OptionButton1_Click()
    Frame2.Tag = 1
    Call yaz
End Sub
Private Sub OptionButton2_Click()
    Frame2.Tag = 2
    Call yaz
End Sub
Private Sub OptionButton3_Click()
    Frame2.Tag = 3
    Call yaz
End Sub
Private Sub OptionButton4_Click()
    Frame2.Tag = 4
    Call yaz
End Sub
Private Sub OptionButton5_Click()
    Frame2.Tag = 5
    Call yaz
End Sub
Private Sub OptionButton6_Click()
    Frame2.Tag = 6
    Call yaz
End Sub
Private Sub OptionButton7_Click()
    Frame2.Tag = 7
    Call yaz
End Sub
Private Sub OptionButton8_Click()
    Frame2.Tag = 8
    Call yaz
End Sub
Private Sub OptionButton9_Click()
    Frame2.Tag = 9
    Call yaz
End Sub
Private Sub OptionButton10_Click()
    Frame2.Tag = 10
    Call yaz
End Sub
Private Sub OptionButton11_Click()
    Frame2.Tag = 11
    Call yaz
End Sub
Private Sub OptionButton12_Click()

  Frame2.Tag = 12
   Call yaz
End Sub
Sub yaz()
    With ActiveCell
        Select Case Frame2.Tag
        Case 1
            .Value = "Asfalt"
            Cells(.Row, "L") = 1
        Case 2
            .Value = "Asfalt,Karlı,Zincirli"
            Cells(.Row, "L") = 1.05
        Case 3
            .Value = "Asfalt,Dağlık,Eğimli"
            Cells(.Row, "L") = 1.05
        Case 4
            .Value = "Asfalt,Dağlık,Eğimli,Karlı,Zincirli"
            Cells(.Row, "L") = 1.1
         Case 5
            .Value = "Stabilize"
            Cells(.Row, "L") = 1.1
        Case 6
            .Value = "Stabilze,Karlı,Zincirli"
            Cells(.Row, "L") = 1.15
        Case 7
            .Value = "Stabilize,Dağlık,Eğimli"
            Cells(.Row, "L") = 1.15
        Case 8
            .Value = "Stabilze,Dağlık,Eğimli,Karlı,Zincirli"
            Cells(.Row, "L") = 1.2
        Case 9
            .Value = "Toprak"
            Cells(.Row, "L") = 1.2
        Case 10
            .Value = "Toprak,Karlı,Zincirli"
            Cells(.Row, "L") = 1.25
        Case 11
            .Value = "Toprak,Dağlık,Eğimli"
            Cells(.Row, "L") = 1.25
        Case12
            .Value = "Toprak,Dağlık,Eğimli,Karlı,Zincirli"
            Cells(.Row, "L") = 1.3
        End Select
        
    End With
    
End Sub

Abi yine hata veriyor

 

[Muzaffer Ali]

"Case12" yazmışsınız "Case 12" yazın. Arada boşluk olmalı

 

[sirkülasyon]

Dikkatinize ve yardımınıza teşekkür ederim.
Çok Sağ olun

 

[Muzaffer Ali]

Rica ederim. Siz de sağ olun.