Farklı sayfaları macro ile toplatmak

[a_self_lion]

Selam Arkadaşlar, Çok uğraşıp ta bir türlü yapamadığım bir proplemim var. Unlu mamüller Satış Reyonunun hesabını takip ve aylık satış raporlarını görebilmemiz için ekte gönderdiğim gibi bir çalışmam olmuştur. Burda benim istediğim Günü devret dediğim zaman (1) sayfayı (2) (3) sayfa ismleri artarak diğer güne devrediyor bu çalışma aylık olacağı için bu 30 veya 31 e kadar devam edecek benim burda istediğim bu malzemelerin aylık satış toplamlarını rapor sayfasına aldırmak her yeni gün eklendiği zaman rapor sayfasına da toplamı yazılsın Bunu macro ile nasıl yapabilirim teşekkürler şimdiden yardım eden arkadaşlara...

 

[a_self_lion]

Galiba anlatamadım Birde böyle anlatayım dedim.

1- BİR SAYFA VAR (1) Sayfanın ismi bu 'ActiveSheet.Copy after:=Sheets(1)' Komutu ile çoğaltılıyor. Ve Bu sayfa Bu komutla (2)- (3) diye çoğalıyor.
3- Burda bir proplemmim yok

4- Bu Çoğaltılan sayfaların G6 hücresinin değeri, Rapor sayfasındaki Çağolatılma esnasında E6 hücresinin değerine ilave edilcek.

5- aynı şekilde K6 hücresinin değeride rapor sayfasındaki çoğaltma esnasında F6 hücresinin değerine ilave edilecektir.

Bu şekilde her gün devredilirken G6 ve K6 hücrelerinin derğeri Rapor sayfasına E6 ve F6 hücerelerine ilave edilmek süreti ile genel bir toplam alınmış olacak buda bizim raporumuzu oluşturacak

Yani ayın 15 inci gününde rapor sayfasına baktığım zaman Bir ürünün kaç adet satıldığını ve satış tutarını görebilme imkanım olacak.

Yeni Dosyayı ekte Gönderiyorum

 

[zafer]

Merhaba

Aşağıdaki dosyayı inceleyiniz.

Devir tuşunu çalıştırınız.

1. sayfadaki bilgiler tuşu çalıştırdığınız kadar rapor sayfasına devredecektir.

 

[a_self_lion]

Sayın Zafer bey kod çok güzel olmuş ama sadece sayfa 1 in bilgilerin aktarıyor burda işi bitmiş olan günü devrederken onun bilgilerini aktarmak gerekiyor

 

[zafer]

Merhaba

4- Bu Çoğaltılan sayfaların G6 hücresinin değeri, Rapor sayfasındaki Çağolatılma esnasında E6 hücresinin değerine ilave edilcek.

Sizin veri girişi yaptığınız bir sayfanız var birde rapor sayfanız var.
veri girişi yapıp DEVİR tuşuna bastığınızda yeni bir sayfa açılıyor ve girdiğiniz bilgiler o sayfaya yazılıyor.
Ayrıca aynı bilgiler RAPOR sayfasındaki bilgilerin üzerine ilave ediliyor.

10 adet sayfanız varsa RAPOR sayfasında 10 adet sayfanın toplam bilgileri oluyor.

 

[a_self_lion]

Sayın Zafer Bey Biz rapor almak için tamamem çıkış yönümüzü değiştirirsek daha sağlıklı olucak gibi.

Şöyle bir Rapor hazırlasak

Biz Tuşa bastığımız zaman çalışma kitabında ne kadar sayfa varsa, tabi rapor sayfası hariç

Bu sayfaların Sıra ile sayfa (1)'den (sabit herzaman vardır) başlayarak bütün sayfaların G6 G176 arası hücre değerlerini rapor sayfasına D6 D176 ya ilave etsin

K6 k176 arasını da rapor sayfasında E66 E176 ya ilave etsin
Bu macroyu bir tuşa atayalım her basıldığında tek tek bütün sayfaların bu aralıklarındaki hücre değerlerini rapor sayfasındaki hücrelere ilave etsin
raporu her seferinde güncellesin.

Sizcede Böylesi daha iyi olmaz mı?

 

[zafer]

Merhaba

Sayfalara koruma vermişsiniz. Lütfen buna çok dikkat edelim.

paraola: ?????

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu Rapor sayfasında bir buton oluşturup o butona atayıp denermisiniz.

Sub AKTAR()
    Application.ScreenUpdating = False
    Call sifreac
    Son = Sheets.Count - 1
    Set SR = Sheets("Rapor")
    For X = 1 To Son
    Sheets(X).Select
    [G6:G176].Copy
    SR.Select
    [D6].Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Sheets(X).Select
    [K6:K176].Copy
    SR.Select
    [E6].Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Application.CutCopyMode = False
    Next
    SR.Select
    [A1].Select
    Call sifrele
    Application.ScreenUpdating = True
    MsgBox "AKTARIM İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[zafer]

Merhaba

Dosyayı inceleyiniz.

 

[a_self_lion]

Sayın CostControl denedim olmadı Aktarım tamamlandı diyor ama hiçbirşey aktarmıyor ben biraz baktım olmadı



Sayın zafer bey sizinkide sanki farklı bişeyler topluyor denedim olur gibi oldu ama farklı sonuçlar çıkıyor

 

[zafer]

Merhaba

1,2,3 ..... ne kadar sayfa varsa
G6 hücrelerindeki değerleri Rapor sayfasının E6 hücresine topluyor.
K6 hücrelerindeki değerleri Rapor sayfasının F6 hücresine topluyor.
Burdaki yanlış toplamayı ve farklı sonuçları anlayamadım

Topla makrosunun başına aşağıdaki kodları ilave edip denermisiniz.
Sheets("RAPOR").Range("e6:f1000").ClearContents