Aynı İsimli Hücrelerin Toplanması

[mmk]

2 konu hakkında yardımınıza ihtiyacım var,

1- tüm excel sayfalarında ( günlük olarak yeni açılacak yeni sayfalarda dahil) aynı hücre ismine sahip ("sirk") hücresini "CALISMA TABLOSU" isimli bir sayfada "AX4" hücresine toplatmam gerekiyor. çalışma tablosu sekmesine ekliyeceğim bir butona makro atayıp, bu butona her bastığımda tüm sayfalardaki(gizli sayfalarda dahil) "sirk" hücresindeki veriyi "CALISMA TABLOSU" isimli sayfadaki "AX4" hücresinde toplamak istiyorum.

2-Kullandığım bir makrom var suanda. tıklandığında güncel tarihli yeni bir sayfa açıp belirli bölgeleri boşaltıyor. Yeni bir rapor sayfası olarak düşünebilirsiniz. sadece raporda değişilecek alanlar siliniyor. İstediğim bu macronun devamında ekleyeceğim bir kod. Yeni sayfa açıldıktan sonra "N10" hücresinin "N9" hücresine taşınması(veya kopyalaması) ve taşıdıkdan sonra "N10" hücresinin silinmesi

örn:
başlangıç 2 adet
bitiş 16 adet

bir sonraki gün 4 başlangıç olacağı için bunu yukarı taşıyıp bitişi silmesi

Yardımlarınızı bekliyorum şimdiden teşekkürler. umarım anlatabilmişimdir

 

[ÖmerFaruk]

sirk ... Tanımlanmış bir AD mıdır?

 

[mmk]

sirk ... Tanımlanmış bir AD mıdır?

hücreye verdiğim. isterseniz hücre isimlendirmesini kaldırabilirm. her safyada aynı hücrede zaten isimlendirme yapmam şart değil.

 

[ÖmerFaruk]

Sub Topla()
    Dim Sh As Worksheet, Topla As Double
    For Each Sh In Worksheets
        If Sh.Name = "CALISMA TABLOSU" Then
        Else
            Topla = Topla + Sh.Range("C1")
        End If
    Next Sh
End Sub

Diğer sorunuz için kullandığınız kodları görmem lazım

 

[mmk]

Sub Topla()
    Dim Sh As Worksheet, Topla As Double
    For Each Sh In Worksheets
        If Sh.Name = "CALISMA TABLOSU" Then
        Else
            Topla = Topla + Sh.Range("C1")
        End If
    Next Sh
End Sub

Diğer sorunuz için kullandığınız kodları görmem lazım

hocam bu kod sonucu hangi satıra yazıyor tam anlayamadım.

macroya buton yapıp bastığımda farklı sayfalardaki "sirk" isimli hücrelerin toplamını "CALISMA TABLOSU" sayfasındaki "BA5" hücresinde görmek istiyorum. mümkünse bunun için kodu güncelleyebilirmisiniz.

 

[ÖmerFaruk]

Sub Topla()
    Dim Sh As Worksheet, Toplam As Double
    For Each Sh In Worksheets
        If Sh.Name = "CALISMA TABLOSU" Then
        Else
            Toplam = Toplam + Sh.Range("C1")
        End If
    Next Sh
    Worksheets("CALISMA TABLOSU").[BA5]=Toplam
End Sub

 

[mmk]

hocam çok teşekkürler kod şuan aktif kullanıyorum.

Sub NewDDR()

    Dim OrgWs As Worksheet
    Dim NewWs As Worksheet
    Set OrgWs = ActiveSheet
    OrgWs.Copy Before:=ActiveSheet
    Set NewWs = ActiveSheet
    NewWs.Name = Format(DateAdd("d", 1, OrgWs.Name), "dd.mm.yyyy")
    Range("B21:B589").Select
    Selection.ClearContents
    Range("D21:D589").Select
    Selection.ClearContents
    Range("E21:E589").Select
    Selection.ClearContents
    Range("G21:G589").Select
    Selection.ClearContents
    Range("I21:I589").Select
    Selection.ClearContents

End Sub

2.sorum için kullandığım marco yukardakidir. bu macrodaki işlem tamamlanıp yeni sayfa açıldıktan sonra, yeni sayfadaki "N10" hücresindeki değer "N9" hücresine kopyalanıp, "N10" hücresinin içindeki değerin silinmesi gerekiyor.

Örnek: ilk sayfada

N9= gün başlangıç: 5m / N10= gün bitiş: 10m macro çalıştıkdan sonra yeni açılan sayfada N9=gün başı: 10m // N10= boş
bu şekilde olmasını istiyorum, umarım anlatabilmişimdir. Şimdiden çok teşekkürler

 

[mmk]

kendim sordum kendim cevaplamış gibi oldum biraz ama çözdüm hocam.

Range("N9").Select
    Selection.ClearContents
    Range("N10").Copy
    Range("N9").PasteSpecial xlPasteValues
    Range("N10").Select
    Selection.ClearContents

sadece kendi macromun sonuna yukardaki kodları ekleme yaptım