"istediğimiz değer" ile biten sayfalarda işlem yapma

[dellerlim]

Herkese iyi çalışmalar.
Ekteki dosyamda 2 sayfa haricindeki sayfaların isimleri hep ".Hafta" ile bitmektedir. Bu hariç olan iki sayfanın haricinde kalan tüm sayfaların veya ".Hafta" ile biten tüm sayfaların son satırlarına işlem yapmaya çalışıyorum. Aşağıda başka bir çalışmadan aldığım kodlar var. Bu kodlar ile bu dediğimi yapamıyorum. Yardımlarınızı bekliyorum.

Sub sayfalar()
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
döngü:
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "TOPLAM" Then GoTo pass
If Worksheets(i).Name = "LİSTE" Then GoTo pass
GoTo döngü:
pass:
Next i
Application.DisplayAlerts = True
End Sub

 

[dellerlim]

Asıl olarak yapmaya çalıştığım şey ".Hafta" ile biten sayfaların her birinin alt toplamlarını her sayfanın en alt satırına yazdırmak.

 

[Necdet]

Merhaba,

Alt toplam malt toplam diyorsunuz da örnek dosyanızda toplam alınacak bir değer göremedim.

Ne yapmak istiyorsanız aşağıdaki kodları örnek olarak kullanabilirsiniz.

Sub Sayfalar()

    Dim Syf As Worksheet
    Application.ScreenUpdating = False
    
    For Each Syf In Worksheets
        If Syf.Name Like "*Hafta" Then MsgBox Syf.Name
    Next Syf
    
    Application.DisplayAlerts = True
    
End Sub

 

[dellerlim]

"malt toplam" demedim. Dosya örnektir ve "x", "y", "z" değerleri sayıları ifade etmektedir. İlginiz için teşekkür ederim.

 

[dellerlim]

Dosyanın asıl hali ektedir.

excel.web.tr ailesine teşekkür ederim, henüz cevapsız kalmış bir sorum olmadı. Ancak soru sorarken direk sıkıntımı çözmeye yönelik değilde mantığını öğrenmeye çalışacak şekilde sormaya çalışmaktayım. Bu minvalde sadece takıldığım kısmı özet olarak soruyorum. İyi çalışmalar herkese.

 

[dellerlim]

Bu kodlarla sorun çözüldü. İlgilenenler kullanabilirler.

Sub Sayfalarrr()

Dim Syf As Worksheet
Application.ScreenUpdating = False

For Each Syf In Worksheets
If Syf.Name Like "*Hafta" Then

Set sss = ThisWorkbook.Worksheets(Syf.Name)
sonsatir = sss.Range("E65536").End(xlUp).Row + 1
sss.Cells(sonsatir, "D") = "TOPLAM"
sss.Cells(sonsatir, "E") = Application.WorksheetFunction.Sum(sss.Range("E2:E" & sonsatir))
sss.Cells(sonsatir, "f") = Application.WorksheetFunction.Sum(sss.Range("f2:f" & sonsatir))
sss.Cells(sonsatir, "g") = sss.Cells(sonsatir, "e").Value - sss.Cells(sonsatir, "f").Value
sss.Cells(sonsatir + 1, "e") = "ÖDENECEK"
sss.Cells(sonsatir + 1, "f") = "ÖDENEN"
sss.Cells(sonsatir + 1, "g") = "KALAN"
End If
Next Syf


Application.DisplayAlerts = True

End Sub

 

[Necdet]

Tebrikler.

İşte bu.

 

[assenucler]

Sayın derlerlim,


Rica etsem dosyanızın son halini yollar mısınız?

Emek ve katkı veren herkese teşekkürler.

 

[assenucler]

Bu kodlarla sorun çözüldü. İlgilenenler kullanabilirler.

Sub Sayfalarrr()

Dim Syf As Worksheet
Application.ScreenUpdating = False

For Each Syf In Worksheets
If Syf.Name Like "*Hafta" Then

Set sss = ThisWorkbook.Worksheets(Syf.Name)
sonsatir = sss.Range("E65536").End(xlUp).Row + 1
sss.Cells(sonsatir, "D") = "TOPLAM"
sss.Cells(sonsatir, "E") = Application.WorksheetFunction.Sum(sss.Range("E2:E" & sonsatir))
sss.Cells(sonsatir, "f") = Application.WorksheetFunction.Sum(sss.Range("f2:f" & sonsatir))
sss.Cells(sonsatir, "g") = sss.Cells(sonsatir, "e").Value - sss.Cells(sonsatir, "f").Value
sss.Cells(sonsatir + 1, "e") = "ÖDENECEK"
sss.Cells(sonsatir + 1, "f") = "ÖDENEN"
sss.Cells(sonsatir + 1, "g") = "KALAN"
End If
Next Syf


Application.DisplayAlerts = True

End Sub

Bu kodun nereye yazılacağına karar veremedim.

 

[dellerlim]

Dosyanın şimdiye kadarki son hali böyle

Sayın derlerlim,


Rica etsem dosyanızın son halini yollar mısınız?

Emek ve katkı veren herkese teşekkürler.

Sizlerinde katkılarını bekliyorum. İyi çalışmalar.