Excel Sayfalarındaki verileri 1 sayfada birleştirmek

  • Konuyu başlatan Konuyu başlatan furkan021
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
27 Ağu 2018
Mesajlar
4
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar, bitirme tezim için yaklaşık 600 firmanın bilgilerini birleştirmem gerekiyor. Her firmanın pdf dosyasını indirdikten sonra acrobat ile birleştirdim ve sadece 1.sayfa gerekli olduğu için tüm belgeleri parçalayıp sadece 1.sayfalarını aldım birleştirip dışa aktar dediğimde her sayfayı bir sayfa olarak dışarı aktardım aksi taktirde tüm verileri birlikte aktardığımda tüm veriler karışıyor. Ayrıca indirdiğim veriler tablo gibi olmayıp cümle şeklinde örneğin Durumu iptal edildi (alt satır) Kayıt tarihi 02.03.1996 ... gibi cümleler satır satır şeklinde. İstediğim bu sayfadaki verileri kolaylıkla ayıklayıp satırlara dökebileceğim veri haline getirmek o olmuyorsa en azından yanyana getirip sütunları yan çevir deyip alt alta sıralamak istiyorum. Örnek tabloyu atacağım. Yardımcı olursanız çok sevinirim çok araştırdım bulamıyorum çözümünü.
 

Ekli dosyalar

Ekli dosyayı inceleyiniz.

İlgili kod yapısı.

Kod:
[CODE]Sub yeni()
    For Each i In Sheets
        If i.Name <> "Data" Then
            son = Sheets("Data").Cells(Sheets("Data").Rows.Count, 2).End(3).Row + 1
            For ii = 1 To 16
                i1 = Len(Sheets("Data").Cells(1, ii))
                metin = Sheets(i.Name).Cells(ii, 1)
                i2 = Len(metin)
                If i1 <> i2 Then
                   Sheets("Data").Cells(son, ii) = Mid(metin, i1 + 1, i2 - i1)
                End If
            Next ii
            For ii = 1 To 7
                Sheets("Data").Cells(son, ii + 16) = Sheets(i.Name).Cells(20, ii)
            Next ii
        End If
    Next i
End Sub
[/CODE]
 

Ekli dosyalar

Merhaba,
Ben de formüllü alternatif vereyim.
Ama her iki alternatifte de dikkat etmeniz gereken bir husus hücreler her tabloda aynı sırada olmalı.
Örneğin Tablo 34 ve bazı tablolarda 19. satır 20. satıra taşmış.
 

Ekli dosyalar

Bahsettiğim satırlarda düzenleme yapamayacaksanız ekli dosyayı kullanabilirsiniz.
Böyle bir satır atlaması durumunda formül 21. satırdan veri çekecek.
 

Ekli dosyalar

Merhabalar Sayın @furkan021 .

Ben de bir alternatif vereyim. Bulunsun.

CSS:
Sub BIRLESTIR()
SIL
For Each shf In ThisWorkbook.Sheets
    If shf.Name <> "BARAN" Then
        busat = Cells(Rows.Count, 2).End(3).Row + 1
        Cells(busat, 1) = busat - 2: Cells(busat, 2) = shf.Name
        For sut = 3 To 17
            If sut = 6 Or sut = 9 Or sut = 10 Then Cells(busat, sut).NumberFormat = "@"
            If sut = 12 Or sut = 13 Then Cells(busat, sut).NumberFormat = "mm/dd/yyyy"
            mtn = Replace(Replace(shf.Cells(sut - 2, 1), Cells(2, sut), ""), Chr(10), "")
            If Len(mtn) > 0 Then Cells(busat, sut) = mtn
        Next
        If shf.Cells(19, Columns.Count).End(xlToLeft).Column = 7 Then
            eksat = shf.Cells(Rows.Count, 1).End(3).Row - 19
            For s = 1 To eksat
                For k = 1 To 7
                    If k > 2 And k < 6 Then Cells(busat, (s - 1) * 7 + k + 18).NumberFormat = "mm/dd/yyyy"
                    Cells(busat, (s - 1) * 7 + k + 18) = shf.Cells(s + 19, k)
                Next
            Next
        End If
    End If
Next: MsgBox "İşlem tamamlandı..", vbInformation, "::.. Ömer BARAN ..::"
End Sub

Sub SIL()
    Sheets("BARAN").Activate
    If Cells(Rows.Count, 1).End(3).Row > 2 Then Range(Cells(3, 1), Cells(Rows.Count, Columns.Count)).Clear
End Sub
 

Ekli dosyalar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt