Tarih Formatı Hakkında

A

acebeci

Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
326
Excel Vers. ve Dili
ofis excel 2010 türkçe
Altın Üyelik Bitiş Tarihi
03-11-2026
Değerli Arkadaşlar aşağıdaki kodlarla her güne yeni bir kasa sayfası açıyorum. Yalnız şöyle bir sorun var A23 Hücresine yazdığı tarihi GÜN/AY/YIL Olarak yazması gerekirken AY/GÜN/YIL Olarak yazıyor. Ayın 13 üncü gününden sonra normale dönüyor. bu sorun her ayın 13 üne kadar devam ediyor. manuel olarak elde düzeltiyorum ama raporlama alırken çok sıkıntı çıkıyor raporlamada her ne kadar elde düzeltsem de RAPORLAR sayfasına Ayın 13 üne kadar olan kısmı yine AY/GÜN/YIL olarak alıyor
yani ayın yarısı AY/GÜN/YIL
Diğer yarısı GÜN/AY/YIL olarak alıyor buda ciddi karışıklıklara sebep oluyor
konu hakkında yardımcı olabilir misiniz?

Sub SAYFA_KOPYALA()
Dim SON_SAYFA_ADI As Date, YENİ_SAYFA_ADI As Variant

Başla:
SON_SAYFA_ADI = CDate(Worksheets(Sheets.Count).Name) + 1
YENİ_SAYFA_ADI = Application.InputBox("Lütfen sayfa adı giriniz.", "YENİ SAYFA EKLEME İŞLEMİ", Format(SON_SAYFA_ADI, "dd-mm-yyyy"))

If YENİ_SAYFA_ADI = False Then Exit Sub

If YENİ_SAYFA_ADI <> "" Then
On Error GoTo Devam
Sheets("" & YENİ_SAYFA_ADI).Select
MsgBox "Eklemek istediğiniz sayfa zaten dosyanızda bulunmaktadır." & vbNewLine & "Lütfen başka sayfa adı giriniz!", vbCritical
GoTo Başla
Devam:
Sheets("ŞABLON").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = Format(YENİ_SAYFA_ADI, "dd-mm-yyyy")
ActiveSheet.Range("A23") = Format(YENİ_SAYFA_ADI, "dd-mm-yyyy")
ActiveSheet.Range("B2") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B24"
ActiveSheet.Range("B3") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B25"
ActiveSheet.Range("B4") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B26"
ActiveSheet.Range("B5") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B27"
ActiveSheet.Range("B6") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B28"
ActiveSheet.Range("B7") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B29"
ActiveSheet.Range("B8") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B30"
ActiveSheet.Range("B9") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B31"
ActiveSheet.Range("B10") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B32"
ActiveSheet.Range("B11") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!B33"
ActiveSheet.Range("B12") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F24"
ActiveSheet.Range("B13") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F25"
ActiveSheet.Range("B14") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F26"
ActiveSheet.Range("B15") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F27"
ActiveSheet.Range("B16") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F28"
ActiveSheet.Range("B17") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F29"
ActiveSheet.Range("B18") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F30"
ActiveSheet.Range("B19") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F31"
ActiveSheet.Range("B20") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F32"
ActiveSheet.Range("B21") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!F33"
ActiveSheet.Range("K2") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K24"
ActiveSheet.Range("K3") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K25"
ActiveSheet.Range("K4") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K26"
ActiveSheet.Range("K5") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K27"
ActiveSheet.Range("K6") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K28"
ActiveSheet.Range("K7") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K29"
ActiveSheet.Range("K8") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K30"
ActiveSheet.Range("K9") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K31"
ActiveSheet.Range("K10") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K32"
ActiveSheet.Range("K11") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!K33"
ActiveSheet.Range("K12") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O24"
ActiveSheet.Range("K13") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O25"
ActiveSheet.Range("K14") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O26"
ActiveSheet.Range("K15") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O27"
ActiveSheet.Range("K16") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O28"
ActiveSheet.Range("K17") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O29"
ActiveSheet.Range("K18") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O30"
ActiveSheet.Range("K19") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O31"
ActiveSheet.Range("K20") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O32"
ActiveSheet.Range("K21") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd-mm-yyyy") & "'!O33"
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
Else
MsgBox "Lütfen sayfa adı giriniz!", vbExclamation
End If
End Sub
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
A23 hücresi için aşağıdaki yapıyı deneyiniz.

C++: 
ActiveSheet.Range("A23") = CDate(YENİ_SAYFA_ADI)
ActiveSheet.Range("A23").NumberFormat = "dd-mm-yyyy"
 
A

acebeci

Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
326
Excel Vers. ve Dili
ofis excel 2010 türkçe
Altın Üyelik Bitiş Tarihi
03-11-2026
Korhan Ayhan' Alıntı:
A23 hücresi için aşağıdaki yapıyı deneyiniz.

C++: 
ActiveSheet.Range("A23") = CDate(YENİ_SAYFA_ADI)
ActiveSheet.Range("A23").NumberFormat = "dd-mm-yyyy"
Genişletmek için tıkla ...
Korhan Bey öncelikle gerçekten ilginiz için teşekkür ederim. A23 teki tarih formatı düzeldi. Sistem şöyle çalışıyordu yeni gün aç dediğimde A23 e tarihi yazıp sayfa adına da o tarihi veriyordu şimdi A23 Hücresindeki format düzeldi fakat sayfa Adı veremiyor sayfa adı ŞABLON() Olarak veriyor
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Eğer dosyanızda sadece ŞABLON isimli sayfa varken kodu deniyorsanız hata vermesi normaldir.

Ben ŞABLON sayfasının sağında bir güne ait sayfa varken denediğimde sorunsuz çalıştı.
 
