Farklı Kaydet/Metin (Sekmeyle Ayrılmış) Özelliğini kullanarak TXT uzantılı dosya kayd

[yorum.halil]

Arkadaşlar ekte bulunan excel sayfasına nasıl bir vba ile yazmalıyız ki burada bulunan verileri istenen koşullarak göre Farklı Kaydet / Metin(Sekmeyle Ayrılmış) özelliğini kullanarak TXT uzantılı olarak kayıt yapsın.

Ayrıntılı açıklamalar örnek dosyada mevcuttur. İlginiz İçin Şimdiden Teşekkür ederim.

 

[Zeki Gürsoy]

Veri satırı 4. satırdan başladığı için "Farklı Kaydet" seçeneği yerine dosyalama metodunu kullanmak gerekir.

Sub Yazdir()

If Dir([b2] & "\" & [b1] & ".txt") <> "" Then
    MsgBox "Bu dosya mevcuttur."
    Exit Sub
End If
 
Open [b2] & "\" & [b1] & ".txt" For Output As #1

    For i = 4 To [a65000].End(3).Row
        Print #1, Cells(i, 1), Cells(i, 2), Cells(i, 3)
    Next i

Close #1
End Sub

 

[yorum.halil]

Üstadım maalesef olmadı. Aslında tam dediğim gibi kaydediyor. Fakat txt dosyasını veri olarak transfer edeceğim program sadece Farklı Kaydet/Metin (Sekmeyle Ayrılmış) Özelliğini kullanınca dosyayı kabul ediyor.

Sizden ricam yeni eklediğim dosyaya göre tekrar bakarsanız sevinirim. Yeni dosyada sadece dosya yolu ve verilerin olduğu sayfaları ayırdım. Burada VERI sayfası farklı kaydet ile txt olarak kaydedilmesini sağlarsanız sanırım olacak. Tekrar tşk. ederim.

 

[exam77]

Farklı Kaydet/Metin(sekmeyle ayrılmış) özelliğini kullanarak txt uzantılı dosya kaydı

Üstadım maalesef olmadı. Aslında tam dediğim gibi kaydediyor. Fakat txt dosyasını veri olarak transfer edeceğim program sadece Farklı Kaydet/Metin (Sekmeyle Ayrılmış) Özelliğini kullanınca dosyayı kabul ediyor.

Sizden ricam yeni eklediğim dosyaya göre tekrar bakarsanız sevinirim. Yeni dosyada sadece dosya yolu ve verilerin olduğu sayfaları ayırdım. Burada VERI sayfası farklı kaydet ile txt olarak kaydedilmesini sağlarsanız sanırım olacak. Tekrar tşk. ederim.

Sekmeli txt formatında farklı kaydetmek için aşağıdaki macroyu kullanabilirsin.

Sub SEKMELI_KAYDET()
dosya = Range("b1") & "\" & Range("b2") & ".txt"
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:=xlText, CreateBackup:=False
End Sub

 

[yorum.halil]

Arkadaşım bu makro ile data yolu isimli sayfayı kaydediyor... Data yolu isimli sayfadaki dosya ismini kullanarak ornek isimli dosyadaki verileri kaydedecek. Mümkünse örnek dosya ile yaparsan sevinirim. Tekrar tşk.

 

[exam77]

Arkadaşım bu makro ile data yolu isimli sayfayı kaydediyor... Data yolu isimli sayfadaki dosya ismini kullanarak ornek isimli dosyadaki verileri kaydedecek. Mümkünse örnek dosya ile yaparsan sevinirim. Tekrar tşk.

Sayın yorum.halil örnek dosya eminim işini görecektir.
Ornek sayfasını istediğiniz gibi kaydettikten sonra kendini kapatacaktır.
Eğer kendini kapatmasını istemiyorsan macroda geçen;

ActiveWorkBook.Close

satırını silebilirsin.

İyi günler, kolay gelsin.

 

[yorum.halil]

Kardeş maalesef yine olmadı... Birincisi toplamları doru almadı normalde 10.244,70 çıkması gerekirken sizin makro ile 1.024.470,00 olarak alıyor. yani nokta ve virgül ile ilgili bir problem var sanırım. İkinciside makro verileri aldığı "Örnek" isimli sayfanın isminide değiştirmek istiyor...Umarım anlatabilmişimdir. Tekrar tşk ederim.

 

[exam77]

Ben tekrar kontrol ettim toplamı da doğru kaydediyor. Dediğin gibi nokta virgül ilişkisinde sorun var sanırım. Bölgesel ayarlardan onu değiştirirsen sorun ortadan kalkar. Ayrıca örnek macro isimli sayfanın ismini değiştirmek istemiyor. Orda çalışma sayfasını kaydettikten sonra kapatmak istediğinden Excel otomotik olarak "sayfa değişti kaydetmek istermisiniz" diye soruyor. Yine dikkat edersen sorulan sorudaki dosya ismi txt uzantılı yani kaydedilen dosyayı soruyor. "Evet" yada "Hayır" desen bile sonuç değişmeyecektir. O konuda rahat ol. Yine dediğim gibi kapatmasını istemiyorsan macroda geçen şu ibareyi sil.

ActiveWorkBook.Close

 

[ferhatgurbuz]

arkadaşlar benimde böyle bir örneğe ihtiyacım var. Yalnız benim dosyada birkaç sayfa var . Benim kopyalamak istediğim ÖdemeEmri adlı sayfa

Sub SEKMELI_KAYDET()
dosya = Range("ah6") & "\" & Range("ah7") & ".xls"
Sheets("ÖdemeEmri").Select
Range("A4").Select
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:=xlText, CreateBackup:=False

End Sub

yukarıdaki kodu kendim uyarlamaya çalıştım. D:\Ödeme Emri buraya kaydediyor ama şekil bozuk çıkıyor. Ben ÖdemeEmri sayfasının olduğu gibi taşınmasını istiyorum.

 

[exam77]

arkadaşlar benimde böyle bir örneğe ihtiyacım var. Yalnız benim dosyada birkaç sayfa var . Benim kopyalamak istediğim ÖdemeEmri adlı sayfa

Sub SEKMELI_KAYDET()
dosya = Range("ah6") & "\" & Range("ah7") & ".xls"
Sheets("ÖdemeEmri").Select
Range("A4").Select
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:=xlText, CreateBackup:=False

End Sub

yukarıdaki kodu kendim uyarlamaya çalıştım. D:\Ödeme Emri buraya kaydediyor ama şekil bozuk çıkıyor. Ben ÖdemeEmri sayfasının olduğu gibi taşınmasını istiyorum.

Sayın ferhatgurbuz aşağıdaki kodu kullanabilirsin...

Sub SAYFAYI_KOPYALA_VE_KAYDET()
dosya = Range("ah6") & "\" & Range("ah7") & ".xls"
Sheets("ÖdemeEmri").Select
Sheets("ÖdemeEmri").Copy
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

 

[ferhatgurbuz]

sayfadaki formüller var. Örneğin rakamı yazıya çevirme gibi. bu şekilde olunca bozuluyor. buna bir çözüm bulabilirmiyiz. Sadece değer olarak kaydedebilir mi

 

[exam77]

sayfadaki formüller var. Örneğin rakamı yazıya çevirme gibi. bu şekilde olunca bozuluyor. buna bir çözüm bulabilirmiyiz. Sadece değer olarak kaydedebilir mi

O zaman şu şekilde kullanırsan daha doğru olur. Saygılar...

Sub SAYFAYI_KOPYALA_VE_KAYDET()
dosya = Range("ah6") & "\" & Range("ah7") & ".xls"
Sheets("ÖdemeEmri").Select
Sheets("ÖdemeEmri").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

 

[yorum.halil]

Arkadaşım maalesef yazdığın makro ile olmuyor. Sorun bölgesel ayarlardan falan değil... Dosyada ne gibi bir işlem yapılacağı ve Gerekli açıklamalar örnek dosyada mevcuttur... Tşk...

 

[ferhatgurbuz]

Yine formüller kaydedilmiyor. Yani asıl dosyada rakamın yazıya çevrildiği yerler kaydedildikten sonra AD hatası olarak gözüküyor. Aceba şöyle birşey yapsak olurmu. Modül 1 de rakamı yazıya çevirme kodu var. Bu kodu kopyalanan sayfayla ilişkilendirsek yani sayfa nereye giderse gitsin orda formüller çalışsa olmaz mı

 

[exam77]

Arkadaşım maalesef yazdığın makro ile olmuyor. Sorun bölgesel ayarlardan falan değil... Dosyada ne gibi bir işlem yapılacağı ve Gerekli açıklamalar örnek dosyada mevcuttur... Tşk...

Sayın arkadaşım örnek dosyan ektedir. Ben çalılştırdım herhangi bir sorun yok. İstersen bu yolladığım dosyayı dene. Umarım işini görecektir.

 

[exam77]

Yine formüller kaydedilmiyor. Yani asıl dosyada rakamın yazıya çevrildiği yerler kaydedildikten sonra AD hatası olarak gözüküyor. Aceba şöyle birşey yapsak olurmu. Modül 1 de rakamı yazıya çevirme kodu var. Bu kodu kopyalanan sayfayla ilişkilendirsek yani sayfa nereye giderse gitsin orda formüller çalışsa olmaz mı

İlk yazdığım macro senin dediğin gibi sadece değerleri gösterecek şekilde kaydediyordu.

Dosyanı yollayabilirsen yardımcı olmaya çalışayım. Bu arada dosyanın içine neleri istediğinide belirtirsen sevinirim. Kolay gelsin...

 

[yorum.halil]

Arkadaşım yardım çabaların için sağol ama gönderdiğin bütün dosyaları ve makroları denedim. Ama maalesef olmuyor.

Bi zahmet gönderdiğim son dosya da dahil ekte gönderilen dosyalara bir bak. Gördüğüm kadarı ile dosyaya bakmadan hala ısrar ediyorsun bir sorun yok makro çalışıyor diye. Çünkü dosyada görüntülenme sayısı "sıfır" yazıyor... Tamam belki acemi olabilirim. Ama yazdığın makronun işe yaramadığını göremeyecek kadar değil.... Tekrar tşk. ediyorum.

 

[exam77]

Arkadaşım yardım çabaların için sağol ama gönderdiğin bütün dosyaları ve makroları denedim. Ama maalesef olmuyor.

Bi zahmet gönderdiğim son dosya da dahil ekte gönderilen dosyalara bir bak. Gördüğüm kadarı ile dosyaya bakmadan hala ısrar ediyorsun bir sorun yok makro çalışıyor diye. Çünkü dosyada görüntülenme sayısı "sıfır" yazıyor... Tamam belki acemi olabilirim. Ama yazdığın makronun işe yaramadığını göremeyecek kadar değil.... Tekrar tşk. ediyorum.

Arkadaşım yazdığım macro bende çalışıyor ve herhangi bir sorunda vermiyor.
Fakat senin suçlaman tamamen yersiz, neden işe yaramayan bir macro göndereyim ki. Az evvelki cevabımda son düzenlediğim dosya ektedir diye yazdım ama eklemeyi unutmuşum. Bunun için özür dilerim. Ama seninde bu şekilde suçlamalarda bulunman hiçte hoş değil. Sen beceremiyorsan ben napim diye karşılık verebilirim bende ama saygı ön planda olmalı.

Dosyayı ekliyorum. İndirip birde öyle dene. Bu arada indirdiğin dosyaya bak bakalım senin veri dosyanı indirmişmiyim indirmemişmiyim. Dosyadan anlarsın zaten. Fakat bide şu durum var. Ben Office 2003 ve Office Xp kullanıyorum sen ise 2007, bundan kaynaklanan bir sorun olabilir. Bunuda uzman arkadaşlara danışmak gerekir.

 

[ferhatgurbuz]

örnek dosyayı ekledim

ne istediğime gelince Ödeme Emri sayfasının D deki Ödeme Emri klasörüne kopyalanmasını ve kopyalanırkende formüllerin değer olarak kaydedilmesini istiyorum. Yani C39 ve C64 teki paracevir formülünün kopyalanırken olduğu gibi yani metin olarka kopyalanmasını istiyorum.

 

[yorum.halil]

Arkadaş sanırım ben derdimi tam olarak anlatamadım. Makroların neden olmadığına dair "3" resimden oluşan tek bir resim dosyası gönderiyorum. Lütfen Ayrıntılı İncele..... hala ısrarlıysan cevabını bekliyorum... Tşk.