Bugün tarihiyle txt ye yazmak

[diskriminant]

30 sayfalı excel kitabında verileri "sayfa1" de toplayıp BİRLEŞTİR işleviyle R sütununda birleştirip R13:R478 hücrelerine yazdırıyorum.Daha sonra bu hücreleri seçip 21 mart için 21.mart.2013 perşembe adını verdiğim txt dosyasına kopyala-yapıştır ile yapıştırıyorum.
Bu işi makro kaydet yöntemiyle çözemedim.Bu işleme ait makroyu yazarak yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.
Yaşım 59.Emekli matematik öğretmeniyim.Excele merak sardım.Öğrenme isteğim sadece excel makrolarının çalışırken ekranda verdiği görüntüler..Sanki sihirbazlık gibi..

 

[Civan Jack]

Örnek olarak kullandığım bir kod var.
Sizin dosyanızı görmediğim için size net bir çözüm sunamıyorum ama biraz bilginiz var ise şu kodları kendinize göre düzenleyebilirsiniz.

Sub Al_Bakalim()
    Dim fso As Object, ad As Object
    Dim ayir As Variant
    Set fso = CreateObject("Scripting.Filesystemobject")
    Columns(1).ClearContents
    For Each dosya In fso.GetFolder("S:\Havuz\" & Range("B1")).Files
        If VBA.Right(dosya, 3) = "ARD" Then
            Open ThisWorkbook.Path & "\HAKAN.txt" For Output As #1
                Print #1, Range("b1").Value & " " & VBA.Date & " AYDINGER" & vbCrLf
                Range("a65536").End(3)(2, 1) = dosya
                For i = 2 To Range("A65536").End(3).Row
                    ayir = Split(Cells(i, 1), "\")
                Print #1, Range("b1").Value & " " & ayir(3)
                Next i
            Close #1
        End If
    Next dosya
End Sub

 

[diskriminant]

Sizde excel sayfası S sürücüsünde "havuz" dizininde ve b1 sütununu seçip
(kitap adı ve çalışma sayfasını göremedim)
hangi sürücüde olduğu yazılmamış ve HAKAN isimli txt dosyasına yazıyor.Benim anladığım bunlar.Ben C de Veri adlı dizine txt dosyasını yazdırmak istiyorum.Excel dosyası "Kitap1",çalışma sayfası "Sayfa1" Alacağım veriler R sütununda ve "r13:r478" aralığında.
Kodlarınızda yaptığım değişikliğe rağmen sonuç alamadım.
İlginize teşekkür ederim.

 

[Civan Jack]

Dosyanızı gönderin bakalım.

Sub Al_Bakalim_1()
    Dim i As Integer
    Open "C:\Veri\" & VBA.Date & ".txt" For Output As #1
        For i = 3 To Range("R65536").End(3).Row
            Print #1, Cells(i, "R")
        Next i
    Close #1
End Sub

 

[diskriminant]

Sayın Civan Jack,
Evet bu son kod istediğim sonucu verdi..
Çok güzel çalıştı.
Size çok teşekkür ederim.Çalışmalarınızda başarıların devamını dilerim.

 

[Civan Jack]

Önemli değil.