tarihi metin olarak aktarma

[Erhan Köseoğlu]

Excel e yazdığım tarih olarak biçimlendirince aktardığımda farklı bir biçimde yazılıyor.
En baştan metin olarak biçimlendirip aktardığımda bu sorun olmuyor ancak bu seferde tarih düzenlemeyi yapamıyorum. (Tarihleri hücreyi çekip aşağı doğru sürükleyererek tarihi ilerletiyorum. )

 

[Vedat Özer]

Selamlar,
Tam Anlamadım Ama

En baştan metin olarak biçimlendirip aktardığımda bu sorun olmuyor ancak bu seferde tarih düzenlemeyi yapamıyorum. (Tarihleri hücreyi çekip aşağı doğru sürükleyererek tarihi ilerletiyorum. )

bu forümülü devamsızlık girşinde kitap 1 sekmesinde d21 girin

=METNEÇEVİR(C21;"gg.aa.yy")

 

[Necdet]

Merhaba,

Kodda :

Print #1, Cells(a, "A") & "," & Cells(a, "B") & "," & Format(Cells(a, "C"), "dd.mm.yyyy")

 

[Erhan Köseoğlu]

İlginize çok teşekkür ediyorum öncelikle.

Sanırım yanlış anlattım tekrar anlatmak istiyorum,
tarih formatı 08.05.2010 şeklinde gözükürken, aktar butonu ile kitap.csv ye aktardığımda "40217" şeklinde aktarıyor. Tarih formatının değişmemesi gerekiyor.
Dosyalar ekte.

 

[Vedat Özer]

Selamlar,

Sizin Dosyanızda F2 Hücresine Vereceğim Formülü Yazın

=EĞER(C1=0;"";BİRLEŞTİR(A1;",";B1;",";METNEÇEVİR(C1;" gg.aa.yy")))

Sizin Yaptıgınız Formül İse

=BİRLEŞTİR(A14;",";B14;",";C14;",";D14;",";E14)

Bölye Yapmanız Tarihi Sayı Olarak Alır..


Bunun Makrosunu Sorarsanız Ben Makro Bilmiyorum...

 

[Erhan Köseoğlu]

ilginiz için tekrar teşekkür ediyorum, verdiğiniz formülü kullandım ama yine tarihi aynı şekilde 40217 gibi aktarıyor.

 

[Korhan Ayhan]

Selamlar,

Dosyanızdaki C sütununu tarih olarak biçimlendirdikten sonra tüm hücrelere F2+ENTER yaparak hücrelerin tarih olmasını sağladım. Daha sonra Necdet beyin önerdiği kodu denediğimde istediğiniz formatta csv dosyasına aktarım işlemi gerçekleşti. Kırmızı bölümü kendinize göre değiştirmeyi unutmayın.

Sub Csv_Aktar()
    Open "[COLOR=Red]C:\Users\Admin\Desktop\Kitap.csv[/COLOR]" For Output As #1
    For a = 1 To Range("n18")
        Print #1, Cells(a, "A") & "," & Cells(a, "B") & "," & Format(Cells(a, "C"), "dd.mm.yyyy")
    Next a
    Close
End Sub

 

[Erhan Köseoğlu]

İstediğim Şekilde oldu, bana tarih ayracının "/" şeklinde olması gerekiyordu onu da kitap.csv sayfasında Ctrl+H ile yaparım diye düşünmüştüm. Onuda hallettim. Windows bölge ve dil ayarlarında ve formüllerde tarih ayırma işaretini "." yerine "/" yaptım ve tam istediğim gibi oldu.

Teşşekkür ediyorum. Ellerinize sağlık.