Kesin Mizan Bildirimi

[MENNES]

Arkadaşlar merhaba,
Gelir idaresi bu yıldan itibaren firmalardan kesin mizan bildirimi diye bir form istemektedir. bu yüzden her firmanın kendine has ancak üst sınırları belli olan mizan şablonunu rakamlarıyla bir excel formatına oturtmaya çalışıyorum.
ekteki excel çalışmasında bir sheet firmanın mizanı ( veri) diğer sheet gelir idaresine verilecek olan bildirim.
küçük bi makro yaptım formulleri özel yapıştır yapıyor ama bu makronun içine yada daha başka şekilde özel yapıştırdan sonra ortaya çıkan "#yok" yazan yerleri de kaldırsa hiçbir şey yazmasa, böyle bir sonuç almamız mümkün müdür.

 

[hamitcan]

Bu kodla, Maliyenin istediği formata getiriyorsunuz.

Sub Mizan()
Sayfa1.Select
[c2:f500].ClearContents
Set s1 = Sheets(2)
 With s1
 For i = 2 To [A65536].End(3).Row
 Set a = .Columns("a").Find(Cells(i, 1))
 If Not a Is Nothing Then
 Cells(i, 3) = IIf(.Cells(a.Row, 3) = 0, "", .Cells(a.Row, 3))
 Cells(i, 4) = IIf(.Cells(a.Row, 4) = 0, "", .Cells(a.Row, 4))
 Cells(i, 5) = IIf(.Cells(a.Row, 5) = 0, "", .Cells(a.Row, 5))
 Cells(i, 6) = IIf(.Cells(a.Row, 6) = 0, "", .Cells(a.Row, 6))
 End If
 Next
 End With
End Sub

Bu kodla, text dosyası oluşturarak BDP programına aktarabilirsiniz.

Sub MizanAktar()
yol = "C:\AKTARIM\Mizan.txt"
  Open yol For Output As #1
    satir = [A65536].End(3).Row
    sutun = 6
        For i = 2 To satir
            For j = 1 To sutun
              a = a & Replace(Cells(i, j), ".", ",") & vbTab
            Next j
        Print #1, Left(a, Len(a) - 1)
        a = ""
        Next i
  Close #1
End Sub

 

[MENNES]

tesekkurler , ancak ilk makrodan sonra aktarımda bazı eksıkler gorunuyor. tekrar bakabilir misiniz.

sermaye hesabı, amortısman hesabı alacak toplam ve bakiyeleri aktarımda gelemiş , çözümü var mıdır?

 

[hamitcan]

Birinci koddaki hatayı düzelttim.

 

[MENNES]

çok teşekkürler, istediğimden daha iyi oldu.

 

[SMMM EXPLORER]

nasıl çalışır

peki nasıl kullanılıyor anlatabilirmisiniz.

 

[SMMM EXPLORER]

hatayı düzeltme nasıl

hatayı nasıl düzelteceğiz yazarmısınız lütfen

 

[hamitcan]

Sayfa2 ye girdiğiniz bilgileri Sayfa1 deki formata uyduruyor sonraki kod da bdp programına aktarıyor.

 

[SMMM EXPLORER]

Teşekkür ederim. Program çok faydalı emeğinize sağlık. Ancak ben koddaki hatayı düzeltemedim.kodun doğrusunu yazarsanız çok sevinirim.

 

[SMMM EXPLORER]

Teşekkürler emeğinize sağlık çok güzel bir çalışma olmuş.çok işe yarayacaktır. Ancak ben koddaki hatayı düzeltemedim.doğrusunu yazarsanız çok sevinirim.bdp formuna çevirirken hata veriyor.

 

[MENNES]

aşağıdakileri komple eski kodların üzerine kopyalayın, , düzelir.


Sub Mizan()
Sayfa1.Select
[c2:f500].ClearContents
Set s1 = Sheets(2)
With s1
For i = 2 To [A65536].End(3).Row
Set a = .Columns("a").Find(Cells(i, 1))
If Not a Is Nothing Then
Cells(i, 3) = IIf(.Cells(a.Row, "c") = 0, "", .Cells(a.Row, 3))
Cells(i, 4) = IIf(.Cells(a.Row, "d") = 0, "", .Cells(a.Row, 4))
Cells(i, 5) = IIf(.Cells(a.Row, "e") = 0, "", .Cells(a.Row, 5))
Cells(i, 6) = IIf(.Cells(a.Row, "f") = 0, "", .Cells(a.Row, 6))
End If
Next
End With
End Sub
Sub MizanAktar()
yol = "C:\AKTARIM\Kesin Mizan.txt"
Open yol For Output As #1
satir = [A65536].End(3).Row
sutun = 6
For i = 2 To satir
For j = 1 To sutun
a = a & Replace(Cells(i, j), ".", ",") & vbTab
Next j
Print #1, Left(a, Len(a) - 1)
a = ""
Next i
Close #1
End Sub

 

[ugurdede]

çok teşekkürler, emeğinize sağlık. çok işime yaradı.

 

[osmanlikadir]

Çok Özür dilerim ama bişi soracağım Mizan Dediğimiz Makroya Boş Sahalara 0.00 yazdırabilirmiyiz Yani hesap koduna karşılık gelen bir değer yoksa o satırı boş atlamasın ve değere 0.00 Koysun Birde Mizan Aktar dediğiniz Makroda Yol "C\Ebyn\Aktar\Mizan.txt olmalı ancak txt yi kaydederken metni sekmelere ayrılmış .txt olmalı Acil yardımlarınızı bekliyorum süre cok az kaldı Şimdiden TEŞEKKÜRLER...

 

[hamitcan]

Cells(i, 3) = IIf(.Cells(a.Row, 3) = 0, "", .Cells(a.Row, 3))

Cells(i, 3) = IIf(.Cells(a.Row, 3) = 0, 0 , .Cells(a.Row, 3))

Benzeri satırları bu şekilde değiştirin.
Dosya yolu ile ilgili sorununuzu; yolu, kendinize göre uyarlayarak değiştirebilirsiniz.

 

[assenucler]

Sayın hamitcan,


Emek ve katkılarınız için teşekkürler.

Ramazan bayramınız kutlu olsun üstadım.

Sevgi ve saygılar.