SAYFALAR ARASI ŞARTA BAĞLI VERİ AKTARIMI

[oğuz2]

Merhaba Arkadaşlar..
Ekli dosyada, fatura sayfasındaki kalemlerin ayniyat sayfasına aktarmak istiyorum. Ancak sıfır değere sahip kalemler aktarılmamasını istiyorum. Ve de toplam alırken en son yazılan kalemin altına yazılmasın istiyorum.
Yardımcı olursanız çok müteşekkir olacağım..

 

[Levent Menteşoğlu]

Fatura sayfasındaki hangi sütun, ayniyat sayfasındaki hangi sütuna aktarılacaktır.

 

[oğuz2]

Merhaba Levent Bey...
Fatura sayfasındaki C7,D7,E7,F7 sırasıyla Ayniyat sayfasının E9,C9,B9,A9 hücrelerine. Ancak faturadaki sıfır değerlerini ayniyat görmeyecek.. Bir nokta daha, Ayniyatda almış olduğumuz toplamın ise en son kaydın altında olması şartı ile..
İlginize teşekkür ediyorum..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:2e82ef085b]Sub aktar()
Set s1 = Sheets("fatura")
Set s2 = Sheets("genel ayniyat")
s2.[a9:h32].ClearContents
For a = 7 To s1.[b65536].End(3).Row
If s1.Cells(a, "d") <> 0 Then
sat = s2.[a7].End(xlDown).Row + 1
s2.Cells(sat, "e") = s1.Cells(a, "c")
s2.Cells(sat, "c") = s1.Cells(a, "d")
s2.Cells(sat, "b") = s1.Cells(a, "e")
s2.Cells(sat, "a") = s1.Cells(a, "f")
End If
Next
toplam = WorksheetFunction.Sum(s2.Range("a9:a" & sat))
s2.Cells(sat + 1, "a") = toplam
s2.Cells(sat + 1, "b") = "TOPLAM"
s2.Cells(sat + 2, "a") = toplam * 0.08
s2.Cells(sat + 2, "b") = "KDV. % 8"
s2.Cells(sat + 3, "a") = toplam + toplam * 0.08
s2.Cells(sat + 3, "b") = "KALAN"
End Sub[/vb:1:2e82ef085b]

 

[oğuz2]

Levent Bey çok teşekkür ediyorum.. Gerçekten çok işimi gördü..
Çok teşekkürler kolay gelsin..