Dosya birleştirme de Alfabetik verileri aktaramıyorum

[safran6]

Merhaba iyi çalışmalar,
Excel de farklı sayfada bulunan verileri birleştirmek istiyorum. Birleştirme yaparken sayısal verileri birleştiriyor. Alfabetik verilerin bulunduğu hücreleri boş bırakıyor. Veriyi görüntülemiyor. Ne yapabilirim. Lütfen yardım. Office 2007 kullanıyorum

 

[Murat OSMA]

Birleştirmeyi nasıl yapıyorsunuz ?

 

[safran6]

Merhaba
Sayfalar üzerinde bulunan tüm bilgileri yeni bir sayfada birleştirmek için bir çok yol denedim.
Sub Verileri_Birlestir()
Dim saySatir As Integer
Dim sayToplam As Integer 'fazla ise Integer yerine LONG yazabilirsiniz.
Dim i As Integer

For i = 1 To Worksheets.Count - 1
saySatir = WorksheetFunction.CountA(Worksheets(Worksheets(i).Name).Range("A:A"))
sayToplam = WorksheetFunction.CountA(Worksheets("Sayfa4").Range("A:A"))
Worksheets(Worksheets(i).Name).Range("A2:L" & saySatir).Copy Worksheets("Sayfa4").Range("A" & sayToplam + 1)
Next i
End Sub
işlevini kullandım. Sayısalar verileri alıyor. Birleştirme işlemi yapıyor. Alfabetik verileri bir türlü gösteremiyorum. Yardımcı olursanız çok sevinirim

 

[Murat OSMA]

Bir çok yol denedim derken makro ile birleştirmek istediğinizi anlıyorum.
Yoksa manuel olarak kopyala yapıştır ile yapabiliyor olmalısınız.

Makroyla birleştirme ile ilgili kodları yazabilmemiz için dosyanızı yollar mısınız ?

 

[safran6]

Dosyaları neden ekliyemiyorum.

 

[Murat OSMA]

Yönetime bu konuyla ilgili özel mesaj gönderip bilgi alabilirsiniz.

 

[safran6]

Merhaba dosyayı gönderdim

 

[Murat OSMA]

Ne olacak peki bu sayfalarda ?
Gizli olan sayfalar da var.
Sayfa1 ve Sayfa2'yi başka bir sayfada birleştirmek mi istiyorsunuz ?
Yapmak istediğinizi net bir biçimde anlatırsanız; alacağınız yanıtlar da o kadar hızlı ve net olur.

Not: Yemekten sonra bakacağım.

 

[safran6]

Önce ilginize teşekkür ederim.
Bunu sadece bir örnek olarak sundum elimde benzer çok fazla çalışma sayfam var bunları tek bir sayfada birleştirmek istiyorum. Gizli sayfaları işleme tabi tutmayacağım.

 

[safran6]

Sorunumda yardimci olabilecek bilgi verecek kimse yokmu

 

[Murat OSMA]

Bu iki sayfa nasıl birleşecek ?

Bir sayfadaki alanla bu şekilde;
Sıra No İLİ OKULU ADI-SOYADI GÖNDERİLECEK EK ÖDENEK 2013/1 2013/2 2013/3 2013/4 TPLAM

diğerinde bu şekilde;
Sıra No İLİ İLÇE OKULU ADI-SOYADI

 

[safran6]

İlk sayfada ve ikinci sayfada olan başlıkların tümü kullanılarak yeni bir veri tablosu oluşturulamazmı

 

[safran6]

Merhaba Murat Bey
Yapılamazsa lütfen yapılamaz diye söylerseniz yada neleri kaldırırsam yapılacağını belirtirseniz çok sevinirim.

 

[Murat OSMA]

Cuma'dan sonra ilgileneceğim.
Bana verileri birleştireceğiniz diğer sayfaların da olduğu (Eğer varsa Sayfa1 ve Sayfa2 dışında) bir dosya yollar mısınız ?
Ne kadar farklı veritabanı var, bunu görebilmem iyi olur.

 

[safran6]

