Makro hatası

[adventurous26]

Merhaba R sütununda bulunan macronun aynısını T sütununada uygulamak istediğimde böyle bir hata alıyorum sebebi ne olabilir?

 

[adventurous26]

User1formda bulunan kodlar bu şekilde aynısını userform 2 yede kopyaladım

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox2_Change()
Dim tarih As Date
tarih = CDate(ComboBox2.Value)
ComboBox2.Value = Format(tarih, "dd/mm/yyyy")
End Sub

Private Sub ComboBox3_Change()

End Sub

Private Sub CommandButton1_Click()
Dim syf As Worksheet
Dim sonSatir As Long

Set syf = ThisWorkbook.Worksheets("cancelled")

sonSatir = syf.Cells(syf.Rows.Count, 2).End(xlUp).Row


syf.Range("B" & sonSatir + 1).Value = UserForm1.TextBox1.Value
syf.Range("C" & sonSatir + 1).Value = UserForm1.ComboBox1.Value
syf.Range("D" & sonSatir + 1).Value = UserForm1.ComboBox2.Value
syf.Range("E" & sonSatir + 1).Value = UserForm1.ComboBox3.Value
syf.Range("F" & sonSatir + 1).Value = UserForm1.TextBox2.Value
MsgBox "Kaydedildi.", vbQuestion, "Bilgi"
UserForm1.Hide



End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub