Type mismatch hatası

[burak80li]

Arkadaşlar merhaba,

Programımda
deg1 = GirisForm.Controls("textbox" & a).Value * Val(ActiveCell.Offset(21 - i, a - 1))

satırında "type mismatch" hatası alıyorum. Neden olabilir acaba bilgisi olan varsa yardımcı olabilr mi?

Classdaki bütün kodları da vereyim.

Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
If IsNumeric(txt) = False Then

SendKeys "{bs}" '----Bu ifade en son yazılan karakter sayısal değilse 'backspace' tuşuna otomatik olarak bas ve yazılan karakteri sil demektir. Böylece sadece rakam girilebiliyor
Exit Sub
End If

Dim i, x, y As Integer
For i = 29 To 1580
If GirisForm.Calendar1.Value = Range("A" & i).Value Then


For a = 1 To 19 '-- idari işlerde yapılan toplamı hesaplıyoruz şimdi de..
Range("R" & i).Select

If deg1 = "" Then deg1 = 0
deg1 = GirisForm.Controls("textbox" & a).Value * Val(ActiveCell.Offset(21 - i, a - 1))
toplam1 = CDbl(deg1) + toplam1
Next
GirisForm.Label156 = Format(toplam1, "#,##0.00")

'ActiveCell.Offset(0, a - 1) = Controls("TextBox" & a).Value * val(ActiveCell.Offset(21 - i, a - 1))

End If

Next
End Sub

 

[burak80li]

Arkadaşlar şu an hata vermiyor. Mesele nasıl halloldu bilmiyorum ama çözüldü.