Txt dosyasından aktarılması hakkında

[1903emre34@gmail.com]

Merhaba,

Aktarılacak excel dosyasında ki veriler txt dosyasında bulunmaktadır. Yandaki sarı olan hücrelerin yanındaki rakamları birlikte txt dosyasından buraya aynen aktarmak istiyorum, nasıl kod oluşturabiliriz?

 

[Asri]

Aşağıdaki kodu deneyiniz.
Yeni alınacak bilgiler eklemek isterseniz.
Aşağıdaki satırı aşağı doğru arttırırsınız.
Burada önemli olan ilk karakter.
ASonraki olursa A Alacak tarafına tutarı yazmayı.
BSonraki olursa B Borç tarafına tutarı yazmayı belirtir.

veri = veri & ",ASonraki Döneme Devreden Hesaplanan Geçici Vergi"

Dim txtdosya, verisay As Long
Dim alinacak() As String

Sub veri_al()
  ChDir ActiveWorkbook.Path
  txtdosya = Application.GetOpenFilename(("Text Dosyalar (*.txt), *.txt"), 1, "Text Dosya Seçiniz")

  If txtdosya = "" Then
      MsgBox ("İşlem iptal edildi.")
     Exit Sub
  End If
  
  Sheets("Sonuc").Select
  Range("A:B").Clear
   
  veri = "ATicari Bilanço Karı,ATicari Bilanço Zararı,AKanunen Kabul Edilmeyen Gider"
  veri = veri & ",BZarar Olsa Dahi İndirilecek İstisna ve İndirimler,AKar ve İlaveler Toplamı,BZarar ve İndirimler Toplamı"
  veri = veri & ",BZarar,AKar,BMahsup Edilecek Geçmis Yıl Zararları,ADönem Karı,AIsletmeden Çekilen Enflasyon Düzeltmesi Farkları"
  veri = veri & ",ASafi Geçici Vergi Matrahı,AKVK’nın 32/A Mad. Kapsamında Indirimli Kurumlar Vergisine (Geçici Vergiye) Tabi Matrah"
  veri = veri & ",AKVK’nın 32/A Mad. Kapsamında Indirimli Kurumlar Vergisi (Geçici Vergi) Oranı"
  veri = veri & ",AKVK’nın Geçici 4 Mad. Kapsamında Indirimli Kurumlar Vergisine (Geçici Vergiye) Tabi Matrah"
  veri = veri & ",AKVK’nın Geçici 4 Mad. Kapsamında Indirimli Kurumlar Vergisi (Geçici Vergi) Oranı,AGenel Orana Tabi Geçici Vergi Matrahı"
  veri = veri & ",AGeçici Vergi Matrahı,AHesaplanan Geçici Vergi,AÖnceki Dönemlerde Hesaplanan Geçici Vergi"
  veri = veri & ",AÖdenmesi Gereken Geçici Vergi,AMahsup Edilecek Yabancı Ülkelerde Ödenen Vergi,AMahsup Edilecek Tevkifat"
  veri = veri & ",AMahsup Edilecek Geçici Vergi ve Tevkifat Tutarı Toplamı,AÖdenecek Geçici Vergi"
  veri = veri & ",ASonraki Döneme Devreden Yabancı Ülkelerde Ödenen Vergi,ASonraki Döneme Devreden Tevkifat"
  veri = veri & ",ASonraki Döneme Devreden Hesaplanan Geçici Vergi"

  alinacak = Split(veri, ",")

  Set shsonuc = Sheets("Sonuc")
  verisay = 0
  Open txtdosya For Input As #1
  Do Until EOF(1)
     Line Input #1, veri
     veri = Trim(veri)
     
     For i = LBound(alinacak) To UBound(alinacak)
     
       If Left(veri, Len(alinacak(i)) - 1) = Mid(alinacak(i), 2, Len(alinacak(i))) Then
          verisay = verisay + 1
          bitir = InStrRev(veri, " ")
          shsonuc.Cells(verisay, 1) = Mid(veri, 1, bitir - 1)
          If Left(alinacak(i), 1) = "B" Then
             shsonuc.Cells(verisay, 2) = 0 + Mid(veri, bitir + 1, Len(veri))
          Else
             shsonuc.Cells(verisay, 3) = 0 + Mid(veri, bitir + 1, Len(veri))
          End If
          Exit For
       End If
     Next i
  Loop
  Close #1
End Sub

 

[1903emre34@gmail.com]

Teşekkürler,