- Katılım
- 1 Ağustos 2019
- Mesajlar
- 839
- Excel Vers. ve Dili
-
Türkçe excel 2016
İngilizce excel 2016
- Altın Üyelik Bitiş Tarihi
- 19-10-2021
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
trh2 = Format("01.07.2020", "dd.mm.yyyy")
trh3 = Format("07/01/2020", "mm.dd.yyyy")
Sayın Dalgalıkur bilgisayarın bölge dil ayarlarını ingilizce yapınca tarihi görmüyor neden acabaMerhaba.
Tarih formatını aşağıdaki gibi belirtmelisiniz.
Yani hangi rakamın gün, hangi rakamın ay, hangi rakamın yıl olduğunu belirtmelisiniz.
d=günKod:trh2 = Format("01.07.2020", "dd.mm.yyyy") trh3 = Format("07/01/2020", "mm.dd.yyyy")
m=ay
y=yılı ifade ediyor.
Yani belirtilen tarih geldiğinde makro çalışmıyor Dil türkçe olunca sorun yok çalışıyor ancak ingilizce olarak ayarlandığında tarih örnegin ay-gün-yıl olduğunda makro çalışmıyorAnlamadım. Daha açık ifade eder misiniz? Tarihi görmüyor demek ne demek?
Sub deneme()
Dim trh As Date
Dim tarh2 As Date
Dim tarh3 As Date
trh = Date
trh2 = Format("01.07.2020", "dd.mm.yyyy")
trh3 = Format("07/01/2020", "mm.dd.yyyy")
If trh >= trh2 Then
MsgBox "çalıştı Tarih2"
End If
If trh >= trh3 Then
MsgBox "Çalıştı Tarih3"
End If
End Sub
Sayın dalgalı kur bilgisayarın bölgesel dil ayarlarını amerikan İngilizcesi olarak ayarladığımız da vermiş olduğunuz makro çalışmamaktadır. Ancak, bölgesel dil ayarları Türkçe olduğu zaman vermiş olduğunuz makro sorunsuz olarak çalışmaktadır. Bu sorun işletim sisteminin dil ayarı alakalı olabilir mi? Yani anadili İngilizce olan işletim sisteminde bu sorun yaşanır mı ? Bu konu ile ilgili yardımlarınız için şimdiden çok teşekkür ederim.Dili değiştirdikten sonra Excel dosyanızı kapatıp yeniden açın, sonra tekrar deneyin.
Kodları da aşağıdaki gibi değiştirin. Böylelikle hangi tarihin çalıştığını anlamış olursunuz.
C++:Sub deneme() Dim trh As Date Dim tarh2 As Date Dim tarh3 As Date trh = Date trh2 = Format("01.07.2020", "dd.mm.yyyy") trh3 = Format("07/01/2020", "mm.dd.yyyy") If trh >= trh2 Then MsgBox "çalıştı Tarih2" End If If trh >= trh3 Then MsgBox "Çalıştı Tarih3" End If End Sub
Teşekkürler sayın hocam destekleriniz içinHiçbir fikrim yok, deneyip görmek lazım.
trh3 = Format("05/30/2020", "m/d/yyyy")
Teşekkürler sayın netzone şimdi çalıştı makro dediğim her iki formattadaMerhaba @metin_0606,
Tarih Formatını şu şekilde değiştirirseniz kodlar çalışacaktır.trh3 = Format("05/30/2020", "m/d/yyyy")
İyi çalışmalar.
Ekli dosyayı görüntüle 218611