tarih formatının kendiliğinden değişmesi

[necati]

Merhaba !
A kolonunda aşağıdaki gibi tarihler var. Tarih formatı gün/ay/yıl şeklinde.

01.07.2007
02.07.2007

CTRL+H ile nokta karakterini slash ile değiştir yapıyorum. Şu şekle geliyor.

01/07/2007
02/07/2007

Bu işlemi makro kaydet ile yaptım. Sonra kaydettiğim makroyu çalıştırdığımda gün ile ayın yerleri kendiliğinden değişiyor. Aşağıdaki gibi oluyor.

07/01/2007
07/02/2007

Manuel yaparken aynı kaldığı halde makroda değişmesini nasıl önleyebiliriz? Yani tarih formatının dd/mm/yyyy şeklinde kalmasını istiyorum. Kullanılan kod aşağıda.

Sub Makro1()
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End Sub

 

[Merhum İdris SERDAR]

Macroda:

Selection.NumberFormat = "dd\/mm\/yyyy"


Neden macro? Biçim/Hücreler/İsteğe uyarlanmış olarak gg/aa/yyyy şeklinde yapsanız yeterli değil mi?

..

 

[Necdet]

Kodu aşağıdaki gibi dener misiniz?

Sub Makro1()
Selection.NumberFormat = "dd\/mm\/yyyy"
End Sub

 

[necati]

Tarih bilgilerini başka bir kaynaktan alıyorum. Bana gelişi noktalı olarak. Hücre biçimlendirle dediğiniz gibi yaptığım halde değişiklik olmuyor. Mecburen noktayı slash ile değiştir demem gerekiyor.

 

[Necdet]

Gelen verinin tipini ve özelliğini bilmediğimiz için hem Sayın Yurttaş, hem ben aynı çözümü önermişiz.

Verinin aslından küçük bir örnek dosya ekleseydiniz keşke, farklı çözümler yada yöntemler ortaya çıkabilirdi.

Saygılar

 

[necati]

örnek veri ektedir.

 

[Necdet]

Sayın Necati Bey,

A sütunu tarih görünümlü metin biçimli.

Boş bir hücreye 1 yazın (Sıfır da olabilir) ve kopyala deyin.
sonra A1:A23 aralığını seçin ve
özel yapıştır dan çarp (0 yazdıysanız topla) deyin
Seçtiğiniz bölüm sayısal bir değer alır, onu da istediğiniz gibi biçimlendirebilirsiniz.

 

[necati]

Bende hep gün ile ayın yeri değişiyor. Sizde gün ile ayın yeri değişmiyor mu?

 

[Necdet]

Değişmiyor, bunun nedeni sanırım işletim sisteminin bölge ve dil seçenekleri Türkçe olmayabilir, onu değiştirin.

 

[Merhum İdris SERDAR]

Aşağıdaki kodları deneyin.

Sub Makro1()
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Columns("A:A").Select
Selection.NumberFormat = "dd\/mm\/yyyy"
Range("A1").Select
End Sub

 

[necati]

Nokta karakterini slash ile değiştirmeye lüzum yokmuş. Metni sutunlara dönüştür menüsündeki sütun veri biçimi = GAY seçmek problemin çözümünü sağladı. Emeği geçen arkadaşlara teşekkür ederim.

Sub Makro1()
    Selection.TextToColumns , DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
End Sub

 

[konyali_ozkaya]

arkadaşlar bende tarihi necdet_tenecsertener arkadaşımın dediği gibi yaptım oldu sizde olmadımı necdet_tesertener arkadaşımın dediği gibi yapın sonra çıkan sıfırları tarihe çevirin ozaman oluyo sağol necdet arkadaşım

 

[altanson]

makro kullanmadan şu formülle yaptım ben ama biraz uzun oldu sanırım dahada kısaltılabilir.

=YERİNEKOY(PARÇAAL(A1;1;5);".";"/")&YERİNEKOY(SAĞDAN(A1;5);".";"/")

ayrıca yerine koy formülünü kullanırken birden fazla karakteri nasıl değiştirebiliriz? (tek formülde)