Aya göre değişk kriterlerin kayıdı

[ccumhur]

Arkadaşlar ekli çalışmada personelin aldığı izni aya göre kayıt yapmam gerekiyor.Uzun şekilde yapabiliyorum ama kısa bir yolu varmı? Şimdiden teşekürler.

 

[veyselemre]

[vb:1:123a8891a5]Dim sut
Private Sub CommandButton1_Click()
If TextBox2.Value <= 0 Or Not IsNumeric(TextBox2.Value) Or ComboBox1.Value = "" Then Exit Sub
sat = ComboBox1.ListIndex + 3
Cells(sat, sut) = TextBox2.Value
End Sub
Private Sub UserForm_Activate()
TextBox1.Value = Format(Date, "mmmm")
sut = Format(Date, "m") + 1
ComboBox1.AddItem "HASTALIK"
ComboBox1.AddItem "MAZERET"
ComboBox1.AddItem "YILLIK"
End Sub[/vb:1:123a8891a5]

 

[ccumhur]

Hocam bu kodlar büyük ölçüde işimi gördü yanlız Ay kontrolunü elle girecek olursak mesala nisan değilde mart ayına ait bir kayıt gircez ozaman neyapabiliriz?
tşk

 

[kaleci]

Sayin ccumhur,

Ben birseyler hazirlamistim asagidaki Linke bakarsan isine yarayabilir. Hersey otomatik Almanca ama Türkce'ye cevirirsin.

http://www.excel.web.tr/viewtopic.php?t=15754

kaleci

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği inceleyiniz.