userformda multipage sorunu

[eseseski]

multipage sayfasında kullanmaya çalıştığım aşağıdaki kodlarda exceldeki gelir sayfasına kaydet butonuyla (commandbutton1)aktarabilirken gider sayfasına aktaramıyorum.
acaba nerede hata yapmış olabilirim bilgisi olanlar yardım edebilir mi??






Private Sub CommandButton1_Click()
FED = Sheets("GELİR").Range("A65536").End(xlUp).Row + 1
Sheets("GELİR").Range("A" & FED).Value = TextBox1.Text
For i = 1 To 1
Sheets("GELİR").Cells(FED, i).Value = Controls("ComboBox" & i).Text
Next
For i = 1 To 4
Sheets("GELİR").Cells(FED, i + 1).Value = Controls("textBox" & i).Text
Next
MsgBox "KAYIT YAPILDI", , "HKUNPİR"
ListBox1.ColumnCount = 5
ListBox1.RowSource = "GELİR!A1:E" & Sheets("GELİR").Range("B65536").End(xlUp).Row
ListBox1.ColumnWidths = "100;150;160;100;100;100;100;100;100"
End Sub

Private Sub CommandButton2_Click()
FED = Sheets("GİDER").Range("A65536").End(xlUp).Row + 1
Sheets("GİDER").Range("A" & FED).Value = TextBox1.Text
For i = 1 To 2
Sheets("GİDER").Cells(FED, i).Value = Controls("ComboBox" & i).Text
Next
For i = 1 To 3
Sheets("GİDER").Cells(FED, i + 1).Value = Controls("textBox" & i).Text
Next
MsgBox "KAYIT YAPILDI", , "HKUNPİR"
ListBox1.ColumnCount = 5
ListBox1.RowSource = "GİDER!A1:E" & Sheets("GİDER").Range("B65536").End(xlUp).Row
ListBox1.ColumnWidths = "100;150;160;100;100;100;100;100;100"
End Sub

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
FED = Sheets("GİDER").Range("A65536").End(xlUp).Row + 1
Sheets("GİDER").Range("A" & FED).Value = ComboBox2.Value
Sheets("GİDER").Cells(FED, "B").Value = ComboBox3.Value
Sheets("GİDER").Cells(FED, "C").Value = TextBox5.Value
Sheets("GİDER").Cells(FED, "D").Value = CDate(TextBox6.Value)
Sheets("GİDER").Cells(FED, "E").Value = CDbl(TextBox7.Value)
MsgBox "KAYIT YAPILDI", , "HKUNPİR"
ListBox1.ColumnCount = 5
ListBox1.RowSource = "GİDER!A1:E" & Sheets("GİDER").Range("B65536").End(xlUp).Row
ListBox1.ColumnWidths = "100;150;160;100;100;100;100;100;100"
End Sub