Bilgiler arasına boş satır açtırmak ve toplam aldırmak

[sakoz]

Herkese merhaba ,

Arkadaşlar ekteki dosyada hergün işlediğimiz bazı datalar var.A sütununda peron bilgisi mevcut.E sütununda bayi adı mevcut ve G sütununda ise taşıma bedeli bilgisi mevcut.
Peronların arasına manuel olarak bir boş satır ekliyoruz. Bu açtığımız bu boş satırda bayi adının altına ARA TOPLAM yazıyoruz. Yine bu satırda ara toplam aldırıyoruz.En alttada bir boş satır bırakıp altındaki satıra GENEL TOPLAM yazıp tüm ARA TOPLAM ları toplatıp GENEL TOPLAM ın karşısına yazıyoruz.

Şimdi yapmak istediğimiz peron numarası değiştiğinde 2 peron numarası arasına bir boş satır açacak , bu boş satırda Bayi adının altına ARA TOPLAM yazdırıp , bu perondaki taşıma bedellerini toplatıp yazdırmak istiyoruz.En alttada GENEL TOPLAM ı aldırmak istiyoruz.
Konuyla ilgili yardımcı olanlara şimdiden teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Bu işlem için VERİ-ALTTOPLAM işlevini kullanailirsiniz.

İlk olarak elle aldığınız alt toplam satırlarını silin.
Sonra belirttiğim menüyü açın.
Ekrana gelen penceredeki ilk kutucuktan "PERON" seçeneğini seçin.
İkinci kutucuktan "TOPLA" seçeneğini seçin.
Üçüncü kutucuktan "TAŞIMA BEDELİ" seçeneğini seçin ve tamam tuşuna tıklayarak işlemi tamamlayın.
Otomatik olarak toplamlar eklenecektir.

 

[İhsan Tank]

Selamlar,

Bu işlem için VERİ-ALTTOPLAM işlevini kullanailirsiniz.

İlk olarak elle aldığınız alt toplam satırlarını silin.
Sonra belirttiğim menüyü açın.
Ekrana gelen penceredeki ilk kutucuktan "PERON" seçeneğini seçin.
İkinci kutucuktan "TOPLA" seçeneğini seçin.
Üçüncü kutucuktan "TAŞIMA BEDELİ" seçeneğini seçin ve tamam tuşuna tıklayarak işlemi tamamlayın.
Otomatik olarak toplamlar eklenecektir.

hocam bunu tarif ettiğiniz şekilde yaptım yalnız 2 tane sorun çıktı en alttaki 13. peron'a toplam almadı ve genel toplam oluşturmadı
dosya ekliyorum

 

[Korhan Ayhan]

Selamlar,

Sayfadaki hücreleri komple seçtikten sonra aynı menüyü kullanarak tüm alt toplamları kaldırın. Sonra tarif ettiğim şekilde tekrar deneyin düzelecektir.

 

[İhsan Tank]

hocam denedim yalnız gene olmadı en son toplam ve genel toplam almıyor inceliyebili misiniz

 

[Korhan Ayhan]

Selamlar,

Tekrar tarif ediyorum.

İlk mesajdaki dosyayı açın.
26 ŞUBAT isimli sayfayı açın.
12-22-30 .... satırlarına manuel alttoplam satırları eklenmiştir. Bunları komple silin.
Tablonun en altında bulunan boş gereksiz satırlarıda silin.

Daha sonra tablodaki hücrelerden herhangi birisini seçip #2 nolu mesajımda tarif ettiğim yöntemi uygulayın. Sonuca ulaşacaksınız.

 

[İhsan Tank]

Selamlar,

Tekrar tarif ediyorum.

İlk mesajdaki dosyayı açın.
26 ŞUBAT isimli sayfayı açın.
12-22-30 .... satırlarına manuel alttoplam satırları eklenmiştir. Bunları komple silin.
Tablonun en altında bulunan boş gereksiz satırlarıda silin.

Daha sonra tablodaki hücrelerden herhangi birisini seçip #2 nolu mesajımda tarif ettiğim yöntemi uygulayın. Sonuca ulaşacaksınız.

hocam teşekkür ederim benim sorunum sutunları saçiyormuşum ama alttan almak gerekiyormuş dosyayı ekliyorum işine yarayan olabilir

 

[sakoz]

Tekrar selamlar ,

Veri-Alttoplam şeklinde değilde makrolu bir çözüm bulunabilirse çok seviniriz.Çünkü örnek olarak eklediğim dosya standart bir form aslında. Veri-alttoplam şeklinde yapıldığında ARA TOPLAM yerine Toplam1 ,Toplam2... şeklinde yazıyor. En son ara toplam satırından sonra bir satır boş olması gerekiyor.Ondan sonra Genel toplam yazılması gerekiyor.
Kısacası makrolu bir çözüme ihtiyacımız var.Tekrar yardımcı olan herkese teşekkür ederiz.
Saygılar.

 

[İhsan Tank]

makrolu çözüm

Private Sub CommandButton1_Click()
Range("A2:H85").Select
ActiveWindow.SmallScroll Down:=-85
Range("A2:H85").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
MsgBox "www.excel.web.tr ailsine teşekkürler"
End Sub

dosya ekte

 

[sakoz]

Sayın cılgın86lı,

İlginize teşekkürler. Fakat bu makro ile bizim istediğimiz şekilde işlem gerçekleştirmiyor.Sayın Korhan Ayhan 'ın belirttiği işlemi gerçekleştiriyor. Bizim yapmak istediğimiz ilk mesajdaki şekilde olması.

 

[sakoz]

Arkadaşlar lütfen yardımcı olabilirmisiniz ...

 

[hanmax]

Evet buda benim işime yaradı teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip denermisiniz. Kod bütün sayfalarda çalışmaktadır. Yedek alıp deneyiniz.

Option Explicit
 
Sub SATIR_EKLE_TOPLAM_AL()
    Dim SAYFA As Worksheet
    Dim X As Long, İlk As Long, Son As Long
    
    For Each SAYFA In Worksheets
    
        With SAYFA
            .Range("A3:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        
        For X = .Range("A65536").End(3).Row To 3 Step -1
            If .Cells(X, 1) <> .Cells(X - 1, 1) And .Cells(X - 1, 1) <> "PERON" Then .Rows(X).Insert
        Next
        
        For X = 3 To .Range("A65536").End(3).Row
            İlk = X
            
            If Cells(X + 1, 1) = "" Then
                Son = X + 1
            ElseIf .Cells(X, 1).End(4).Row <> 65536 Then
                Son = .Cells(X, 1).End(4).Row + 1
            End If
            
            .Cells(Son, 5).Font.Bold = True
            .Cells(Son, 5).Font.ColorIndex = 1
            .Cells(Son, 5) = "ARA TOPLAM"
            .Cells(Son, 7).Font.Bold = True
            .Cells(Son, 7).Font.ColorIndex = 1
            .Cells(Son, 7) = "=SUM(G" & İlk & ":G" & Son - 1 & ")"
            X = Son
        Next
        
        With .Range("E65536").End(3).Offset(2, 0)
            .Font.Bold = True
            .Value = "GENEL TOPLAM"
        End With
    
        With .Range("G65536").End(3).Offset(2, 0)
            .Font.Bold = True
            .Formula = "=SUMIF(E:E,""ARA TOPLAM"",G:G)"
        End With
 
        End With
 
    Next
 
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[sakoz]

Korhan Bey,

Öncelikle ilginizden dolayı çok teşekkür ederim. Yalnız makro bir yerde hatalı çalışıyor. Konuyla ilgili örnek dosyayıda ekliyorum. Peron numarasında bir satır olduğunda bazen onu atlıyor.Yani altına ARA TOPLAM yazmıyor ve toplamınıda bir alttaki ARA TOPLAM a ekliyor.
Müsait olduğunuzda tekrar bakmanız mümkünmüdür ?
Teşekkürler.

 

[sakoz]

Arkadaşlar ,

Konu günceldir.Yardımcı olabilirmisiniz.
Herkese teşekkürler.

 

[sakoz]

Arkadaşlar ,

Konu günceldir.Lütfen yardımcı olabilirmisiniz....

 

[sakoz]

Arkadaşlar,

Konuyla ilgili yardımcı olabilecek kimse yokmu?

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz hata giderilmiştir. #13 nolu mesajımdaki kodları güncelledim. İncelermisiniz.

 

[sakoz]

Korhan Bey ,

Ellerinize sağlık.Hata kalmamış. Tekrar teşekkür ederim.
Saygılar.

 

[sakoz]

Korhan Bey merhabalar,

Affınıza sığınarak bir istekte daha bulunabilimiyiz? Makroyu çalıştırdığımızda tüm sayfalar icin çalıştırmaktadır. Makroyu çalıştırdığımızda sadece hangi sayfada isek onda işlemi gerçekleştirebilirmiyiz ?

Tekrar teşekkür ederiz.
Saygılar.