Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: kelkitli - 11 Eylül 2011, 20:29:20

Başlık: [Çözüldü] Tarihe göre işlem
Gönderen: kelkitli - 11 Eylül 2011, 20:29:20

Selamlar,
Butonu tıkladığımda eğer tarih 01.01.2011 den önce ise işlem yapsın, sonra ise mesaj yazıp çıksın.

Başlık: Ynt: Tarihe göre işlem
Gönderen: Bülent Öztürk - 11 Eylül 2011, 22:25:10

Aleyküm selam Necmettin Bey.

Kod: [Seç]

Sub ExcelceTarihKontrol()
If FormatDateTime(VBA.Now, vbShortDate) > FormatDateTime("01.01.2011", vbShortDate) Then MsgBox "Tarih geçmiş!", vbCritical, "İşlem yapılamaz!": Exit Sub
'Diğer kodlar...
End Sub

Başlık: Ynt: Tarihe göre işlem
Gönderen: kelkitli - 12 Eylül 2011, 06:22:35

Bülent Bey, cevabınız için teşekkür ederim. Ancak tarih bu günden önce de olsa sonra da olsa işlem yapmıyor.

Başlık: Ynt: Tarihe göre işlem
Gönderen: Bülent Öztürk - 12 Eylül 2011, 17:05:19

Şu şekilde dener misiniz?

Kod: [Seç]

If CDate(FormatDateTime(VBA.Now, vbShortDate)) > CDate(FormatDateTime("01.01.2012", vbShortDate)) Then MsgBox "Tarih geçmiş!", vbCritical, "İşlem yapılamaz!": Exit Sub


Başlık: Ynt: Tarihe göre işlem
Gönderen: kelkitli - 12 Eylül 2011, 21:16:22

Teşekkürler Bülent Bey, işlem tamamdır.

Başlık: Ynt: Tarihe göre işlem
Gönderen: Bülent Öztürk - 13 Eylül 2011, 19:09:29

Rica ederim.
Çalışmalarınızda başarılar.