KAÇINCI AY

[alpay1]

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

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.

 

[alpay1]

Değerli arkadaşlar,
Foruma soruyu yazdıktan sonra deneyerek yazdığım sorunun yanıtını buldum.

ay = Date * 1
ay = Format(ay, "m")

İlgilenen arkadaşlara teşekkür ederim.