Kaydet Butonu sayfa hatası

[EBUCENDEL]

ustat bır nakıt akış ve kasa mantığında bır tablo hazırladım ama
kaydet butonunu kodlarını sıteden faydalanarak buldum ama sorun su kı ıkı farklı sayfaya 2 farklı forum ıle verı aktarmak ıcın kaydet dedıgım de acık olan sayfaya kayıt yapıyor kod asagıdakı gıbıdır
yardımlarınızı bekliyorum saygılarımla

Private Sub CommandButton1_Click()
Dim Yaşar As Long, Say As Byte
GUNLUK = Range("A65536").End(3).Row + 1
Cells(GUNLUK, "A") = TextBox1.Text
Cells(GUNLUK, "B") = TextBox2.Text
Cells(GUNLUK, "C") = ComboBox1.Text
Cells(GUNLUK, "D") = ComboBox2.Text
Cells(GUNLUK, "E") = TextBox3.Text

MsgBox "Kayıt İşlemi Tamamlanmıştır"

Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select
Next

End Sub

 

[hamitcan]

İlgili kod satırlarının başına aşağıdaki sayfa isimlerini yazmanız gerekiyor.

[COLOR=RED] Sheets("SayfaIsmi").[/color]Cells(GUNLUK, "A")