istenilen sayfaya kayıt etmek

[mraltin]

Arkadaslar merhaba
Userformun uzerine bir adet combobox ekledim ve yapmak istegim comboboxtan secilen ay bilgisine gore excele kayıt yapmak.
calismamda Sayfa isimleri OCAK,ÞUBAT,MART ..... olarak hepsi tanimli
kullandigim kod.
Not:fis_ay = comboboxın ismi
combodan aralık secip kayıt edersem bilgileri aralık sayfasına kayıt etmesi bu mümhünmüdür?
----
Private Sub CommandButton1_Click()
UserForm1.Caption = "AVANS BİLGİLERİ GİRİÞ" & " " & "[" & [ae33].Text & "]"
If fis_ay.Text = "" Or fis_tutar.Text = "" Then
MsgBox "Dönem veya Tutar boş geçilemez", vbOKOnly
Else
dene = Application.CountA(Sheets(fis_ay).Columns("A")) + 1
'sira = TextBox1.Text


Sheets("fis_ay").Cells(dene, 1) = TextBox1.Text
Sheets("fis_ay").Cells(dene, 2) = TextBox2.Text
Sheets("fis_ay").Cells(dene, 3) = TextBox3.Text
Sheets("fis_ay").Cells(dene, 4) = TextBox5.Text
Sheets("fis_ay").Cells(dene, 5) = TextBox6.Text
'TextBox1.Text = sira + 1

MsgBox "Kayıt işlemi Tamamlandı", vbInformation

End If
End Sub
----
yardimlarinizi acilen bekliyorum,şimdiden herkese tesekkurler

 

[Levent Menteşoğlu]

sheets(fis_ay.value)..... şeklinde yazarak deneyin.

 

[mraltin]

Sn.Leventm cook tesekkur ederim.