Makro Kodlu İşlemlerde Tarih Sorunu

[cavanoos]

Merhaba arkadaşlar;

Ekli tablomda sayfa1 sekmesinde tarih sütunu bulunmaktadır.Formatı 02.01.2011 dir ve ben bunu 02/01/2011 yapmam gerekiyor.Manuel yapınca sorun yok.Ama yaptığım işlemi makro kodu ile yapınca 01/02/2011 olarak sonuç veriyor.

Arkadaşlar yardım edin lütfen,kafayı yiyecem...

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Degistir()
 
    Dim son As Long
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
 
    Range("A1:A" & son).Copy Sheets("Sayfa2").Range("A1")
    
    Sheets("Sayfa2").Select
    
    For i = 1 To son
        Cells(i, "A") = CDate(Cells(i, "A"))
    Next i
    
    [COLOR=red]Columns("A:A").NumberFormat = "dd\/mm\/yyyy"
[/COLOR]    
    Application.ScreenUpdating = False
 
End Sub

.

 

[cavanoos]

Ömer Bey;

Kodu denedim ama değişen bir şey olmadı. . karakteri / olmadı.

 

[cavanoos]

Arkadaşlar;

Yardıma çok ihtiyacım var.Kullandığım makro kodu alttadır.Ama bu şekilde işlem yapınca 02.01.2011 tarihi 01.02.2011 çıkıyor.Yanlış oluyor.

Bir bakabilir misiniz ?

Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa2").Select
Columns("A:A").Select
Range("A282").Activate
ActiveSheet.Paste
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[Ömer]

#2 numaralı mesajı güncelledim. Tekrar denermisiniz...

 

[cavanoos]

Ömer Bey;

Verdiğiniz kodları denedim ama olmadı.

 

[Ömer]

Ömer Bey;

Verdiğiniz kodları denedim ama olmadı.

Sayın cavanoos,

Olmadı ama neden olmadı ?. Olmadı deyip kestirirseniz sorunun ne olduğunu nerden bilebiliriz.

Yüz yüze olmadığımızı düşünüp mesajlarınızı ona göre açıklayıcı yaparsanız memnum olurum.

Eki inceleyiniz. Olmayan nedir?

.

 

[cavanoos]

Ömer Bey;

Bendeki ekli dosyayı size göndereyim.Sizin gönderdiğiniz ekte oluyor.Bende olmuyor.

Bir bakabilir misiniz ? Sorun nerdedir ?

 

[Mahir64]

Ömer Bey;

Bendeki ekli dosyayı size göndereyim.Sizin gönderdiğiniz ekte oluyor.Bende olmuyor.

Bir bakabilir misiniz ? Sorun nerdedir ?

Merhaba

Sayfa1 A sütunu biçimlendirmenizi kontrol ediniz.

Tarih olarak biçimlendirilmiş fakat girişler metin olarak yapılmış.
Hücre üzerinde çift tıklayarak deneyini.
Çift tıklayın ve alt satırı seçin tarih biçimi alacaktır.

 

[Ömer]

İlave kodlar kullandığınız için bu şekilde olmuş. #2 nolu mesajda ilaveyi kırmızı ile işaretledim. Kodları ilaveye göre yeniden deneyiniz.

.

 

[cavanoos]

Ömer bey;

Sorunum çözüldü.Elinize sağlık...