Dosya Boyutunu KÜÇÜtmek İÇİn FormÜllerİ Makro YÖntemİ İle Hesaplatmak

[gedavet]

dosya boyutu formül ile şişiyor bu işi makro ile nasıl yapılabilir ek dosya gönderdim

 

[tahsinanarat]

yıllık gelir veya gider tablosundaki satırlara her ayın gelir veya gideri satır satır mı alınacak, yoksa her ayın toplamları mı alınacak.

 

[gedavet]

her ayın gelir veya gideri satır satı olacak filitre ile orada toplamını zaten görebiliriz

 

[gedavet]

mb küçültme

satır satır

 

[gedavet]

satır satır olacak

 

[hamitcan]

Ay isimlerini belirttiğim şekilde yazın.

Sub yillikgelir()
On Error Resume Next
ay = Array("ocak", "şubat", "mart", "nisan", "mayıs", "haziran", "temmuz", "ağustos", "eylül", "ekim", "kasım", "aralık")
For i = 0 To 11
 son = Sheets("yıllık gelir").[a65536].End(3).Row + 1
 Sheets("" & ay(i) & " gelir" & "").[a3:e500].Copy Sheets("yıllık gelir").Range("a" & son)
Next
End Sub
Sub yillikgider()
On Error Resume Next
ay = Array("ocak", "şubat", "mart", "nisan", "mayıs", "haziran", "temmuz", "ağustos", "eylül", "ekim", "kasım", "aralık")
For i = 0 To 11
 son = Sheets("yıllık gider").[a65536].End(3).Row + 1
 Sheets("" & ay(i) & " gider" & "").[a3:e500].Copy Sheets("yıllık gider").Range("a" & son)
Next
End Sub

 

[gedavet]

dosya boyutunu küçültme

mu mokroyu nereye kaydedeceğim

 

[gedavet]

makro

hamit abi teşekküederiz bu makroyu nereye kaydedeceğim

 

[hamitcan]

Vba düzenleyicisi>Insert>Module

 

[gedavet]

makro

hamit abi birazdaha açıklarmısınız anlaşılmadı

 

[gedavet]

makro

hamitcan anlaşılmadı yanlız ocak şubat diye hem gelir hemgider sayfası nasıl olacak gelir gider sayfası farklı ve sadece a1 birmim aktarıyor bana c6 d6 e6 f6 g6 h6 yı aynı yıllık gelir c6 d6 e6 f6 g6 h6 ya aktarması lazım giderdede aynı

 

[gedavet]

makro

ekdeki çalışmada nasıl uygulayacağı yapıverebilirmisiniz

 

[hamitcan]

1-Dosyanıza vba şifresi koymuşsunuz.
2-Kodlar ilk gönderdiğiniz örneğe göre dizayn edilmiştir. Bu yüzden son örnekte çalışmaması normaldir.