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
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