Belirtilen tarihte çalışan makro

[metin_0606]

Arkadaşlar paylaştığım çalışmadaki makroyu belirtilen tarihte çalıştırmak istiyorum. Tarih formatı hem Türkçe hemde İngilizce olacak şekilde nasıl ayarlayabiliriz. Saygılar

 

[Muzaffer Ali]

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

trh2 = Format("01.07.2020", "dd.mm.yyyy")
trh3 = Format("07/01/2020", "mm.dd.yyyy")

d=gün
m=ay
y=yılı ifade ediyor.

 

[metin_0606]

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

trh2 = Format("01.07.2020", "dd.mm.yyyy")
trh3 = Format("07/01/2020", "mm.dd.yyyy")

d=gün
m=ay
y=yılı ifade ediyor.

Sayın Dalgalıkur bilgisayarın bölge dil ayarlarını ingilizce yapınca tarihi görmüyor neden acaba

 

[Muzaffer Ali]

Anlamadım. Daha açık ifade eder misiniz? Tarihi görmüyor demek ne demek?

 

[metin_0606]

Anlamadım. Daha açık ifade eder misiniz? Tarihi görmüyor demek ne demek?

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ıyor

 

[Muzaffer Ali]

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.

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

 

[metin_0606]

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.

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.

 

[Muzaffer Ali]

Hiçbir fikrim yok, deneyip görmek lazım.

 

[metin_0606]

Hiçbir fikrim yok, deneyip görmek lazım.

Teşekkürler sayın hocam destekleriniz için

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[netzone]

Merhaba @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.

 

[metin_0606]

Merhaba @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

Teşekkürler sayın netzone şimdi çalıştı makro dediğim her iki formattada