• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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
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
 
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"
 
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
 
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ı.
 
Korhan Bey ben bir şeyleri yine yanlış yapmışımdır. Dosyayı ekledim müsait bir zamanınız olurda bakabilirseniz çok sevinirim
 

Ekli dosyalar

Paylaştığınız dosyayı denedim. Bende sorun vermeden çalışıyor.
 
Dediğim gibi bende hata vermiyor.

Size tavsiyem tarih ayıracı olarak tire yerine nokta kullanmanız olacaktır. Deneyip sonucu bildirirsiniz.
 
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

  • HATA.JPG
    HATA.JPG
    242.6 KB · Görüntüleme: 3
Alttaki sekme isimlerinde hala tire sembolleri var. Tümünü nokta yapıp deneyiniz.
 
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
 
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
 
Hakkım varsa helal olsun..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst