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 24-06-2017, 09:54   #1
1903emre34@gmail.com
Altın Üye
 
Giriş: 29/05/2016
Şehir: İstanbul
Mesaj: 462
Excel Vers. ve Dili:
Microsoft Excel 2013 Türkçe
Varsayılan Txt dosyasından aktarılması hakkında

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?
Eklenmiş Dosyalar
Dosya Türü: zip TXT.zip (12.2 KB, 17 Görüntülenme)
1903emre34@gmail.com Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-06-2017, 13:46   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,369
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

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"


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-06-2017, 23:11   #3
1903emre34@gmail.com
Altın Üye
 
Giriş: 29/05/2016
Şehir: İstanbul
Mesaj: 462
Excel Vers. ve Dili:
Microsoft Excel 2013 Türkçe
Varsayılan

Teşekkürler,
1903emre34@gmail.com Ç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 04:40


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden