Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-03-2017, 08:47   #1
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 69
Excel Vers. ve Dili:
2013 excel
Exclamation Excel den .txt (Metin Belgesi) dosyasına kayıt

Elimdeki excel dosyasında binlerce satır veri var, her 900 satırı bir .txt (Metin Belgesi) dosyasına kaydetmek istiyorum. Örneğin ilk 900 satırı 1. .txt (Metin Belgesi) dosyasına arkasından gelen ikinci 900 satırı 2. .txt (Metin Belgesi) dosyasına arkasından gelen üçüncü 900 satırı 3. .txt (Metin Belgesi) dosyasına ..... kaydedecek bu .txt (Metin Belgesi) dosyalarını kendi açıp yazıp kaydedecek mümkünmüdür acaba ?
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-03-2017, 13:54   #2
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,551
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

Bir kaç satırlık excel ve txt dosyası örneği yükleyebilir misiniz.

. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
http://www.excel.web.tr/f59/rnek-dosya-hazyrlarken-dikkat-edilmesi-gerekenler-t134225.html
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-03-2017, 15:06   #3
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 69
Excel Vers. ve Dili:
2013 excel
Varsayılan

Emir Hüseyin bey exceldeki ilk 900 satırı alıp 1 tane metin belgesi açıp içine kaydedip kapatacak sonra o aldığı 900 satırdan sonraki gelen 1800 satırın kalan 900 satırını alıp 2. metin belgesini açıp içine kaydedip çıkacak bu mantıkta son veriye kadar inecek diyelim 90.300 satırlık bir excelde 90 tane metin belgesi açarak kayıt yaptı son 300 satırıda alıp son metin belgesine kaydedip çıkacak ve işlemi bitirecek. (Exceldeki sütun sayısı farketmez 2 sütundanda oluşabilir veri, 5 sütundanda, 1 sütundanda)
Örnek dosya: https://drive.google.com/open?id=0B6...DRlcWkydkEwc0U
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-03-2017, 17:31   #4
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,551
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

.

Excel listede
Arada boş satır olabilir mi.

.
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
http://www.excel.web.tr/f59/rnek-dosya-hazyrlarken-dikkat-edilmesi-gerekenler-t134225.html
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-03-2017, 17:56   #5
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,321
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Sayın ÇOBAN'ın müsadeleriyle. Hazırlamıştım, göndereyim dedim.

Aşağıdaki kod'u kullanabilirsiniz.

Kod excel belgesinin bulunduğu klasöre, 900 satırlık herbir bölümü bir txt olarak kaydeder.

-- Verinizin sütun sayısına göre kırmızı işaretlediğim kısma benzer şekilde gerekli ilaveyi yapın.
-- dosya adının başlangıç kısmını, isteğinize göre değiştirin,
-- kod, oluşturulan txt belgeyi, vereceğiniz bu ismin sonuna 1, 2, 3 ... gibi sayı ekleyerek adlandırır.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub txt_BRN()
Set s1 = Sheets("Sayfa1"): s1.Activate
yol = ThisWorkbook.Path & "\": adı = "asas44_BRN_"
adet = WorksheetFunction.RoundUp(s1.Cells(Rows.Count, 1).End(3).Row / 900, 0)
For brn = 1 To adet
    sayı = sayı + 1: ilk = (brn - 1) * 900 + 1: son = ilk + 899
    If son > s1.Cells(Rows.Count, 1).End(3).Row Then son = s1.Cells(Rows.Count, 1).End(3).Row
        Open yol & adı & sayı & ".txt" For Output As #1
            For i = ilk To son
                Print #1, Cells(i, "A"); vbTab; Cells(i, "B")
            Next i
        Close #1
Next
MsgBox "Bu belgenin bulunduğu klasöre, gerekli TXT belgeler oluşturuldu. ", , "..::.. Ö. BARAN ..::.."
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2017, 06:55   #6
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,160
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alternatif kod

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub deneme()
son = 900
say = 0
For i = 1 To Cells(Rows.Count, "B").End(3).Row
yaz = ""
For j = 1 To Cells(i, Columns.Count).End(xlToLeft).Column ' yan sütün sayısı
yaz = yaz & RightPadChar(Cells(i, j), " ", 8) 'boşlu sayısı
Next j

If say = son Or say = 0 Then
sayi = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files.Count 'klasördeki dosya sayısı
kayit = ThisWorkbook.Path & "\dosya" & sayi & ".txt"
say = 0
'Open kayit For Output As #1
Open kayit For Append As #1
End If

Print #1, yaz

If say = son - 1 Then
Close #1
End If

say = say + 1
Next i
Close #1
MsgBox "işlem tamam"
End Sub

Function RightPadChar(ByVal Astr As String, PadChar As String, stLen As Integer) As String
Dim AStrL As Integer
Astr = Trim(Astr)
AStrL = Len(Astr)
If AStrL < stLen Then
Astr = Astr + String(stLen - AStrL, PadChar)
Else
Astr = Mid$(Astr, 1, stLen)
End If
RightPadChar = Astr
End Function
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-03-2017, 09:20   #7
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 69
Excel Vers. ve Dili:
2013 excel
Varsayılan

Ömer Hocam elinize sağlık Halit hocam şimdi gördüm sizin koduda emeklerinize sağlık
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 10:00   #8
ark123
 
Giriş: 26/12/2006
Mesaj: 39
Excel Vers. ve Dili:
excell 2005
Varsayılan

Alıntı:
asas44 tarafından gönderildi Mesajı Görüntüle
Elimdeki excel dosyasında binlerce satır veri var, her 900 satırı bir .txt (Metin Belgesi) dosyasına kaydetmek istiyorum. Örneğin ilk 900 satırı 1. .txt (Metin Belgesi) dosyasına arkasından gelen ikinci 900 satırı 2. .txt (Metin Belgesi) dosyasına arkasından gelen üçüncü 900 satırı 3. .txt (Metin Belgesi) dosyasına ..... kaydedecek bu .txt (Metin Belgesi) dosyalarını kendi açıp yazıp kaydedecek mümkünmüdür acaba ?
Mümkündür.
dosyanı gönder yardım edeyim.
ark123 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 05:42


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - invest in turkey - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden