multıpagedeb veri kaydetme

[marlalı1]

multıpadgede page1 ve page2 diye iki buton var.pagelerin herbirinde 1 combox,4 adet textbox var.page1 de commat1,page2 de commant2 var.page1de ki combox ve textboxlara değer girip commantbutonu tıklayınca ilgili sayfaya kaydediyor.page2 ye girince commant buton deyince sayfaya aktar mıyor.aşağıdaki kodları oluşturdum ama page 1 de çalışıyor page 2 de çalışmıyor.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
satir = WorksheetFunction.CountA(Sheets("TABLO").Range("A1:A65536")) + 1
Sheets("TABLO").Cells(satir, 1) = ComboBox1.Value
Sheets("TABLO").Cells(satir, 2) = TextBox1.Value
Sheets("TABLO").Cells(satir, 3) = TextBox2.Value
Sheets("TABLO").Cells(satir, 4) = TextBox3.Value
Sheets("TABLO").Cells(satir, 5) = TextBox4.Value
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
satir = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 1
Sheets("VERİ").Cells(satir, 1) = ComboBox1.Value
Sheets("VERİ").Cells(satir, 2) = TextBox1.Value
Sheets("VERİ").Cells(satir, 3) = TextBox2.Value
Sheets("VERİ").Cells(satir, 4) = TextBox3.Value
Sheets("VERİ").Cells(satir, 5) = TextBox4.Value
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

 

[Orion1]

Page2'deki comboboxları ve textboxları referans göstermeniz.Lazımç.Muhtemelen her 2 pagedede ayni nesneler bulunmayacaktır.Hangi nesneyi yazdıracaksanız onu yazmalısınız.
Textbox1 değilde bu atıyorum textbox15 olabilir.

 

[marlalı1]

çok sağol hocam