Göksel ÜÇER

Zirve muhasebeci paketinden Netle e-defter uygulamasına dönüşüm yapmak için aşağıdaki excel macro kod yardımcınız olabilir. İlgili paketten ilgili döneme ilişkin "fiş listesi" excel ortamına aktarılır. excel dosyası açılır ve ikinci sheet olarak "netle" adında bir boş sayfa eklenir. macro kodlarına aşağıdaki kod eklenir ve excel macro calistir yardımı ile "Netle-Defter" formatlarına uygun çıktı alınabilir. Not Buradaki kodlar örnek veri modeli için hazırlanmıştır. Her veride kesin ve tutarlı sonuçlar vermesi beklenmemektedir. transfer aşamasında yardımcı olması adına tasarlanmıştır. Sub NetleOlarakDuzenle() 'tum fisleri gez ve netle ortamına aktar Dim newIndex As Integer Dim lastFisNo As String Dim lastFisTar As String Dim lastEntryComment As String Dim borc As Double Dim alacak As Double Dim itemDesc As String Dim ht Dim dt Set ht = CreateObject("System.Collections.Hashtable") Set dt = CreateObject("System.Collections.Hash