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

Katılım
13 Temmuz 2005
Mesajlar
134
Excel Vers. ve Dili
ofis xp, 2003
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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]
 
Katılım
13 Temmuz 2005
Mesajlar
134
Excel Vers. ve Dili
ofis xp, 2003
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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örneği inceleyiniz.
 
Üst