• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Sayfalar makroyla "Genel" sayfasında nasıl özetlenir?

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Değerli Dostlar,

Sitemizden "Daire ve Aylık Bazında Aidat Kaydetmek" excel dosyasını indirdim. Apartman hesaplarını aidat türlerine göre tutmak istediğimden; anılan dosyada AIDAT, DEMIRBAS, YAKIT, DIGER ve GENEL sayfaları oluşturdum.

Yarattığım yeni sayfalardaki kayıtların GENEL sayfasında birleştirilmesi için, makro kodu nasıl olmalıdır?

İlgi ve yanıtınız için önceden teşekkürler.

Sevgi ve saygılar.
 

Ekli dosyalar

  • Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm
    73.5 KB · Görüntüleme: 18

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba Sn. @assenucler,

Bu kodları kullanabilirsiniz..
PHP:
Sub ExcelTurkey()
    Application.ScreenUpdating = False
    Sayfa5.Activate
    Range("D:AA").Clear
    Range("D1").Select
    Selection.Consolidate Sources:=Array( _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]AIDAT'!R1C4:R44C22" _
        , _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]DEMIRBAS'!R1C4:R44C22" _
        , _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]DIGER'!R1C4:R44C22" _
        , _
        "'C:\Users\user\Desktop\[Sor_Daire_ve_Ay_Bazında_Aidat_Kaydetmek_ve_Takip.xlsm]YAKIT'!R1C4:R44C22" _
        ), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
        
    Range("D1").Value = "D.NO"
    Sayfa1.Range("E2:E44").Copy Range("E2")
    Range("D1").CurrentRegion.Borders.LineStyle = 1
    Columns("F:V").NumberFormat = "#,##0.00"
    Range("D1:V1").Font.Bold = True
    son = Range("D65536").End(3).Row
    Range("E" & son + 1).Value = "GENEL TOPLAM"
    Range("E" & son + 1).Font.Bold = True
    Range("F" & son + 1).FormulaLocal = "=TOPLA(F2:F" & son & ")"
    Range("F" & son + 1).AutoFill Destination:=Range("F" & son + 1 & ":V" & son + 1), Type:=xlFillDefault
    Range("D1:V1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    Columns.AutoFit
    Columns("R:V").ColumnWidth = 13.29
    Range("D1").Select
    Application.ScreenUpdating = True
End Sub
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Sayın Admin,

Kısa süredeki yanıtınız ve yardımınız için teşekkür ederim. Çok güzel çalışıyor.
Sadece, ekteki resimde de görüleceği gibi, GENEL sayfasında F sütunu fazladan yazılı, kodda nasıl bir düzeltme yapılmalıdır?
Hayırlı işler diler. Sevgi ve saygılarımı sunarım.
 

Ekli dosyalar

  • ExcelTurkey_Sor_2018-07-30_12h30_56.jpg
    ExcelTurkey_Sor_2018-07-30_12h30_56.jpg
    336.3 KB · Görüntüleme: 10

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
DİĞER sayfasının E1 hücresindeki veriyi öteki sayfalardakinden farklı yazmışınız. Aynı yazarsanız otomatik düzelir.
 

assenucler

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
87
En iyi yanıt
0
Puanları
18
Yaş
78
Konum
Emekli YMM
Ad Soyad
A. Selim Şenüçler
Office Vers.
Office 365 ev 64 bit
Kusura bakmayın, bilgilendirmeniz için teşekkür.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt