Kümülatif sayfaya verileri toplamak

[unozdemir]

Arkadaşlar merhaba,
Ekte bulunan dosyada, 3 sayfada verilerim var, 4. sayfaya bunların tamamını taşımak istiyorum.
Yani 3 ayrı harcama kalemleri olan sayfadaki verileri, kümülatif sayfasına taşıyarak tümünü görebilmek istiyorum.
Yardımcı olursanız sevinirim.

 

[bedri41]

Arkadaşlar merhaba,
Ekte bulunan dosyada, 3 sayfada verilerim var, 4. sayfaya bunların tamamını taşımak istiyorum.
Yani 3 ayrı harcama kalemleri olan sayfadaki verileri, kümülatif sayfasına taşıyarak tümünü görebilmek istiyorum.
Yardımcı olursanız sevinirim.

Ekteki dosyanızı inceleyin
Kolay Gelsin

 

[unozdemir]

Sn. bedri41, dosyayı açıyorum ama sayfaları birleştir dediğimde herhangi bir şey gerçekleşmiyor. Acaba yapmam gereken başka birşey mi var?

 

[Murat OSMA]

Bedri Bey müsadenizle kodlarınıza ufak bir ilave yapmak istiyorum...

Kodların ilk satırına bu kodu da ilave edin;

Range("B4:G21").ClearContents

 

[unozdemir]

Bedri Bey - Murat Bey,

Affınıza sığınarak itiraf etmek istiyorum, ya kodu doğru yere yazmayı beceremedim, ya da başka bir hatam var. Kodu ekledim fakat yine sayfaları birleştir dediğimde herhangi bir şey olmuyor.
Rica etsem ekteki dosya üzerinde uygulayıp verebilir misiniz.
Teşekkür ederim.

 

[bedri41]

Murat Bey'in vermiş olduğu ilaveyi de eklediğim 2. mesajdaki dosyayı güncelledim. Aldığınız hata makro güvenlik ayarları ile ilgili olabilir daha önce makrolu bir dosyayı kullanmadıysanız makro güvenlik ayrlarını düşürp tekrar deneyin.

Kolay Gelsin

 

[unozdemir]

bedri bey teşekkür ederim emeğiniz için, şuan çalışıyor dosya.

 

[unozdemir]

Bedri bey, şöyle bir sıkıntı ortaya çıktı.
Örneğin B -HARCAMALARI sayfasında verileri sildim, artık gerek yok, bu durumda sayfaları birleştir dediğimde; B -HARCAMALARI sayfasındaki Tarih, açıklama, tutar yazılarını KÜMÜLATİF sayfaya taşıyor, oysaki boş olduğunda herhangi bir işlem yapmamalı.
Yardımcı olabilir misiniz.

 

[bedri41]

Bedri bey, şöyle bir sıkıntı ortaya çıktı.
Örneğin B -HARCAMALARI sayfasında verileri sildim, artık gerek yok, bu durumda sayfaları birleştir dediğimde; B -HARCAMALARI sayfasındaki Tarih, açıklama, tutar yazılarını KÜMÜLATİF sayfaya taşıyor, oysaki boş olduğunda herhangi bir işlem yapmamalı.
Yardımcı olabilir misiniz.

B-HARCAMALARI sayfasını hiç kullanmayacaksanız kodun içerisindeki bu sayfa ile ilgili aşağıdaki kısmı silebilirsiniz

Sheets("B- HARCAMALARI").Select
Range("B4:G" & [B65536].End(3).Row).Select
Selection.Copy
Sheets("KÜMÜLATİF").Select
Range("B" & [B65536].End(3).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

veya her satırın başına ' işaretini koyarak kodları aşağıdaki gibi pasif yapabilirsiniz.

' Sheets("B- HARCAMALARI").Select
' Range("B4:G" & [B65536].End(3).Row).Select
' Selection.Copy
' Sheets("KÜMÜLATİF").Select
' Range("B" & [B65536].End(3).Row + 1).Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
' False, Transpose:=False

veya en pratik çözüm B-HARCAMALARI sayfasındaki başlıkları da silin.

Kolay Gelsin

 

[unozdemir]

Hayır ben anlatamadım aslında tam olarak.
Şuan B -HARCAMALARI sayfasına veri girişine gerek yok, ama önümüzdeki günlerde ihtiyaç olursa yazmam gerekecek. Bu yüzden Kodlara dokunmasan daha iyi olacak.

 

[Murat OSMA]

Bedri Bey'in müsadesiyle...

Şu kodları bir deneyiniz;

Sub Emre()
    Dim syf As Worksheet
    Dim i As Integer
    Application.ScreenUpdating = False
    Range("B3:G23").ClearContents
    For Each syf In Worksheets
        If syf.Name <> "KÜMÜLATİF" Then
            i = syf.Range("B65536").End(3).Row
            syf.Range("B3:B" & i, "G" & i).Copy Sayfa4.Range("B65536").End(3)(2, 1)
        End If
    Next syf
    Application.ScreenUpdating = True
    i = Empty: Set syf = Nothing
End Sub

Ya da dilerseniz bu kodları da bir deneyiniz;

Sub Emree()
    Dim syf As Worksheet
    Dim i As Integer
    Application.ScreenUpdating = False
    Range("B3:G23").ClearContents
    For Each syf In Worksheets
        If syf.Name <> "KÜMÜLATİF" Then
            i = syf.Range("B65536").End(3).Row
            syf.Range("B3:B" & i, "G" & i).Copy Sayfa4.Range("B65536").End(3)(2, 1)
        End If
    For i = 3 To Range("B65536").End(3).Row
        If Cells(i, 2) = "" Then
            Cells(i, 2) = syf.Name
            Cells(i, 2).Resize(, 6).Select
                With Selection
                    .Merge
                    .VerticalAlignment = xlBottom
                    .HorizontalAlignment = xlCenter
                    .Font.Bold = True
                    .Font.ColorIndex = 3
                End With
        End If
    Next i
    Next syf
    Application.ScreenUpdating = True
    i = Empty: Set syf = Nothing
End Sub

 

[salihpektas]

elinize sağlık