Run time error 1004 hatası

[udentr2002]

Basit bir sayfaya kaydet kodu yazdım kod aşağıdaki gibi ancak
"run time error 1004
Application defined or object error"
hatası veriyor
Çözümü nedir nerde hata yapıyorum?

Private Sub CommandButton5_Click()

Sheets("PVSTOK").Select
If ComboBox5.Text = "" Then
MsgBox ("MALZEME ADI BOŞ GEÇİLEMEZ"), vbCritical, ("DİKKAT!!!")
Exit Sub
ElseIf TextBox37.Text = "" Then
MsgBox ("MALZEME KODU BOŞ GEÇİLEMEZ"), vbCritical, ("DİKKAT !!!")
Exit Sub

ElseIf ComboBox6.Text = "" Then
MsgBox ("SATICI / ÜRETİCİ ADI Boş Geçilemez"), vbCritical, ("DİKKAT !!!")
Exit Sub

ElseIf TextBox38.Text = "" Then
MsgBox ("BİRİMİ Boş Geçilemez"), vbCritical, ("DİKKAT !!!")
Exit Sub

ElseIf TextBox39.Text = "" Then
MsgBox ("MİKTARI Boş Geçilemez"), vbCritical, ("DİKKAT !!!")
Exit Sub

End If



Set s1 = Sheets("PVSTOK")
a = s1.[a65536].End(3).Row + 1

t1 = Format(TextBox39, "#,##0.00")

t1 = t1 * 1

s1.Cells(a, a) = TextBox37.Value
s1.Cells(a, b) = ComboBox5.Value
s1.Cells(a, c) = ComboBox6.Value
s1.Cells(a, d) = TextBox38.Value
s1.Cells(a, e) = t1



End Sub
end[code]

 

[Korhan Ayhan]

Hangi satırda bu hatayı veriyor?

 

[udentr2002]

Hangi satırda bu hatayı veriyor?

s1.Cells(a, b) = ComboBox5.Value
[code] end

bu satırda hocam

 

[Korhan Ayhan]

Parantez içindeki virgülden sonra yazığınız harfleri çift tırnak içinde yazınız.

 

[udentr2002]

Parantez içindeki virgülden sonra yazığınız harfleri çift tırnak içinde yazınız.

Çok teşekkürler hocam. nasıl atlamışım ya eline sağlık