Makro Toplama Düğmesi

[leventidil]

Arkadaşlar Merhaba Siteniz Sayesinde geliştirdiğim ve her geçen gün çok daha işime yarayan fatura yazdırma ve föy dosyamda toplu olarak tek makroya tüm yazdırmayı bağladım.Fakat fatura toplamlarını makroya bağlayamadım föy sayfasının en sonuna kesilen ID ye göre fatura toplamı atsın istiyorum tek tıkla tüm faturaları yazdır gibi ekte dosyam bakınca daha iyi anlıyacağınızı umuyor yardımlarınızı bekliyorum şimdiden teşekkürler.

 

[Orion1]

dosyanız açılış şifreli.

 

[leventidil]

dosyanız açılış şifreli.

Şifre kaldırıldı tekrar yüklendi rica etsem yardım edermisiniz ?

 

[Orion1]

Prensip gereği şifreli dosyalara bakmıyorum.
Kolay gelsin.Başka arkadaşlar yardımcı olabilirler sanırım.

 

[leventidil]

Arkadaşlar yardım edebilirmisiniz excel dosyamda föydeki b2 faturadaki n8 e eşitse faturadaki aa42 hücresindeki TL değeri föydeki T2 hücresine getirmesini ve böyle devam etmesini sağlıcak makro lazım örneğimde yazdırma olayını makro ile çözdüm aynı şekilde toplama yapmasını istiyorum mümkünse bakabilirmisiniz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızda bir butona bağlayarak çalıştırın.

Sub toplamiaktar()
Set s1 = Sheets("Fatura")
Set s2 = Sheets("Föy")
For a = 2 To s2.[b65536].End(3).Row
s1.[n8] = s2.Cells(a, "b")
s2.Cells(a, "t") = s1.[aa42]
Next
End Sub

 

[leventidil]

Üstad sadece son föyü alıyor tüm hanelere son föy deki rakamı tüm hanelere yazdı nasıl düzeltirim.

 

[Levent Menteşoğlu]

Dosyanızda AA42 hücresindeki formül kaldırılmış. Bu formülü yeniden yazın.

 

[leventidil]

Evet elinize sağlık oldu bu sefer.