KAÇINCI AY

Katılım
22 Ekim 2004
Mesajlar
178
Form üzerinde TextBox1 de Ay yazdırıyorum(örn.Ocak).TextBox2'de kaçıncı ay olduğunu yazdırmak istiyorum.Bunu aşağıdaki kodlarla yapıyorum ama daha kısa bir kod kullanmak mümkünmü.
Kod:
If ay.Value = "Ocak" Then
Range("K4").Value = 1 
Else
If ay.Value = "Şubat" Then
Range("K4").Value = 2

Else
If ay.Value = "Mart" Then
Range("K4").Value = 3

Else
If ay.Value = "Nisan" Then
Range("K4").Value = 4

If ay.Value = "Mayıs" Then
Range("K4").Value = 5

Else
If ay.Value = "Haziran" Then
Range("K4").Value = 6

Else
If ay.Value = "Temmuz" Then
Range("K4").Value = 7

Else
If ay.Value = "Ağustos" Then
Range("K4").Value = 8

Else
If ay.Value = "Eylül" Then
Range("K4").Value = 9

Else
If ay.Value = "Ekim" Then
Range("K4").Value = 10

Else
If ay.Value = "Kasım" Then
Range("K4").Value = 11

Else
If ay.Value = "Aralık" Then
Range("K4").Value = 12

Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Yardımcı olursanız sevirim.
Teşekkürler.
 
Katılım
22 Ekim 2004
Mesajlar
178
Değerli arkadaşlar,
Foruma soruyu yazdıktan sonra deneyerek yazdığım sorunun yanıtını buldum.
Kod:
ay = Date * 1
ay = Format(ay, "m")
İlgilenen arkadaşlara teşekkür ederim.
 
Üst