kdv beyanname tablosu ; yardım istiyorum

[skywalker48]

tek kelimeyle süpersinnnn, en başta istedğimin aynısı.
sayının gözükmemesini az önce anlattığın şekildemi yaptın? bide benden önce gönderdiğin fatura dosyadında yazıya çevirme eklentisi var onun vba şifresini verebilirmisin nasıl kodlandığını görmek istiyorum?

 

[nihatkr]

Kodun açılımı bu şekildedir.

Function Yaziyla(Sayi#)
Dim virgul2 As String
Dim cevap As String
Dim yazi As String
Dim Say As String
Dim uclu As String
Dim virgul As Integer
Dim o As Integer
Dim b As Integer
Dim x As Integer
Dim i As Integer
Dim y As Integer
Dim YTL As String
Dim YKR As String

If Sayi# = 0 Then Yaziyla = "Sıfır": Exit Function

ReDim birler$(10), onlar$(10), basamak$(5)

birler$(0) = "": birler$(1) = "Bir"
birler$(2) = "İki": birler$(3) = "Üç"
birler$(4) = "Dört": birler$(5) = "Beş"
birler$(6) = "Altı": birler$(7) = "Yedi"
birler$(8) = "Sekiz": birler$(9) = "Dokuz"

onlar$(0) = "": onlar$(1) = "On"
onlar$(2) = "Yirmi": onlar$(3) = "Otuz"
onlar$(4) = "Kırk": onlar$(5) = "Elli"
onlar$(6) = "Altmış": onlar$(7) = "Yetmiş"
onlar$(8) = "Seksen": onlar$(9) = "Doksan"

basamak$(1) = "": basamak$(2) = "Bin "
basamak$(3) = "Milyon ": basamak$(4) = "Milyar "
basamak$(5) = "Trilyon "

virgul2 = ""
cevap = ""

'AŞAĞIDAKİ 2 SATIRDAKİ ÇİFT TIRNAK İÇERİĞİNİ DEĞİŞTİREREK
'VEYA ÇİFT TIRNAĞIN ARASINI SİLEREK "" VEYA "," GİBİ
'İSTEĞİNİZ SONUCUN ÇIKMASINI SAĞLAYABİLİRSİNİZ.
YTL = ".-YTL., "
YKR = ".-YKR."

Say = Str$(Sayi#)
virgul = InStr(1, Say, ".")
If virgul Then

'Aşağadaki satır 26,4 Yirmialtı YTL, KIRK YKR olarak okutur.
' (Yirmialtı YTL, DÖRT YKR olarak değil)
'İptal etmek isterseniz başına bir ' tek tırnak işareti koyunuz
If Len(Mid(Say, virgul + 1)) = 1 Then Say = Say + "0"

Say = Right$(Say, Len(Say) - virgul)
GoSub cevir

If cevap = "" Then YKR = ""
virgul2 = cevap + YKR
cevap = ""

Say = Str$(Sayi#)
Say = Left$(Say, virgul - 1)
End If
GoSub cevir
If cevap = "" Then YTL = ""
Yaziyla = cevap + YTL + virgul2
Exit Function

cevir:
x = Len(Say)
Say = String$(3 - (x - Int(x / 3) * 3), 48) + Say
x = Len(Say) / 3
For i = 1 To x
uclu = Mid$(Say, Len(Say) - i * 3 + 1, 3)
y = Val(Mid$(uclu, 1, 1))
o = Val(Mid$(uclu, 2, 1))
b = Val(Mid$(uclu, 3, 1))

yazi = ""
If y <> 0 Then
If y > 1 Then yazi = birler$
yazi = yazi + "Yüz "
End If

yazi = yazi + onlar$(o) + birler$(b)

If yazi <> "" Then
If LCase(yazi) = "bir" And i = 2 Then yazi = ""
cevap = yazi + basamak$(i) + cevap
End If
Next i
If Sayi# < 0 Then cevap = "-Eksi-" + cevap
Return
End Function

 

[nihatkr]

Sayıların dizaynı aynen anlattığım şekilde yapılır.

 

[skywalker48]

BO&#350; EXCEL SAYFASI A&#199;TIM, KOD G&#214;R&#220;NT&#220;LEMEYE G&#304;RD&#304;M KODU YAPI&#350;TIRDIM NASIL KAYIT YAPARIM ACABA ? &#231;ok oluyorm galiba, bu ak&#351;am &#231;ok yard&#305;mc&#305; oldun bana

 

[nihatkr]

sıkıstırılmıs dosyayı acın orada daha kolay yöntemi var. ama kodu kendim yazayım derseniz. kod sayfasını acın ve içerisine kopyalayınız

 

[skywalker48]

ben eklentinin bo&#351;luksuz ve b&#252;y&#252;k harf olmas&#305;n&#305; istiyorum, ben hotel faturalar&#305; keserken bu bi&#231;imi kullan&#305;yorum da. kopyalad&#305;m ama nas&#305;l kay&#305;t yapaca&#287;&#305;m&#305; bilmiyorum

 

[skywalker48]

yapt&#305;m galiba kaydetmeyi, &#351;imdi kendime uyarlamaya &#231;al&#305;&#351;&#305;yom

 

[nihatkr]

Koddaki küçük yazıyla yazılmış rakamları büyük yazarsan bükük harfe döner. ama sen yapabilirmisin dersen anca yarına.

 

[skywalker48]

&#231;evirdim ama sonuca ba&#287;layamad&#305;m, valla ben bir ay bile beklerim yapar&#305;m dersen.

 

[nihatkr]

ok yarın büyük harfle olanını gönderirim. sorun değil.

 

[nihatkr]

sitedede ararsan bulabilirsin diye düşünüyorum. yazıya çevir diye arat bulunma ihtimali yüksek.

 

[skywalker48]

&#199;ok Te&#350;ekk&#220;r Edr&#304;m

 

[hasanım1]

Öncelikle bu harka tablo için teşekkürler,
Muhasebe bürosunda bu tabloyu 150 ayrı mükellef için tek dosyada kullanmak konusunda yardımcı olursanız sevinirim.
Şimdiden teşekkürler..

 

[nihatkr]

Örnek Dosyayı İnceleyiniz.

 

[hasanım1]

Ben anlatmay&#305; ba&#351;aramad&#305;m.
Cari hesap takibindeki gibi d&#252;&#351;&#252;n&#252;rsek, ana sahifede t&#252;m firmalar yerals&#305;n, burada bunlar&#305;n en son toplam has&#305;latlar&#305; ve devreden kdv miktarlar&#305; olmas&#305; yeterli.
Firmay&#305; se&#231;ince veya &#252;zerine t&#305;klay&#305;nca sadece tablo a&#231;&#305;ls&#305;n ve verileri girelim.
Beyannamelere gerek yok.
EME&#286;&#304;N&#304;ZE SONSUZ TE&#350;EKK&#220;RLER...

 

[nihatkr]

Ben anlatmayı başaramadım.
Cari hesap takibindeki gibi düşünürsek, ana sahifede tüm firmalar yeralsın, burada bunların en son toplam hasılatları ve devreden kdv miktarları olması yeterli.
Firmayı seçince veya üzerine tıklayınca sadece tablo açılsın ve verileri girelim.
Beyannamelere gerek yok.
EMEĞİNİZE SONSUZ TEŞEKKÜRLER...

Soru: Bu Rakamlar aylıkmı gelecek yoksa kümülatif olarak devammı edecek (ÖNEMLİ)

İndirilecek ve ödemeyide görmek istiyormusun. (ÖNEMLİ İsteğine Göre İcmal Tablolarına Ek olabilir Çünkü)

 

[hasanım1]

Ana sahifede firman&#305;n toplam has&#305;lat&#305; (B17+C17+D17+E17) tek rakam olmas&#305; yeterli, &#246;denece&#287;i g&#246;rmeye gerek yok, m&#252;mk&#252;n olursa enson devreden olursa iyi olu, olmazsa ona da gerek yok.
Biliyorum &#231;ok u&#287;ra&#351;t&#305;rd&#305;m.....

 

[nihatkr]

Ana sahifede firmanın toplam hasılatı (B17+C17+D17+E17) tek rakam olması yeterli, ödeneceği görmeye gerek yok, mümkün olursa enson devreden olursa iyi olu, olmazsa ona da gerek yok.
Biliyorum çok uğraştırdım.....

valla sana birşeyler yaptım. Ödenecekte olsa görüyorsun. Devredende olsa görüyorsun. dosyayı ekleyeceğim. iki dakikaya.

 

[nihatkr]

Dosyaya Bakınız.

 

[hasanım1]

Tamamdir...

Y&#220;re&#286;&#304;ne, Eme&#286;&#304;ne Sa&#286;lik...