Excel vba Date formatını değiştirme

[Seli]

Merhaba arkadaşlar tarih formatı bu şekilde (20210301 )olan bir dosyayı açmak istiyorum. Ama hergün tarihi değiştiği için alamadım. Benim yazdığım kod normal tarih formatı. Nasıl değiştirebilirim? Yardımcı olursanız çok sevinirim. Şimdiden teşekkürler..


dosya = "0" & myDate & " " & "KAYNAK_MASTER_PLAN_20210301_1109"
Workbooks.Open("C:\Users\selcanusta\Desktop\iş yükü raporları\" & dosya & ".xlsx").Sheets("K. D.IML.IS YUKU RAPORU(YENİ)").Select

 

[Korhan Ayhan]

Merhaba,

myDate hangi değeri alıyor?

 

[Seli]

mydate = Date şeklinde yazmıştım. Formatı örneğin 1.03.2021 şeklinde..

 

[Korhan Ayhan]

Deneyiniz.

mydate = Format(Date, "yyyymmdd")

 

[Seli]

Oldu hocam teşekkürler, Hocam peki sadece Ay ismini alması için nasıl bir kod gerekir? Şimdiden teşekkürler..

 

[Korhan Ayhan]

Deneyiniz.

mydate = Format(Date, "mmmm")

 

[Seli]

Çok teşekkürler hocam..

 

[Seli]

Hocam büyük harfli olması için formata ne eklemem gerekir? Örneğin ŞUBAT yazması için..

 

[Korhan Ayhan]

Deneyiniz.

mydate = Ucase(Replace(Replace(Format(Date, "mmmm"), "ı", "I"), "i", "İ"))

 

[Seli]

Hocam benim kodum bu şekildeydi,

sayfaismi =Format(DateAdd("m", -1, Date), "mmmm")

Buna şu şekilde ekledim çalışmadı..

sayfaismi = UCase(Replace(Replace(Format(DateAdd("m", -1, Date), "mmmm"), "ı", "I"), "i", "İ"))

 

[Korhan Ayhan]

Ben verdiğiniz kodu şimdi denedim. Sorun çıkmadan çalıştı.

 

[Seli]

Evet hocam bende de çalıştı, şubat isminde sayfa varmış o yüzden çalışmamış. Çok teşekkür ederim hocam iyi çalışmalar..

 

[Seli]

Hocam bir önceki ayın ilk günü ve son gününü bulmak istiyorum, böyle bir şey mümkün mü?

 

[Korhan Ayhan]

Aşağıdaki gibi olabilir.

Option Explicit

Sub Test()
    Dim Ilk_Tarih As Date, Son_Tarih As Date
    
    Ilk_Tarih = DateSerial(Year(Date), Month(Date) - 1, 1)
    Son_Tarih = DateSerial(Year(Date), Month(Date), 0)
End Sub