A

acebeci

Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
326
Excel Vers. ve Dili
ofis excel 2010 türkçe
Altın Üyelik Bitiş Tarihi
03-11-2026
Korhan Bey ben bir şeyleri yine yanlış yapmışımdır. Dosyayı ekledim müsait bir zamanınız olurda bakabilirseniz çok sevinirim
 

Ekli dosyalar

Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Paylaştığınız dosyayı denedim. Bende sorun vermeden çalışıyor.
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Dediğim gibi bende hata vermiyor.

Size tavsiyem tarih ayıracı olarak tire yerine nokta kullanmanız olacaktır. Deneyip sonucu bildirirsiniz.
 
A

acebeci

Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
326
Excel Vers. ve Dili
ofis excel 2010 türkçe
Altın Üyelik Bitiş Tarihi
03-11-2026
Korhan Bey sizi bu saatte yordum kusura bakmayın benim excelde sorun herhalde ama çözemedim bir türlü ayracı nokta yaptım bu sefer de aşağıdaki gibi hata verdi. Excel in sürümünden olabilir mi acaba bilemedim
 

Ekli dosyalar

Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alttaki sekme isimlerinde hala tire sembolleri var. Tümünü nokta yapıp deneyiniz.
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Siz paylaştığınız dosyada yeni eklenen sayfaya isim veren satırı da silmişsiniz. Onu silmemeniz gerekirdi.

Aşağıdaki gibi ben hatasız şekilde kodu çalıştırdım.

C++: 
Option Explicit
 
Sub SAYFA_KOPYALA()
    Dim SON_SAYFA_ADI As Date, YENİ_SAYFA_ADI As Variant
    
Başla:
    SON_SAYFA_ADI = CDate(Worksheets(Sheets.Count).Name) + 1
    YENİ_SAYFA_ADI = Application.InputBox("Lütfen sayfa adı giriniz.", "YENİ SAYFA EKLEME İŞLEMİ", Format(SON_SAYFA_ADI, "dd.mm.yyyy"))
        
    If YENİ_SAYFA_ADI = False Then Exit Sub
    
    If YENİ_SAYFA_ADI <> "" Then
        On Error GoTo Devam
        Sheets("" & YENİ_SAYFA_ADI).Select
        MsgBox "Eklemek istediğiniz sayfa zaten dosyanızda bulunmaktadır." & vbNewLine & "Lütfen başka sayfa adı giriniz!", vbCritical
        GoTo Başla
Devam:
        Sheets("ŞABLON").Copy After:=Worksheets(Sheets.Count)
        ActiveSheet.Name = Format(CDate(YENİ_SAYFA_ADI), "dd.mm.yyyy")
        ActiveSheet.Range("A23") = CDate(YENİ_SAYFA_ADI)
        ActiveSheet.Range("A23").NumberFormat = "dd.mm.yyyy"
        ActiveSheet.Range("B2") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B24"
        ActiveSheet.Range("B3") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B25"
        ActiveSheet.Range("B4") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B26"
        ActiveSheet.Range("B5") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B27"
        ActiveSheet.Range("B6") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B28"
        ActiveSheet.Range("B7") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B29"
        ActiveSheet.Range("B8") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B30"
        ActiveSheet.Range("B9") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B31"
        ActiveSheet.Range("B10") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B32"
        ActiveSheet.Range("B11") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!B33"
        ActiveSheet.Range("B12") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F24"
        ActiveSheet.Range("B13") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F25"
        ActiveSheet.Range("B14") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F26"
        ActiveSheet.Range("B15") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F27"
        ActiveSheet.Range("B16") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F28"
        ActiveSheet.Range("B17") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F29"
        ActiveSheet.Range("B18") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F30"
        ActiveSheet.Range("B19") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F31"
        ActiveSheet.Range("B20") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F32"
        ActiveSheet.Range("B21") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!F33"
        ActiveSheet.Range("K2") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K24"
        ActiveSheet.Range("K3") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K25"
        ActiveSheet.Range("K4") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K26"
        ActiveSheet.Range("K5") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K27"
        ActiveSheet.Range("K6") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K28"
        ActiveSheet.Range("K7") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K29"
        ActiveSheet.Range("K8") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K30"
        ActiveSheet.Range("K9") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K31"
        ActiveSheet.Range("K10") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K32"
        ActiveSheet.Range("K11") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!K33"
        ActiveSheet.Range("K12") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O24"
        ActiveSheet.Range("K13") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O25"
        ActiveSheet.Range("K14") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O26"
        ActiveSheet.Range("K15") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O27"
        ActiveSheet.Range("K16") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O28"
        ActiveSheet.Range("K17") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O29"
        ActiveSheet.Range("K18") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O30"
        ActiveSheet.Range("K19") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O31"
        ActiveSheet.Range("K20") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O32"
        ActiveSheet.Range("K21") = "='" & Format(CDate(YENİ_SAYFA_ADI) - 1, "dd.mm.yyyy") & "'!O33"
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
        Else
        MsgBox "Lütfen sayfa adı giriniz!", vbExclamation
    End If
End Sub
 
A

acebeci

Altın Üye
Katılım
25 Ağustos 2007
Mesajlar
326
Excel Vers. ve Dili
ofis excel 2010 türkçe
Altın Üyelik Bitiş Tarihi
03-11-2026
Size ne kadar teşekkür etsem dua etsem AZ . Sorun çözüldü. İş bilmezliğim yüzünden gece gece yordum sizi hakkınızı helal edin ama inanın çok acayip işime yarayacak. Çok ama çok teşekkür ederim
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,307
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Hakkım varsa helal olsun..
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst