3 Farklı Excel Dosyasını Tek Bir Sayfada Toplamak

[ScReAm_]

Yardımınızı istediğim konu 3 farklı excel sayfasını tek bir dosyada toplamak.
Ekteki dosyadaki gördüğünüz gibi aylarda farklı sütunlarım mevcut her sütundan Tc Kimlik Ve Durum Kodlarını Süzerek Diğer Sayfada Saklamak İstiyorum bu nasıl yapabilirim?

 

[Ömer]

Merhaba,

Olmasını istediğiniz sayfayı manuel hazırlayıp dosyayı bu şekilde yeniden eklermisiniz.

 

[ScReAm_]

Ömer Bey. söyle Anlatayım Ocak Şubat Mart Dosyalarının Yanına Hepsi diye sayfa oluşturup sadece TC Ve Durum alanını süzerek aktarmak istiyorum.

 

[Ömer]

Sayın ScReAm,

Bu bahsettiğin sayfayı ekleyip olmasını istediğin şekili manuel sayfaya yazıp eklerseniz sonuca daha kısa sürede ulaşırız.

 

[Trantula]

ScReAm selam,

Şu şekilde yapabilirsiniz.

=ETOPLA(OCAK!A:A;"TC";OCAK!B:B)+(ETOPLA(OCAK!A:A;"DURUM";OCAK!B:B)

Burada OCAK sayfasındaki A sütünündaki TC olanların karşılığındaki değerleri topla (B dediğim yer)

Mantığı bu, A ve B'leri siz kendinize göre düzenlersiniz. Bu şekilde diğerlerinide düzenleyebilirsiniz.

Umarım yardımcı olur

 

[ScReAm_]

Tümü sayfasında Diğer aylardaki tüm tcleri bir sayfada manuel değilde.Ocak ayında yaptığım tüm değişiklikler otomatik olarak değişssin istiyorum. Umarım bu sefer anlatabilmiştir.

 

[Ömer]

Kodları module kopyalayın ve tümü sayfasına bir buton ekleyip kodları butona bağlayın. Butona bastığınızda istediğiniz olacaktır.

Yalnız sayfalardaki tc numarası olanların ad soyad sütununu boş bırakmayın.

Sub Ozet()
 
    Dim i As Integer, sons As Long, sont As Long, sut As Integer
    Dim c As Range
 
    Sheets("Tümü").Select
    Range("A2:C" & Rows.Count).ClearContents
    
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "Tümü" Then
              If .Range("A2") <> "" Then
                sons = .Cells(Rows.Count, "A").End(xlUp).Row
                sont = Cells(Rows.Count, "B").End(xlUp).Row + 1
                Set c = .Rows(1).Find("Tc No")
                If Not c Is Nothing Then sut = c.Column
                .Range("A2:A" & sons).Copy Range("A" & sont)
                .Range("H2:H" & sons).Copy Range("C" & sont)
                .Range(.Cells(2, sut), .Cells(sons, sut)).Copy Range("B" & sont)
              End If
            End If
        End With
    Next i
 
End Sub

.

 

[ScReAm_]

Private Sub CommandButton1_Click()

sarı renkli hata veriyor?

 

[Ömer]

Private Sub CommandButton1_Click()

sarı renkli hata veriyor?

Dosyanız ektedir.

.

 

[ScReAm_]

Peki bu konuda şöyle bir makro yapabilirmiyiz.
İlk önce ad soyadı
Sonra TC
Sonra E Devlet Şifrelerini isteyen bir makro excel yapabilirmiyiz?

 

[Ömer]

Konu bütünlüğünü korumak için farklı konularla ilgili sorularınızı yeni konu başlığı altında sormanızı rica ederim.