Hücre seçerek txt formatında kaydetmek

[k0081]

Merhaba arkadaşlar;

Hücre seçerek, txt formatında bir kayıt nasıl yapabilirim.. ?

önemli Not : seçim tablonun neresinde yapılırsa yapılsın, her zaman kayıt 1. sıradan başlayacaktır...dosyası güncelliyorum...

örnek dosya
Ekli dosyayı görüntüle Kitap2.xlsm

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz. Kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub CommandButton1_Click()
    Dim c       As Range
    Dim i       As Long
    Dim Kol     As Integer
    Dim Yol     As String
    Dim Dosya   As String
    Dim Satir   As String
    Dim Ayrac   As String
    
    
    Yol = Application.ThisWorkbook.Path & Application.PathSeparator
    Dosya = "Dosya.txt"
    Ayrac = vbTab
    
    Open Yol & Dosya For Output As #1
    
    Satir = 1
    i = 1
    
    For Each c In Selection
    
        Kol = Kol + 1
        If Kol > Selection.Columns.Count Then
            Print #1, Satir
            Satir = ""
            Kol = 1
            i = i + 1
            Satir = i
        End If
        
        Satir = Satir & vbTab & c.Value
            
    Next c
    Print #1, Satir
    
    Close #1
    
    MsgBox Yol & Dosya & " OLUŞTURULMUŞTUR...."
    
End Sub

 

[k0081]

Hocam çok teşekkürler, elinize yüreğinize sağlık.. tamamdır.. şöyle bir ekleme yapabilirmiyiz: seçimi ben B ve C sütunu üzerinde gerçekleştiriyorum..

Sıra numarasını seçmeden text dosyasında sıra oluşturabilirmiyiz ?

ben seçimimi yine B ve C ye göre yapacağım.. diyelimki B sütununda alt kısımlarda bir seçim yaptım.. (sıra no : 19 - 20 ler gibi..)

text dosyasına yazarken : 1 2 3 4 diye sıra numarası vererek kayıt yapması hocam..

 

[Necdet]

Merhaba,

Kodları yeniledim. Ayrıca hücre ayrımını değişken yaptım. İster tab, ister noktalı virgül ister - artık ne isterseniz onu kodda belirtiniz.

 

[k0081]

Necdet Yeşertener;

Hocam çok teşekkürler,, Büyüksünüz.. Tamamdır..

****************

seçilen hücreleri C sütunu hariç nasıl txt formatında kaydederim ? gerçi C stunu boş.., ama ayrac o kısmıda ayırıyor.. ve işaretini koyuyor..

Ekli dosyayı görüntüle yedek.xlsm

 

[Necdet]

Merhaba,

Kod içindeki

Satir = Satir & vbTab & c.Value

Aşağıdaki gibi değiştirin.

If Not c.Column = 3 Then Satir = Satir & vbTab & c.Value

 

[k0081]

Necdet Yeşertener

hocam çok teşekkür ediyorum.. tamamdır..