Excel Forum


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-04-2006, 13:59   #1
alpay1
 
Giriş: 22/10/2004
Mesaj: 178
Varsayılan KAÇINCI AY

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
__________________
Excel2003/TR
alpay1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-04-2006, 15:05   #2
alpay1
 
Giriş: 22/10/2004
Mesaj: 178
Varsayılan

Değerli arkadaşlar,
Foruma soruyu yazdıktan sonra deneyerek yazdığım sorunun yanıtını buldum.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ay = Date * 1
ay = Format(ay, "m")
İlgilenen arkadaşlara teşekkür ederim.
__________________
Excel2003/TR
alpay1 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 15:23


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi - TYPO3 Türkiye - 2015 Fuar - Çorlu Mimarlık - Çorlu Hotel - Rotary Web Sitesi
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden