Soru makco ile toplu düşeyara veya sayfa birleştirme

[bycakir]

merhabalar;

alimde 450 sayfalık bir excell dosyası var. bu dosyada tüm sayfalarda arama yaptırıp degri bulduğum sayfada örnek h4 hücresindeki değeri listeme yazdırmam gerekiyor. veya bu 450 sayfayı 1 sayfada alt alta birleştirip basit düşeyara işe problemımı çözmem gerekiyor. bu konuda yardıma ihtiyacım var. ek olarak küçültülmüş bir excell bırakıyorum. şimdiden yardımlarınız için teşekkurler.

 

[askm]

Bazı sayfalarda proje kodu kısmı boş. Bazı sayfalarda da proje kodu mükerrer. Örneğin; 18.10.19 R-587-88 KULAK KESME sayfasında boş ama 22.10.19 T-10182 0211816 ve TOYOTA COROLLA BURC SIVAMA SAĞ aynı. Bu durumda ne yapacak.
Aşağıdaki şekilde deneyin bir. Olursa.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim s1 As Worksheet
Set s1 = Sheets("liste")
satır = s1.Range("A65536").End(3).Row

For i = 2 To satır
    For syf = 1 To Sheets.Count - 1
    Debug.Print Sheets(syf).Name
        If Sheets(syf).Name <> "liste" Then
            If Sheets(syf).Range("M7") = s1.Cells(i, 1) Then
                s1.Cells(i, 2) = Sheets(syf).Range("O2")
                Exit For
            End If
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

 

[bycakir]

teşekkurler sorunsuz çalıştı.