Bu iki dosyayı birleştirebilirsem şimdilik yeterli, acil olan bunlar.

 

[Murat OSMA]

Aklıma gelen yöntem bu şekilde;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a%, evn As Range
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> ActiveSheet.Name Then
            For a = 2 To Sheets(i).Range("A65536").End(3).Row
                Range("[B][COLOR="Red"]B[/COLOR][/B]65536").End(3)(2, 1) = Sheets(i).Cells(a, "[B][COLOR="red"]B[/COLOR][/B]")
            Next a
           ' [COLOR="Red"]__________________________________________________________________[/COLOR]
            Set evn = Sheets(i).Rows(1).Find("[B][COLOR="red"]OKULU[/COLOR][/B]", , , 2)
            If Not evn Is Nothing Then
                Sheets(i).Select: evn.Select
                Cells(2, evn.Column).Select
                Range(Selection, Selection.End(xlDown)).Copy
                Sayfa2.Select
                Range("[B][COLOR="red"]D[/COLOR][/B]65536").End(3)(2, 1).PasteSpecial xlValues
            End If
            '[COLOR="red"]______________________________________________________________________[/COLOR]
            Set evn = Sheets(i).Rows(1).Find("[B][COLOR="red"]ADI-SOYADI[/COLOR][/B]", , , 2)
            If Not evn Is Nothing Then
                Sheets(i).Select: evn.Select
                Cells(2, evn.Column).Select
                Range(Selection, Selection.End(xlDown)).Copy
                Sayfa2.Select
                Range("[B][COLOR="red"]E[/COLOR][/B]65536").End(3)(2, 1).PasteSpecial xlValues
            End If
            [COLOR="red"]'________________________________________________________________[/COLOR]
            Set evn = Sheets(i).Rows(1).Find("[B][COLOR="red"]İLÇE[/COLOR][/B]", , , 2)
            If Not evn Is Nothing Then
                Sheets(i).Select: evn.Select
                Cells(2, evn.Column).Select
                Range(Selection, Selection.End(xlDown)).Copy
                Sayfa2.Select
                Range("[B][COLOR="red"]C[/COLOR][/B]65536").End(3)(2, 1).PasteSpecial xlValues
            End If
        End If
    Next i
    Range("A2").Value = "1"
    Range("A2").AutoFill Destination:=Range("A2:A" & Range("B65536").End(3).Row), Type:=xlFillSeries
    Application.ScreenUpdating = True
    i = Empty: a = Empty: Set evn = Nothing
End Sub[/FONT]

Sayfalardaki ilk satırda, kodlarda kırmızı ile belirttiğim gibi sütun başlıklarını (ADI-SOYADI - İLÇE vs..) aratıyoruz. Bulduğu sütunu kopyalayıp yine kırmızı ile belirttiğim sütuna yapıştırıyoruz. Ben şu an 3 sütun için hazırladığım. Siz sütun başlıklarına göre iki alt çizgi arasını kopyalayıp çoğaltırsınız.

Dosyayı da ekliyorum.

 

[safran6]

Merhaba Murat Bey, ellerinize sağlık çok uğraştırdım, biliyorum. Ancak ben yine sonuç alamadım. Diğerleri içinde sizin söylediklerinizi yaptım ama alfabetik verileri hala almıyor. Galiba olmayacak, Sayısal veriler de sorun çıkarmıyor.

 

[Murat OSMA]

Yazdığım kodlar; Sayısal veya Metinsel veri olarak ayırmaksızın, komple sütundaki verileri kopyalayıp diğer sayfada ilgili sütuna yapıştırıyor.

Olmuyorsa benim yapacak başka bir şeyim yok.

İyi günler.

 

[cerit]

Murat Hocam,
Çok sayıda sayfa ve sütundan oluşan,sayfaları birleştirsek formül ne olmalı.Selamlar.

 

[Murat OSMA]

Sn. cerit,
Bu konu için yeni bir konu açıp o konu altında destek isteyiniz.
Örnek dosyalarınızı ve neyi nasıl yapmak istediğinizi iyice belirtiniz.