1 sayfadan 1. sayfa

KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İletiTarih: 11 Ağu 2019 20:31
erseldemirel2
ARKADAŞLAR; EXCEL KAPATILIRKEN BULUNDUĞU VERİ YOLUNDAKİ “YEDEK” KLASÖRÜNE YEDEK ALMAK İSTİYORUM. AMA BU YEDEK DOSYALARININ UZANTISI TXT DOSYASI OLACAK.

ÖZETLE; EXCEL KAPATILIRKEN DENEME SAYFASINDAKİ A1-Z100 ARASINDAKİ HÜCRELERDEKİ DEĞERLERİ YEDEK İSMİ BAŞTA OLMAK ÜZERE VE TARİH BIRAKARAK TXT DOSYASI (ÖRNEK: YEDEK 11.08.2019.TXT) OLARAK YEDEK ALMA ÖRNEĞİ VARMIDIR? TARİHTEKİ AMACIM VAR OLAN YEDEK DOSYASINI ÜZERİNE YAZMASINA ENGEL OLMAK. HER KAPANIŞTA YENİ BİR TXT DOSYASI OLUŞTURMASI GEREKİYOR. ESKİ TARİHLİ BİLGİLERE DE BÖYLECE ULAŞABİLECEĞİM.

Cevap: KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İletiTarih: 11 Ağu 2019 20:58
işsiz123
Merhabalar
Lütfen kurallar kısmında 20 maddeye dikkat ediniz.
http://www.excelvba.net/kurallar.php

Bayram nedeniyle sorunuzu cevapladım. Bundan sonraki sorularda kurallara dikkat etmenizi rica ediyorum.
İyi Bayramlar.

Yedekleme alacağınız kısmı "data" adında ad tanımlayınız.
Kod: Tümünü seç
Sub saveText2()
    Dim filename As String, lineText As String
    Dim myrng As Range, i, j
   
    filename = ThisWorkbook.Path & "\YEDEK-" & Format(Now, "dd.mm.yy") & ".txt"
   
    Open filename For Output As #1
   
    Set myrng = Range("data")
   
    For i = 1 To myrng.Rows.Count
        For j = 1 To myrng.Columns.Count
            lineText = IIf(j = 1, "", lineText & ",") & myrng.Cells(i, j)
        Next j
        Print #1, lineText
    Next i
   
    Close #1
End Sub

Cevap: Cevap: KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İletiTarih: 11 Ağu 2019 21:38
erseldemirel2
işsiz123 yazdı:Merhabalar
Lütfen kurallar kısmında 20 maddeye dikkat ediniz.
http://www.excelvba.net/kurallar.php

Bayram nedeniyle sorunuzu cevapladım. Bundan sonraki sorularda kurallara dikkat etmenizi rica ediyorum.
İyi Bayramlar.

Yedekleme alacağınız kısmı "data" adında ad tanımlayınız.
Kod: Tümünü seç
Sub saveText2()
    Dim filename As String, lineText As String
    Dim myrng As Range, i, j
   
    filename = ThisWorkbook.Path & "\YEDEK-" & Format(Now, "dd.mm.yy") & ".txt"
   
    Open filename For Output As #1
   
    Set myrng = Range("data")
   
    For i = 1 To myrng.Rows.Count
        For j = 1 To myrng.Columns.Count
            lineText = IIf(j = 1, "", lineText & ",") & myrng.Cells(i, j)
        Next j
        Print #1, lineText
    Next i
   
    Close #1
End Sub



Hızlı cevap için teşekkürler. Hemen uyguladım bir iki düzeltmede çalıştı. İyi Bayramlar

Cevap: Cevap: KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İletiTarih: 11 Ağu 2019 21:46
erseldemirel2
işsiz123 yazdı:Merhabalar
Lütfen kurallar kısmında 20 maddeye dikkat ediniz.
http://www.excelvba.net/kurallar.php

Bayram nedeniyle sorunuzu cevapladım. Bundan sonraki sorularda kurallara dikkat etmenizi rica ediyorum.
İyi Bayramlar.

Yedekleme alacağınız kısmı "data" adında ad tanımlayınız.
Kod: Tümünü seç
Sub saveText2()
    Dim filename As String, lineText As String
    Dim myrng As Range, i, j
   
    filename = ThisWorkbook.Path & "\YEDEK-" & Format(Now, "dd.mm.yy") & ".txt"
   
    Open filename For Output As #1
   
    Set myrng = Range("data")
   
    For i = 1 To myrng.Rows.Count
        For j = 1 To myrng.Columns.Count
            lineText = IIf(j = 1, "", lineText & ",") & myrng.Cells(i, j)
        Next j
        Print #1, lineText
    Next i
   
    Close #1
End Sub


Son anda ihtiyacım olacağı aklıma geldi cevaplarsanız çok sevinim.Bu işlemin aynen terside mümkünmüdür? Kaydedilen txt dosyası geri herhangi bir excel sayfasına nasıl çağrılır? Sayfa reklendirme biçimlendirme önemli değil. Yeterki ilgili sırada ve sütunda hücreleri doldursun?