[Yardım]  KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İleti#1)  erseldemirel2 » 11 Ağu 2019 20:31

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.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 563
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İleti#2)  işsiz123 » 11 Ağu 2019 20:58

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
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 15:45
Meslek: YAPI DENETİM
Yaş: 26
İleti: 345
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

Cevap: Cevap: KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İleti#3)  erseldemirel2 » 11 Ağu 2019 21:38

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
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 563
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: KAPATILIRKEN YEDEK ALMA ÖRNEĞİ

İleti#4)  erseldemirel2 » 11 Ağu 2019 21:46

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?
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 563
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 0 misafir

Bumerang - Yazarkafe