Text oluşturma

[selcuk23]

Merhabalar, text oluşturmak için bordrodan belli verileri kullanmam gerekli. dosyaya gerekli açıklamaları yazdım. Dosyayı inceleyip yardımcı olur musunuz ?http://s7.dosya.tc/server4/tg7e4c/text_olusturma.rar.html

 

[yanginci34]

TC No herzaman C sütununamı geliyor.

 

[yanginci34]

Denermisiniz.
http://s7.dosya.tc/server4/1aek4y/text_olusturma.rar.html

 

[selcuk23]

Denermisiniz.
http://s7.dosya.tc/server4/1aek4y/text_olusturma.rar.html

Dosya inmiyor, hasarlı uyarısı veriyor.

 

[Ömer BARAN]

Merhaba.

İsteğiniz; BORDRO sayfasında (bir veri için de TC Kimlik numarasına göre İCMAL sayfası B sütunundan veri alarak), 13'üncü satırdan başlamak üzere, istenilen sırayla, istenilen sütunlardaki verilerin satırlar halinde yazıldığı txt uzantılı bir dosya mı oluşturmaktır?

Daha önce pek ilgilendiğim bir mevzu değil ama; açtığınız konuyu ön plana çıkartayım ki; konu hakkında bilgisi olanların dikkatini çeksin dedim.
.

 

[Ömer BARAN]

Eğer isteğiniz bir önceki mesajımdaki işlemse;
excel belgesinin bulunduğu klasöre, istenilen işlemi yapan
(txt oluşturma sayfasındaki boş F sütunu boş olduğundan onun için de bir TAB ekleyerek)
ve 2017_08 dönemi 04_10_18 gibi isim vererek
(BORDRO sayfası M6 ve M7'den dönem bilgisi alınıp, sonuna işlem tarihi eklenerek)
txt belgesi oluşturulur.
Uygun veya ekleyeceğiniz bir MODUL'e aşağıdaki kod'u yapıştırın ve sayfadaki düğme ile ilişkilendirin.

Sub TXT_AKTAR()
Set b = Sheets("BORDRO"): Set i = Sheets("icmal")

If b.Cells(Rows.Count, 3).End(3).Row = 12 Then Exit Sub
isim = Replace(b.[M7] & "_" & b.[M6], ":", "") & " dönemi " & Format(Date, "dd_mm_yy")
    Open ThisWorkbook.Path & "\" & isim & ".TXT" For Output As #1
    For a = 13 To b.Cells(Rows.Count, 3).End(3).Row
        If WorksheetFunction.CountIf(i.[A:A], b.Cells(a, 3)) > 0 Then
            esno = i.Cells(WorksheetFunction.Match(b.Cells(a, 3), i.[A:A], 0), 2)
        Else: esno = "000000000"
        End If
      
        Print #1, b.Cells(a, 2) & vbTab _
                & b.Cells(a, 3) & vbTab _
                & esno & vbTab _
                & b.Cells(a, 5) & vbTab _
                & b.Cells(a, 6) & vbTab _
                & b.Cells(a, 4) & vbTab & vbTab _
                & b.Cells(a, 11) & vbTab _
                & b.Cells(a, 13)
    Next a
    Close #1
MsgBox "Excel belgesinin bulunduğu klasöre, " & _
        isim & " isimli TXT belge oluşturuldu.", vbInformation,"..:: Ömer BARAN ::.."
End Sub