Excellde Vergi Levhası

[ileri]

Sevgili excell.web.tr üyeleri nolur abiler.
benim çok büyük sorunum var.Vergi levhası yapamadım günlerde yaklaşıyor nolur yardım edebilirmisiniz sizlerin yaptıgı vergi levhaları bizim vergile levhasına uymuyor bana yardımcı olabilecek varsa nolur cevap versin hata ebn ona bizim vergilevhasının bi resminide atabilirim yardımcı olabicek arkadaşlarımıza şimdiden teşekkür edirim msn adresim ilyasileri1995@hotmail.com nolur yardımcı olun...

 

[halit3]

aşağıdaki linke bir bakarmısınız

http://www.excel.web.tr/showthread.php?t=72415&highlight=vergi+levhas%FD

 

[mustafakoker]

vergi levhası yardım

ekli dosyamda örnek vergi levhası tasarladım evren beyın yardımlarıyla bazı satırları bılgı sayfasına aktarıyor fakat eksıklıkler var tum bılgılerı aktaramadım

Vergi Levhasından Aktarılmasını istediklerim ikinci sayfada yer almaktadır

ilgilenen arkadaşlar olursa sevınırım

 

[halit3]

ekli dosyamda örnek vergi levhası tasarladım evren beyın yardımlarıyla bazı satırları bılgı sayfasına aktarıyor fakat eksıklıkler var tum bılgılerı aktaramadım

Vergi Levhasından Aktarılmasını istediklerim ikinci sayfada yer almaktadır

ilgilenen arkadaşlar olursa sevınırım

ikinci sayfada neyi aktaracaksın hiç bir bilgi yok not yok sorularınızı anlıyacamız şekilde açıklarsanız göreceksiniz cevap mutlaka alacaksınız

ben genede anladığım kadarı ile kodu yazdım

Sub SağOk_Tıklat()
Dim sat As Long
If Range("A3").Value = "" Then
MsgBox "Kayıt Yapılmadı." & vbLf & _
"Kayıt Yapabilmek için A3 hücresi dolu olmalıdır.", vbCritical, "UYARI"
Range("A1").Select
Exit Sub
End If
With Sheets("BILGİ")
sat = .Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65533 Then
MsgBox "MukellefBılgılerınde satır doldu" & vbLf & "Kayıt girilmedi", vbCritical, "UYARI"
Exit Sub
End If
.Cells(sat, "A").Value = sat - 2
.Cells(sat, "b").Value = Range("I5").Value
.Cells(sat, "c").Value = Range("W5").Value
.Cells(sat, "d").Value = Range("W8").Value
.Cells(sat, "E").Value = Range("W12").Value
.Cells(sat, "F").Value = Range("D15").Value
.Cells(sat, "G").Value = Range("G15").Value
.Cells(sat, "H").Value = Range("N15").Value
.Cells(sat, "I").Value = Range("T15").Value
.Cells(sat, "J").Value = Range("D22").Value
.Cells(sat, "K").Value = Range("G22").Value
.Cells(sat, "L").Value = Range("N22").Value
.Cells(sat, "M").Value = Range("T22").Value
.Cells(sat, "N").Value = Range("D29").Value
.Cells(sat, "O").Value = Range("G29").Value
.Cells(sat, "P").Value = Range("N29").Value
.Cells(sat, "Q").Value = Range("T29").Value
End With
MsgBox "Kayıt başarı ile girildi."
End Sub

 

[mustafakoker]

halit bey elinize sağlık istediğim buydu ikinci sayfaya neyı aktaracaksınız derken 1sayfada dolu olan kısımları 2 sayfaya aktaracaktım zaten sizde onu yapmışsınız tesekkürler

 

[ileri]

Ama Bizim Vergi levhası değişik oldugu için tutmuyor abiler.
Ben UserForm1 e bi tablo yaptım vergi levhası için hatta çıktı alabilmek içinde sayfa 3 ü kulandım ama verileri kaydedemiyorum yani veri diye açtıgım sayfaya glcek userForm dan geliyor ama çıktı alırken sayfa 3 e yönlendiremiyorum yardımcı olursanız sevinirim .