excel dosyalarını birletirme

[fizikopat]

arkadaşlar forumda aradım ama bulamadım

elimde 2 farklı excell dosyası olup bunlarda çıkan sonuçları tek bir dosya uzerine aktarmam gerekior örnek bir excel dosyası attım

yardm ederseniz sevinirim

 

[Ömer]

Merhaba,

Olması gereken tabloyu Sayfa3 de manuel hazırlayıp dosyanızı tekrar eklermisiniz.

 

[fizikopat]

ilgilendiğiniz için teşekkur ederim ekte 3. sayfada bulunmakta

 

[Ömer]

ilgilendiğiniz için teşekkur ederim ekte 3. sayfada bulunmakta

Formülü B2 hücresine yazıp alta doğru B9 hücresine kadar kopyalayın.

Sonra B9 da ki formülü yana doğru I9 hücresine kadar kopyalayın.
Sonra B8 da ki formülü yana doğru H8 hücresine kadar kopyalayın.
.
.
Bu şekilde formülü tüm tabloya kopyalayın.

=EĞER(VE(Sayfa2!B2="";Sayfa1!B2="");"";EĞER(Sayfa1!B2<>"";Sayfa1!B2;Sayfa2!B2))

.

 

[fizikopat]

kardeşim bu sefer hepsi Q oluyor

 

[Ömer]

Her hücreye aynı formülü yazmışsını.

Açıklamayı tekrar okuyup uygularmısınız.

Önce B2 ye yazın ve formülü alt satırlara kopyalayın. B2 hücresinin sağ alt köşesinden tutarak kopyalama yapabilirsiniz. Bu şekilde açıklamadaki gibi formülü tüm tabloya uygulayın.

Siz tüm hücrelere aynı formülü yazmışsınız. Kopyalama yaparsanız hücre başvuruları otomatik değişir.

Tekrar uygulamayı deneyin, olmazsa ben yapıp eklerim.

 

[fizikopat]

çok teşekkur ederim kardeşim dalgınlığıma gelmiş haklıymışsın peki bi sorum daha olacak eğer 2 değilde daha çok çalışma sayfasında çalışırsak bu formul nasıl değişecek mesela 3 te olur ne olur

 

[Ömer]

Sayfa sayısı artıkça veri düzenine göre formül yazmak uzun olacaktır. Bu yüzden makro kullanmakta fayda var.

Verilerin toplanacağı sayfa adını ozet olarak değiştirin.

Module kopyalayıp çalıştırın.

Sub Birlestir()
 
    Dim alan As Range, i As Integer
 
    Application.ScreenUpdating = False
 
    Sheets("[COLOR=red]ozet[/COLOR]").Select
    Range("A1:I9") = ""
 
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "[COLOR=red]ozet[/COLOR]" Then
                For Each alan In .Range("A1:I9")
                    If alan <> "" Then
                        Cells(alan.Row, alan.Column) = alan
                    End If
                Next alan
            End If
        End With
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.